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

3.1.6 DPCTRANSFER

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

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

• 第1パラメータ

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

• 第2パラメータ

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

  struct  dpc_trnlst

  

• 第3パラメータ

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

  

• 第4パラメータ

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

  

  
  

(2)COBOLによる宣言

001000 WORKING-STORAGE SECTION.
001100*第2パラメータのアドレスがポイントする構造体を宣言
001200 01  DPC-TRNLST-AREA.
001300   02  MSGLEN   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  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*DPCTRANSFERの呼び出し
003200       CALL "XDpc_Transfer" WITH STDCALL LINKAGE
003300                            USING BY REFERENCE DPC-COMM-AREA 
003400                                               DPC-TRNLST-AREA
003500                                               MSG
003600                                  BY VALUE     APL-ID.