16 lines
509 B
Plaintext
16 lines
509 B
Plaintext
//****
|
|
//* DTSUC30T - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM FISC AGNTS
|
|
//* (FROM F.A. TAPE)
|
|
//****
|
|
//STEP0100 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//STEP0100.INDD01 DD &FAFILE.,
|
|
// UNIT=DCTAPE,
|
|
// VOL=SER=&TVOLSER.,
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=&LBLKSZ.),
|
|
// LABEL=(2,BLP,EXPDT=98000), /* TRW SUPERUSER ONLY
|
|
//** LABEL=(1,SL,EXPDT=98000), /* THE REST OF US
|
|
// DISP=SHR
|
|
//**
|