この機能は以下の関数を提供しています。運用形式によってどちらを使用するか決定してください。詳細は「第2章 言語インタフェースリファレンス」を参照してください。
1）XDpc_DBconvert
2）XDpc_DBconvreq、XDpc_DBconvrsp
【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは以下の構造体の先頭アドレスです。
struct dpcdbcom
第2パラメータ
第2パラメータは以下の構造体の先頭アドレスです。
struct dpcdbfct
第3パラメータ
第3パラメータは以下の領域の値です。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第1パラメータのアドレスがポイントする構造体を宣言 001200 01 DPCDBCOM-AREA. 001300 02 DB-CONVREC PIC S9(9) COMP-5. 001400 02 DB-RETCODE PIC 9(4) COMP-5. 001500 02 DB-DETAIL PIC 9(4) COMP-5. 001600 02 FILLER PIC X(16). 001700*第2パラメータのアドレスがポイントする構造体を宣言 001800 01 DPCDBFCT-AREA. 001900 02 DB-SYSNAME PIC X(8). 002000 02 DB-FID PIC X(8). 002100 02 DB-PRIME PIC S9(9) COMP-5. 002200 02 DB-SECOND PIC S9(9) COMP-5. 002300 02 DB-RECSIZE PIC S9(9) COMP-5. 002400 02 DB-VOL PIC X(6). 002500 02 FILLER PIC X(16). 002600*第3パラメータの領域を宣言 002700 01 APL-ID PIC 9(4) COMP-5.
【呼び出し形式】
003000 PROCEDURE DIVISION. 003100*DPCDBCONVERTの呼び出し 003200 CALL "XDpc_DBconvert" WITH STDCALL LINKAGE 003300 USING BY REFERENCE DPCDBCOM-AREA 003400 DPCDBFCT-AREA 003500 BY VALUE APL-ID.
・XDpc_DBconvreq
【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは以下の領域のアドレスです。
第2パラメータ
第2パラメータは以下の構造体の先頭アドレスです。
struct dpcdbcom2
第3パラメータ
第3パラメータは以下の構造体の先頭アドレスです。
struct dpcdbfct2
第4パラメータ
第4パラメータは以下の領域の値です。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第1パラメータのアドレスがポイントする領域を宣言 001200 01 DBCONV-ID PIC S9(9) COMP-5. 001300*第2パラメータのアドレスがポイントする構造体を宣言 001400 01 DPCDBCOM2-AREA. 001500 02 DB-CONVREC PIC S9(9) COMP-5. 001600 02 DB-RETCODE PIC 9(4) COMP-5. 001700 02 DB-DETAIL PIC 9(4) COMP-5. 001800 02 DB-HOSTDETAIL PIC S9(9) COMP-5. 001900 02 FILLER PIC X(12). 002000*第3パラメータのアドレスがポイントする構造体を宣言 002100 01 DPCDBFCT2-AREA. 002200 02 DB-SYSNAME PIC X(8). 002300 02 DB-FID PIC X(8). 002400 02 DB-PRIME PIC S9(9) COMP-5. 002500 02 DB-SECOND PIC S9(9) COMP-5. 002600 02 DB-RECSIZE PIC S9(9) COMP-5. 002700 02 DB-VOL PIC X(6). 002800 02 DB-CLISTLENG PIC S9(4) COMP-5. 002900 02 DB-CLIST POINTER. 003000 02 FILLER PIC X(16). 003100*第4パラメータの領域を宣言 003200 01 APL-ID PIC 9(4) COMP-5. 003300* 003400*第3パラメータのメンバ（DB-CLIST）がポイントする領域を宣言 003500* 003600 01 条件式 PIC X(4096).
【呼び出し形式】
005000 PROCEDURE DIVISION. 005100 MOVE FUNCTION ADDR(条件式) TO DB-CLIST. 005200*DPCDBCONVREQの呼び出し 005300 CALL "XDpc_DBconvreq" WITH STDCALL LINKAGE 005400 USING BY REFERENCE DBCONV-ID 005500 DPCDBCOM2-AREA 005600 DPCDBFCT2-AREA 005700 BY VALUE APL-ID.
・DPCDBCONVRSP
【パラメータ領域の宣言】
(1)パラメータ領域の形式
第1パラメータ
第1パラメータは以下の領域の値です。
第2パラメータ
第2パラメータは以下の領域のアドレスです。
第3パラメータ
第3パラメータは以下の構造体の先頭アドレスです。
struct dpcdbcom2
第4パラメータ
第4パラメータは以下の領域の値です。
(2)COBOLによる宣言
001000 WORKING-STORAGE SECTION. 001100*第1パラメータの領域を宣言 001200 01 DBCONV-ID PIC S9(9) COMP-5. 001300*第2パラメータのアドレスがポイントする領域を宣言 001400 01 COMPLETE PIC 9(4) COMP-5. 001500*第3パラメータのアドレスがポイントする構造体を宣言 001600 01 DPCDBCOM2-AREA. 001700 02 DB-CONVREC PIC S9(9) COMP-5. 001800 02 DB-RETCODE PIC 9(4) COMP-5. 001900 02 DB-DETAIL PIC 9(4) COMP-5. 002000 02 DB-HOSTDETAIL PIC S9(9) COMP-5. 002100 02 FILLER PIC X(12). 002200*第4パラメータの領域を宣言 002300 01 APL-ID PIC 9(4) COMP-5.
【呼び出し形式】
003000 PROCEDURE DIVISION. 003100*DPCDBCONVRSPの呼び出し 003200 CALL "XDpc_DBconvrsp" WITH STDCALL LINKAGE 003300 USING BY VALUE DBCONV-ID 003400 BY REFERENCE COMPLETE 003500 DPCDBCOM2-AREA 003600 BY VALUE APL-ID.
