32 lines
1.1 KiB
Plaintext
32 lines
1.1 KiB
Plaintext
//PRUX420Q PROC 00010001
|
|
//*
|
|
//*****************************************************************
|
|
//***** EDIT ICESA 276 BYTE WAGE DATA AND BUILD W4 *****
|
|
//***** TRANSACTIONS *****
|
|
//*****************************************************************
|
|
//*
|
|
//STEP0100 EXEC PGM=BCP0430H,PARM='&LOGNO.&ZEROEMP.' 00080006
|
|
//ICESA DD DSN=DOESTAX.CONV.&LOGNODE.,
|
|
// DISP=SHR
|
|
//*
|
|
//W4FILE DD DSN=DOESTAX.CONV.&W4FILE,
|
|
// DISP=(MOD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(5,5)),
|
|
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
|
|
//*
|
|
//DTSFVRO1 DD DSN=DOESTAX.CONV.&EMFILE,
|
|
// DISP=(MOD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//PRINT DD SYSOUT=(*)
|
|
//LISTOUT DD SYSOUT=(*)
|
|
//SYSABOUT DD SYSOUT=(*)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//*
|