:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ICV-PARA.
02 RTNCD PIC S9(9) COMP.
02 RTNCD-DTL PIC S9(9) COMP.
02 WKAREA PIC X(56).
01 ICV-PARA01.
02 RTNCD PIC S9(9) COMP.
02 RTNCD-DTL PIC S9(9) COMP.
02 WKAREA PIC X(56).
01 ICV-PARA02.
02 RTNCD PIC S9(9) COMP.
02 RTNCD-DTL PIC S9(9) COMP.
02 WKAREA PIC X(56).
01 ICV-WORK PIC S9(9) COMP.
01 ICV-JEFKANA.
02 NAME PIC X(7) VALUE "JEFKANA".
02 NAME-T PIC X(1) VALUE X"00".
01 ICV-SJIS.
02 NAME PIC X(4) VALUE "SJIS".
02 NAME-T PIC X(1) VALUE X"00".
01 ICV-INDATA PIC X(100).
01 ICV-INSIZE PIC S9(9) COMP.
01 ICV-OUTDATA PIC X(100).
01 ICV-OUTSIZE PIC S9(9) COMP.
PROCEDURE DIVISION.
:
*=================================================================
* 標準コード変換初期化サブルーチン
*=================================================================
CALL "PFXSBICVIT" USING ICV-PARA.
:
*=================================================================
* 標準コード変換オープンサブルーチン "SJIS" -> "JEFKANA"
*=================================================================
CALL "PFXSBICVOP" USING ICV-PARA01 ICV-WORK ICV-JEFKANA ICV-SJIS.
:
*=================================================================
* 標準コード変換オープンサブルーチン "JEFKANA" -> "SJIS"
*=================================================================
CALL "PFXSBICVOP" USING ICV-PARA02 ICV-WORK ICV-SJIS ICV-JEFKANA.
:
*=================================================================
* 標準コード変換サブルーチン
*=================================================================
MOVE 14 TO ICV-INSIZE.
MOVE "標準コード変換" TO ICV-INDATA.
MOVE 100 TO ICV-OUTSIZE.
CALL "PFXSBICV" USING ICV-PARA01 ICV-WORK ICV-INDATA ICV-INSIZE
ICV-OUTDATA ICV-OUTSIZE.
:
*=================================================================
* 標準コード変換サブルーチン
*=================================================================
MOVE 18 TO ICV-INSIZE.
MOVE X"6128C9B8BDE0A5B3A1BCA5C9CAD1B4B92961" TO ICV-INDATA.
MOVE 100 TO ICV-OUTSIZE.
CALL "PFXSBICV" USING ICV-PARA02 ICV-WORK ICV-INDATA ICV-INSIZE
ICV-OUTDATA ICV-OUTSIZE.
:
*=================================================================
* 標準コード変換クローズサブルーチン
*=================================================================
CALL "PFXSBICVCL" USING ICV-PARA01 ICV-WORK.
:
*=================================================================
* 標準コード変換クローズサブルーチン
*=================================================================
CALL "PFXSBICVCL" USING ICV-PARA02 ICV-WORK.
:
*=================================================================
* 標準コード変換終了サブルーチン
*=================================================================
CALL "PFXSBICVED" USING ICV-PARA.
: |
