//*********************************************************************
//* APPLICATION DESCRIPTION MASS UPDATE
//*********************************************************************
//*
//ADMUP EXEC PGM=EQQBATCH,PARM='EQQADMUP',REGION=2048K
//STEPLIB DD DISP=SHR,DSN=OPCDEV.TEST.APFLIB
//EQQMLIB DD DISP=SHR,DSN=OPCDEV.TEST.MSGS
//EQQPARM DD DISP=SHR,DSN=EID.EIDA.PARM(EIDA)
//MUREPORT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6050)
//EQQMLOG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSMDUMP DD DISP=MOD,DSN=EID.EIDA.SYSDUMPB
//EQQDUMP DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//EQQADDS DD DSN=EID.EIDAR3.AD,DISP=SHR
//EQQWSDS DD DSN=EID.EIDAR3.WS,DISP=SHR
//*********************************************************************
//* C A U T I O N
//* RENUMBERING THIS MEMBER AS WELL AS UPDATING THE SYSIN CARDS
//* MAY DAMAGE THE INPUT PARAMETERS TO THE AD MASS UPDATE BATCHJOB.
//*********************************************************************
//SYSIN DD *
XRAYNER U OG ( SAMPLE
CPU1 Y Y
OG - SAMPLE CPU1
D
/*