82 lines
3.0 KiB
Plaintext
82 lines
3.0 KiB
Plaintext
//DESBD110 PROC
|
|
//****
|
|
//* BATCH UPDATE OF ELECTRONIC MEDIA FILES
|
|
//* STEP0100: SELECT RECORDS FOR UPDATE
|
|
//****
|
|
//* STEP0100: MERGE ELECTRONIC MEDIA RECORDS TO BE LOADED TO
|
|
//* MASTER FILE. INPUT FILES PRODUCED DURING DAILY PROCESSING
|
|
//* OF WAGE TAPES AND DISKS.
|
|
//*
|
|
//* INPUT FILES:
|
|
//* DOESTAX.&LVLNODE..XXEMTRAN
|
|
//* CONTAINS ELECTRONIC MEDIA RECORDS
|
|
//* DOESTAX.&LVLNODE..XXW4TRAN
|
|
//* CONTAINS W4 WAGE TRANSACTIONS
|
|
//* DOESTAX.&LVLNODE..VSAM.OLA
|
|
//* CONTAINS T061 TRIGGER RECORDS FOR EACH ITEM TO
|
|
//* BE PROCESSED. THE ITEMS ARE IDENTIFIED BY LOG NO.
|
|
//*
|
|
//* STEP0100: MERGE THE ELECTRONIC MEDIA INPUT FILES TO &&BD110EM
|
|
//* MERGE THE W4 WAGE TRANSACTION INPUT FILES TO &&BD110W4
|
|
//*
|
|
//* STEP0200 SELECTS THE LOG NUMBERS TO BE PROCESSED DURING
|
|
//* THIS RUN, AND EXTRACTS RECORDS WITH THOSE LOG
|
|
//* NUMBERS TO THE FOLLOWING DATA SETS:
|
|
//*
|
|
//* W4 TRANSACTIONS: DOESTAX.CONV.W4TRAN
|
|
//* EM TRANSACTIONS: DOESTAX.CONV.EMTRAN
|
|
//******************************************************************
|
|
//STEP0100 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.CONV.GBEMTRAN,DISP=SHR
|
|
//OUTDD01 DD DSN=&&BD110EM,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//STEP0110 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.CONV.GBW4TRAN,DISP=SHR
|
|
//OUTDD01 DD DSN=&&BD110W4,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,20),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//*********************************************************************
|
|
//* SELECT RECORDS BY LOG NUMBER, BASED ON T061 RECORDS
|
|
//* IN OLA FILE.
|
|
//*********************************************************************
|
|
//STEP0200 EXEC PGM=DESBD110,
|
|
// COND=(0,LT)
|
|
//DTSFOLAI DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR,
|
|
// AMP=('BUFND=10')
|
|
//DTSFVRI1 DD DSN=&&BD110EM, ELECTRONIC MEDIA DATA
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//DTSFVRO1 DD DSN=&&EMTRAN,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//DTSFVRO2 DD DUMMY
|
|
//**DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..EMTRIG(+1),
|
|
//** DISP=(NEW,CATLG,DELETE),
|
|
//** UNIT=SYSDA,
|
|
//** SPACE=(8192,(1000,1000),RLSE),
|
|
//** DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//BD110W4 DD DSN=&&BD110W4, WAGE DATA
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//BD110W4O DD DSN=&&W4TRAN,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//**
|