0106仕様書無しさん
2014/07/21(月) 09:34:49.38実行にこんなめんどくさいことやらなきゃいけないらしいぜ
//JOBA JOB CLASS=A,MSGCLASS=0,MSGLEVEL=1
//JOBLIB DD DSN=AAA.LIB,DISP=SHR
//STEPA EXEC PGM=CBL01
//INF DD DSN=TEKITO.IN,DISP=SHR
//OUTF DD DSN=TEKITO.OUT,DISP=(NEW,CATLG,DELETE),
UNIT=DISK,DCB=(RECFM=FB,LRECL=100,BLKSIZE=1000),
SPACE=(TRK,10,10),RLSE)