I need to pull a migrated dataset and their details from MCDS/decollect taken from MCDS, I ran the below JCL and it is completing with C000, but the problem is I am not getting any datas in the output file. I am using ICETOOL sort.
Note: The Decollect file which I took from MCDS has all migrated files but could not get the desired output from the SORT field.
//STEP1 EXEC PGM=ICETOOL,REGION=0M
//SYSPRINT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INDD DD DSN=MCDSFILE (or) DECOLLECT FILE from MCDS,
// DISP=SHR
//OUTDD DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG),SPACE=(CYL,(20,20),RLSE),UNIT=3390
//TEMP DD DSN=&&T1,
// DISP=(NEW,PASS),SPACE=(CYL,(20,20),RLSE),UNIT=3390
//TOOLIN DD *
SORT FROM(INDD) TO(TEMP) USING(INCL)
DISPLAY FROM(TEMP) LIST(OUTDD) BLANK TOTAL('') -
NOHEADER ON(5,44,CH) -
ON(51,4,BI) -
ON(57,4,BI)
//**
//INCLCNTL DD *
OPTION VLSHRT,VLSCMP,NOCHALT
INCLUDE COND=((9,1,CH,EQ,C'M'),AND,
(29,19,CH,EQ,C'OAA.PA.O0MMA.MASTER.'))
INREC FIELDS=(1,4,
5:29,44,
51:193,4,
57:197,4)
SORT FIELDS=(5,44,CH,A)
//*
Appreciate ur help. Thank you
//STEP1 EXEC PGM=ICETOOL,REGION=0M
//SYSPRINT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INDD DD DSN=MCDSFILE (or) DECOLLECT FILE from MCDS,
// DISP=SHR
//OUTDD DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG),SPACE=(CYL,(20,20),RLSE),UNIT=3390
//TEMP DD DSN=&&T1,
// DISP=(NEW,PASS),SPACE=(CYL,(20,20),RLSE),UNIT=3390
//TOOLIN DD *
SORT FROM(INDD) TO(TEMP) USING(INCL)
DISPLAY FROM(TEMP) LIST(OUTDD) BLANK TOTAL('') -
NOHEADER ON(5,44,CH) -
ON(51,4,BI) -
ON(57,4,BI)
//**
//INCLCNTL DD *
OPTION VLSHRT,VLSCMP,NOCHALT
INCLUDE COND=((9,1,CH,EQ,C'M'),AND,
(29,19,CH,EQ,C'OAA.PA.O0MMA.MASTER.'))
INREC FIELDS=(1,4,
5:29,44,
51:193,4,
57:197,4)
SORT FIELDS=(5,44,CH,A)
//*