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