ページの先頭行へ戻る
DP/Cライブラリ ソフトウェア開発キット V7.2 使用手引書L10

3.1.7 DPCACCEPT

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


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

(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.