trilokdewangan
New User
Joined: 19 Jun 2008 Posts: 39 Location: USA
|
|
|
|
Here is the JCL
Code: |
//BQBF003R JOB (B,X,52XX00),'ABHISHEK',PRTY=15,NOTIFY=&SYSUID,
// MSGCLASS=V
//*************************************************************
//*SET DATE=01/07/2009
//*
//JOBLIB DD DSN=BX87FT.AABC.CMNSTAGE.#000871.LOD,DISP=SHR
// DD DSN=BXXXB1.DB2.SDSNLOAD,DISP=SHR
// DD DSN=BXXXB1.DB2.RUNLIB.LOAD,DISP=SHR
// DD DSN=AX52BG.AABC.BTCHLIB,DISP=SHR
// DD DSN=SYS5.FNLST.V77.LOADLIB,DISP=SHR
// DD DSN=AX52BG.AABC.VNDRLIB,DISP=SHR
//JCLDSN JCLLIB ORDER=BX52XX.DMS93044.TEST.JES.JCLLIB
//*
//***********************UNCATALOG DATASETS********************
//UNCAT EXEC PGM=IEXUNCAT
//SYSIN DD *
BX52XX.S00.BQBF003.BRK73.FILEAID2.SSRKR
//*
//**********SORT OUTPUT OF BQP01702 IN PROCESSING TEAM ORDER****
//*
//FILEAIDE EXEC PGM=FILEAID
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//*SYSPRINT DD SYSOUT=(,,),OUTPUT=(*.OUT4A,*.OUT4,*.INFO)
//SYSPRINT DD SYSOUT=*
//DD01O DD DSN=BX52XX.S00.BQBF003.BRK73.FILEAID2.SSRKR,
// DISP=(NEW,CATLG),LABEL=RETPD=5,
// UNIT=DASD,SPACE=(23584,(200,50),RLSE),
// DCB=(RECFM=FBA,LRECL=134,BLKSIZE=23584)
//SYSIN DD *
$$DD010 USER,
MOVE=(1,C'1 DATE '),
MOVE=(31,C' '),
MOVE=(53,C'BF003 - ABC DATABASE ERROR AGING REPORT'),
MOVE=(92,C' '),
WRITE=DD01O,
MOVE=(1,C' '),
MOVE=(41,C' '),
MOVE=(63,C'LIFE ERROR REPORT'),
MOVE=(80,C' '),
WRITE=DD01O,
MOVE=(1,C' '),
MOVE=(41,C' '),
MOVE=(68,C'TEAMID'),
MOVE=(74,C' '),
MOVE=(111,C' '),
WRITE=DD01O,
MOVE=(1,C' CLM TM RLCS CONTROL ID ERROR '),
MOVE=(48,C' ERROR DT SOC SEC NUM LEGAL CONT '),
MOVE=(96,C' PLAN ID BENF PYMT GRP '),
WRITE=DD01O,
MOVE=(1,C' ******** ****************** *******'),
MOVE=(48,C' ********** ************* ************'),
MOVE=(96,C' ********* *************** '),
WRITE=DD01O,
MOVE=(1,C' '),
MOVE=(6,C'NO LIVES FOUND '),
MOVE=(51,C' '),
MOVE=(101,C' '),
WRITE=DD01O,
|
MAX CC is 04, it's creating output dataset as Empty |
|