000820 01  CALL-PAR.
000830     02 F          PIC X(15) VALUE "#NFCNV,DEV=MSD;".
000840     02 F          PIC X(25) VALUE "MN1=C_MN2=AD_PA1=MSD_PA3=".
000850     02 INFILNM    PIC X(17).
000860     02 F          PIC X(19) VALUE "_PA4=1_PA5=C80_PB1=".
000870     02 OUTFILPATH PIC X(25).
000880     02 F          PIC X(26) VALUE "_PB2=TXTJ_PB3=SHARE_PB7=C_".
000890     02 F          PIC X(14) VALUE "PB8=ADD_MN1=Q_".
000900     02 F          PIC X(02) VALUE "/>".
000910 01  CALL-SIZE     PIC 9(04) VALUE 143.

001040*
001050     MOVE 入力ファイル名               TO INFILNM.
001060     MOVE "D:\aaaa\出力ファイル名.TXT" TO OUTFILPATH.
001070*
001260     CALL "CBLRUN" USING CALL-PAR CALL-SIZE.
001280     STOP RUN.