20 lines
603 B
Plaintext
20 lines
603 B
Plaintext
//*****
|
|
//* EXTRACT MASTER FILE RECORDS FROM VSAM MASTER TO A FLAT FILE
|
|
//*****
|
|
//DTSUD991 PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=DTSBD991, EXTRACT SPECIFIED EMPLOYERS
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFMSTO DD DSN=&&EXTRACT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32760,(10000,10000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4096,BLKSIZE=32760)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSPR991),DISP=SHR
|
|
//****
|