【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは共通パラメータ構造体の先頭アドレスです。
第2パラメータ
第2パラメータは以下の構造体の先頭アドレスです。
struct dpc_acptlst
第3パラメータ
第3パラメータは以下の領域の先頭アドレスです。
第4パラメータ
第4パラメータは以下の領域の値です。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第2パラメータのアドレスがポイントする構造体を宣言 001200 01 DPC-ACPTLST-AREA. 001300 02 RECLEN PIC S9(9) COMP-5. 001400 02 SENDMODE PIC S9(9) COMP-5. 001500 02 CTLMODE PIC S9(9) COMP-5. 001600 02 CONABT PIC X(4). 001700 02 MSGLEN PIC S9(9) COMP-5. 001800 02 FILLER PIC X(16). 001900*第3パラメータのアドレスがポイントする領域を宣言 002000 01 MSG PIC X(32767). 002100*第4パラメータの領域を宣言 002200 01 APL-ID PIC 9(4) COMP-5.
【呼び出し形式】
003000 PROCEDURE DIVISION. 003100*DPCACCEPTの呼び出し 003200 CALL "XDpc_Accept" WITH STDCALL LINKAGE 003300 USING BY REFERENCE DPC-COMM-AREA 003400 DPC-ACPTLST-AREA 003500 MSG 003600 BY VALUE APL-ID.
