7 lines
298 B
Plaintext
7 lines
298 B
Plaintext
//TXTWKR01 JOB (JCC),'JCC File I/O Test',
|
|
// NOTIFY=@05054,CLASS=A,MSGCLASS=H,
|
|
// MSGLEVEL=(1,1),REGION=4M,TIME=1440
|
|
//STEP1 EXEC JCCCLG,INFILE='@05054.SRCLIB.C(TXTWKR01)'
|
|
//GO.TESTDD DD DSN=@05054.DATA(TESTMEM),DISP=SHR,
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
|