3.1.1 DPCOPEN

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

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

第1パラメータ
第1パラメータは以下の構造体の先頭アドレスです。
```
struct  dpc_opnlst 
```
第2パラメータ
第2パラメータは以下の領域のアドレスです。

(2)COBOLによる宣言

001000 WORKING-STORAGE SECTION.
001100*第1パラメータのアドレスがポイントする構造体を宣言
001200 01  DPC-OPNLST-AREA.
001300   02  PRIVATE-NAME PIC  X(8).
001400   02  RET-CODE     PIC S9(9) COMP-5.
001500   02  D-CODE       PIC S9(9) COMP-5.
001600   02  FILLER       PIC  X(16).
001700*第2パラメータのアドレスがポイントする領域を宣言 
001800 01  APL-ID         PIC  9(4) COMP-5.

【呼び出し形式】

003000 PROCEDURE DIVISION. 
003100*DPCOPENの呼び出し
003200       CALL "XDpc_Open" WITH STDCALL LINKAGE
003300                        USING BY REFERENCE DPC-OPNLST-AREA
003400                                           APL-ID.