Author: Sumanta_89
Subject: Need Help with : IFTHEN(WHEN=GROUP)
Posted: Wed Apr 19, 2017 5:23 pm (GMT 5.5)
Hi Super Coders,
I need a little help with this. My Input is the output from running the LISTCAT ALL for a GDG.
I want the record to be formatted.
This is the input
lrecl=80
LISTCAT ENT('B5293.MEDCO.UNETFILE.G5293214.SKIPD') ALL
GDG BASE ------ B5293.MEDCO.UNETFILE.G5293214.SKIPD
IN-CAT --- CATALOG.ICF.MCEBTOPS
HISTORY
DATASET-OWNER----TSUEMF6 CREATION--------2013.338
RELEASE----------------2 LAST ALTER------2017.108
ATTRIBUTES
LIMIT-----------------255 SCRATCH NOEMPTY LIFO NO
NOEXTENDED
ASSOCIATIONS
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0776V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0777V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0778V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0779V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0780V00
Right now I am using the sort card:
INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR,
04,7,CH,EQ,C'NONVSAM',OR,
37,8,CH,EQ,C'CREATION')
INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(81:17,44),
BEGIN=(1,8,CH,EQ,C'GDG BASE',OR,4,7,CH,EQ,C'NONVSAM'))
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),
IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))
OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION',OR,
16,5,CH,EQ,C'OWNER',OR,
08,5,CH,EQ,C'LIMIT'),
BUILD=(81,44,C' CREATED: ',125,4,DT1,EDIT=(TTTT-TT-TT)
And getting the output as:
B5293.MEDCO.UNETFILE.G5293214.SKIPD CREATED: 2013-12-04
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0776V00 CREATED: 2016-06-14
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0777V00 CREATED: 2016-06-15
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0778V00 CREATED: 2016-06-16
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0779V00 CREATED: 2016-06-17
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0780V00 CREATED: 2016-06-18
Now I want OWNER, and LIMIT in the GDG Base Row. [/Search]
_________________
Sumanta Kumar Patel | Optum Technology
TOPS SS&MO
Subject: Need Help with : IFTHEN(WHEN=GROUP)
Posted: Wed Apr 19, 2017 5:23 pm (GMT 5.5)
Hi Super Coders,
I need a little help with this. My Input is the output from running the LISTCAT ALL for a GDG.
I want the record to be formatted.
This is the input
lrecl=80
LISTCAT ENT('B5293.MEDCO.UNETFILE.G5293214.SKIPD') ALL
GDG BASE ------ B5293.MEDCO.UNETFILE.G5293214.SKIPD
IN-CAT --- CATALOG.ICF.MCEBTOPS
HISTORY
DATASET-OWNER----TSUEMF6 CREATION--------2013.338
RELEASE----------------2 LAST ALTER------2017.108
ATTRIBUTES
LIMIT-----------------255 SCRATCH NOEMPTY LIFO NO
NOEXTENDED
ASSOCIATIONS
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0776V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0777V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0778V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0779V00
NONVSAM--B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0780V00
Right now I am using the sort card:
INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR,
04,7,CH,EQ,C'NONVSAM',OR,
37,8,CH,EQ,C'CREATION')
INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(81:17,44),
BEGIN=(1,8,CH,EQ,C'GDG BASE',OR,4,7,CH,EQ,C'NONVSAM'))
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),
IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))
OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION',OR,
16,5,CH,EQ,C'OWNER',OR,
08,5,CH,EQ,C'LIMIT'),
BUILD=(81,44,C' CREATED: ',125,4,DT1,EDIT=(TTTT-TT-TT)
And getting the output as:
B5293.MEDCO.UNETFILE.G5293214.SKIPD CREATED: 2013-12-04
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0776V00 CREATED: 2016-06-14
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0777V00 CREATED: 2016-06-15
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0778V00 CREATED: 2016-06-16
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0779V00 CREATED: 2016-06-17
B5293.MEDCO.UNETFILE.G5293214.SKIPD.G0780V00 CREATED: 2016-06-18
Now I want OWNER, and LIMIT in the GDG Base Row. [/Search]
_________________
Sumanta Kumar Patel | Optum Technology
TOPS SS&MO