//******************************************************************
//* APPLICATION PRINT PROGRAM
//******************************************************************
//ADPRT EXEC PGM=EQQBATCH,PARM='EQQADPRT',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)
//ADREPORT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6050)
//ADREPRT2 DD DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6050),
// SPACE=(CYL,(3,1)),DISP=(NEW,DELETE),UNIT=3390
//EQQMLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSMDUMP DD DISP=MOD,DSN=EID.EIDA.SYSDUMPB
//EQQDUMP DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//ADPRIN DD DCB=(LRECL=200,BLKSIZE=3200,RECFM=FB),
// SPACE=(CYL,(3,1)),DISP=(NEW,DELETE),UNIT=3390
//ADPROUT DD DCB=(LRECL=200,BLKSIZE=3200,RECFM=FB),
// SPACE=(CYL,(3,1)),DISP=(NEW,DELETE),UNIT=3390
//ADPRWK01 DD SPACE=(CYL,(3,1)),UNIT=3390
//ADPRWK02 DD SPACE=(CYL,(3,1)),UNIT=3390
//ADPRWK03 DD SPACE=(CYL,(3,1)),UNIT=3390
//EQQADDS DD DSN=EID.EIDAR3.AD,DISP=SHR
//EQQAD2DS DD DSN=EID.EIDAR3.AD,DISP=SHR
//ADUSERDS DD DSN=NULLFILE,DISP=SHR
//SYSIN DD *
4200000001
SAMPLE
//* =PARAMETERS(ABCDEFGHIJ)
//* A = 1 APPLICATIONS, A = 2 DEPENDENCIES, A = 3 OPERATIONS
//* A = 4 APPLIC VS OWNER
//* B = 1 ALL APLICATIONS, B = 2 SELECTED ITEM, B = 3 FROM FILE
//* CDEFGH = (YYMMDD)
//* IJ = NUMBER OF ITEMS