オフコン練習帳

Re:ログの抽出をJCLで出来ないか？ 0e0e 2008-4-9 10:43

3 Re:ログの抽出をJCLで出来ないか？

0e0e 2008-4-9 10:43 [返信] [編集]


/SET SKIP;                                                                 0001
/RUN #LGEDT;                                                               0002
02_SYS@LOG_XXXJOBLOG_MSD_MSD001_                                           0003
/> ;                                                                       0004
/RUN XXXXXX,FIL=XXX-LML,DEV=MSD;                                           0008
/> ;                                                                       0009
/RUN #ABC,DEV=MSD;                                                         0010
MN1=01_MN2=01_MN3=02_PA1=MSD001_PA2=XXXJOBLOG_O03=YES_EXP=YES_             0011
MN1=99_                                                                    0013
/> ;                                                                       0014

こんなのでXXXJOBLOG（仮）というファイルに抜けます。

　256/1 RELATIVE

そのままでは中身が見えませんので、COBOLのプログラムの最初で
CALL ”SYSEDWR” を使ってファイルの最後にEODをつけます。
あとは好き勝手にデータ処理できます。