DP／Cライブラリ ソフトウェア開発キット V7.2 使用手引書L10

3.1.5 DPCBEGIN

【パラメータ領域の宣言】

(1)パラメータ領域の形式

• 第1パラメータ

  第1パラメータは共通パラメータ構造体の先頭アドレスです。

• 第2パラメータ

  第2パラメータは以下の構造体の先頭アドレスです。

  struct  dpc_bgnlst

  

• 第3パラメータ

  第3パラメータは以下の領域の先頭アドレスです。

  

• 第4パラメータ

  第4パラメータは以下の領域の値です。

  

  
  

(2)COBOLによる宣言

001000 WORKING-STORAGE SECTION.
001100*第2パラメータのアドレスがポイントする構造体を宣言
001200 01  DPC-BGNLST-AREA.
001300   02  MSGLEN   PIC S9(9) COMP-5.
001400   02  SENDMODE PIC S9(9) COMP-5.
001500   02  APLNAME  PIC  X(8).
001600   02  SYSNAME  PIC  X(8).
001700   02  FILLER   PIC  X(16).
001800*第3パラメータのアドレスがポイントする領域を宣言
001900 01  MSG        PIC  X(32767).
002000*第4パラメータの領域の宣言
002100 01  APL-ID     PIC  9(4) COMP-5.

【呼び出し形式】

003000 PROCEDURE DIVISION.
003100*DPCBEGINの呼び出し
003200       CALL "XDpc_Begin" WITH STDCALL LINKAGE
003300                         USING BY REFERENCE DPC-COMM-AREA
003400                                            DPC-BGNLST-AREA
003500                                            MSG
003600                               BY VALUE     APL-ID.