40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
//****
|
|
//* COPY UNEDITED WAGE DATA FROM TAPE
|
|
//* TO DISK FILE TO BE EDITED
|
|
//*
|
|
//* PARMS NEEDED FOR THIS PROC:
|
|
//*
|
|
//* LVLNODE= DEVL/TEST/PROD
|
|
//* LOGNODE= LAST NODE IN OUTPUT FILE NAME, CONSISTING
|
|
//* OF OPERATOR'S INITIALS PLUS LOG NUMBER
|
|
//* LOGNO= 6 DIGIT LOG NUMBER ASSIGNED TO TAPE
|
|
//* VOLSER= 6 VOL SER NUMBER ASSIGNED TO TAPE
|
|
//* LABEL= TYPE OF LABEL PROCESSING (NL, SL, BLP)
|
|
//* UNIT= TYPE OF UNIT (TAPE, CART)
|
|
//* RECL= RECORD LENGTH
|
|
//* BLKIN= BLOCKSIZE OF THE INPUT TAPE FILE
|
|
//* BLKOUT= BLOCKSIZE OF THE OUTPUT DISK FILE
|
|
//* WAGEIN= THE NAME OF THE INPUT TAPE, NORMALLY
|
|
//* 'WAGE.CART'
|
|
//*
|
|
//DESWLOAD PROC
|
|
//*
|
|
//STEP0100 EXEC PGM=IDCAMS,REGION=700K
|
|
//IFILE DD DSN=&WAGEIN.,
|
|
// VOL=SER=&VOLSER., //**FOR CART
|
|
// LABEL=(&LABEL.,,,EXPDT=98000), //** ONLY
|
|
// UNIT=&UNIT.,
|
|
// RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKIN.,
|
|
// DISP=SHR
|
|
//***
|
|
//OFILE DD DSN=DOESTAX.CONV.&LOGNODE.,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// SPACE=(CYL,(10,5)),
|
|
// UNIT=SYSDA,
|
|
// DCB=(RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKOUT)
|
|
//***
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(WAGECART),DISP=SHR
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSUDUMP DD SYSOUT=(*)
|
|
//***
|