本機能では、以下の2つの関数を提供しています。運用形態によってどちらを使用するか決定してください。2）は1）に第3パラメータを追加したものです。
XDpc_Connect
XDpc_Connect2
【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは以下の構造体の先頭アドレスです。
struct dpc_conlst
第2パラメータ
第2パラメータは以下の構造体の先頭アドレスです。
struct dpc_cinf
第3パラメータ
第3パラメータは以下の領域の値です。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第1パラメータのアドレスがポイントする構造体を宣言 001200 01 DPC-CONLST-AREA. 001300 02 APL-ID PIC 9(4) COMP-5. 001400 02 SYSNAME PIC X(8). 001500 02 RET-CODE PIC S9(9) COMP-5. 001600 02 D-CODE PIC S9(9) COMP-5. 001700 02 FILLER PIC X(16). 001800*第2パラメータのアドレスがポイントする構造体を宣言 001900 01 DPC-CINF-AREA. 002000 02 C-NO PIC X. 002100 02 FILLER PIC X. 002200 02 LOGON-STR POINTER. 002300 02 TEL-NO POINTER. 002400 02 CBUF POINTER. 002500*第3パラメータの領域を宣言 002600 01 SYSREQREQUIRED PIC 9(4) COMP-5. 002700* 002800*第2パラメータのメンバ（ポインタ変数）がポイントする領域を宣言 002900* 003000 01 ログオン文字列 PIC X(160). 003100 01 電話番号 PIC X(10). 003200 01 ホスト画面通知領域 PIC X(1920).
【呼び出し形式】
(1)XDpc_Connect
005000 PROCEDURE DIVISION. 005100 MOVE FUNCTION ADDR(ログオン文字列) TO LOGON-STR. 005200 MOVE FUNCTION ADDR(電話番号) TO TEL-NO. 005300 MOVE FUNCTION ADDR(ホスト画面通知領域) TO CBUF. 005400*DPCCONNECTの呼び出し 005500 CALL "XDpc_Connect" WITH STDCALL LINKAGE 005600 USING BY REFERENCE DPC-CONLST-AREA 005700 DPC-CINF-AREA.
(2)XDpc_Connect2
005000 PROCEDURE DIVISION. 005100 MOVE FUNCTION ADDR(ログオン文字列) TO LOGON-STR. 005200 MOVE FUNCTION ADDR(電話番号) TO TEL-NO. 05300 MOVE FUNCTION ADDR(ホスト画面通知領域) TO CBUF. 005400*DPCCONNECT2の呼び出し 005500 CALL "XDpc_Connect2" WITH STDCALL LINKAGE 005600 USING BY REFERENCE DPC-CONLST-AREA 005700 DPC-CINF-AREA 005800 BY VALUE SYSREQREQUIRED.
