//********************************************************************
//* OPERATOR INSTRUCTIONS - BATCH INPUT FROM A SEQ. data set
//* Note:
//* If output is to a stopped opc subsystem, change *QQOIDS to EQQOIDS
//********************************************************************
//OIBLK EXEC PGM=EQQBATCH,PARM='EQQOIBLK',REGION=2048K
//STEPLIB DD DISP=SHR,DSN=OPCDEV.STAGE.APFLIB
//EQQMLIB DD DISP=SHR,DSN=OPCSHIP.ESA131.MSGS
//EQQPARM DD DISP=SHR,DSN=EID.EIDA.PARM(EIDA)
//OIREPORT 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=*
//OIWKIN DD DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),
// SPACE=(CYL,(2,4)),UNIT=3390
//OIWKOUT DD DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),
// SPACE=(CYL,(2,4)),UNIT=3390
//OIWKWK01 DD SPACE=(CYL,(1,4)),UNIT=3390
//OIWKWK02 DD SPACE=(CYL,(1,4)),UNIT=3390
//OIWKWK03 DD SPACE=(CYL,(1,4)),UNIT=3390
//EQQADDS DD DSN=EID.EIDAR3.AD,DISP=SHR
//********************************************************
//* IF THE CONTROLLER IS STOPPED WHEN RUNNING THIS JOB,
//* CHANGE //*QQOIDS TO //EQQOIDS,
//*QQOIDS DD DSN=EID.EIDAR3.OI,DISP=SHR
//********************************************************
//EQQOPIN DD DSN=XRAYNER.OPERATOR.MESSAGES,DISP=SHR
//SYSIN DD *
8Y
/*