【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは以下の領域の先頭アドレスです。
第2パラメータ
第2パラメータは以下の領域の先頭アドレスです。
第3パラメータ
第3パラメータは以下の領域の先頭アドレスです。
第4パラメータ
第4パラメータは以下の領域の先頭アドレスです。
第5パラメータ
第5パラメータは以下の構造体の先頭アドレスです。
struct EXPRT_PF
第6パラメータ
第6パラメータは以下の領域のアドレスです。
第7パラメータ
第7パラメータは以下の領域のアドレスです。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第1パラメータのアドレスがポイントする領域を宣言 001200 01 CNVF PIC X(7). 001300*第2パラメータのアドレスがポイントする領域を宣言 001400 01 FID PIC X(101). 001500*第3パラメータのアドレスがポイントする領域を宣言 001600 01 FMFILE PIC X(256). 001700*第4パラメータのアドレスがポイントする領域を宣言 001800 01 SYSNAME PIC X(9). 001900*第5パラメータのアドレスがポイントする構造体を宣言 002000 01 EXPRT-PF-AREA. 002100 02 FIL PIC 9(2) COMP-5. 002200 02 COD PIC 9(2) COMP-5. 002300 02 TAB PIC 9(2) COMP-5. 002400 02 RFORM PIC 9(2) COMP-5. 002500 02 RLENGTH PIC 9(4) COMP-5. 002600 02 JEFAREA PIC X. 002700*第6パラメータのアドレスがポイントする領域を宣言 002800 01 LOCALERR PIC 9(4) COMP-5. 002900*第7パラメータのアドレスがポイントする領域を宣言 003000 01 SENSECODE PIC 9(4) COMP-5.
【呼び出し形式】
005000 PROCEDURE DIVISION. 005100*DPCFEXPORTの呼び出し 005200 CALL "XDpc_Fexport" WITH STDCALL LINKAGE 005300 USING BY REFERENCE CNVF 005400 FID 005500 FMFILE 005600 SYSNAME 005700 EXPRT-PF-AREA 005800 LOCALERR 005900 SENSECODE.
