オフコン練習帳

7 Re:JCL上での質問です

0e0e 2005-12-14 12:14 [返信] [編集]

こんな感じかな・・・

workで


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.

JCL上での質問です RH 2005-12-13 20:10

Re:JCL上での質問です江須扇 2005-12-13 21:52

Re:JCL上での質問ですオフコン人 2005-12-13 22:01

ありがとうございます RH 2005-12-13 23:25

ありがとうございます RH 2005-12-13 23:21

システムサブルーチンを利用？うどん 2005-12-14 11:10

Re:内部コール江須扇 2005-12-14 12:35

Re:JCL上での質問です 0e0e 2005-12-14 12:14 ←いまここ～

ありがとうございます！ RH 2005-12-14 19:47

Re:ありがとうございます！オフコン人 2005-12-15 23:47