Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Quote:
I want to modify it to print a little differently:
What are the "rules" for printing differently. Do you want the date from the second record of each pair in each case, or the highest date, or what?
It really would help if you showed an example of the input records you are operating on (that is, the GDG info resulting from the LISTCAT statement in &&L).
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
rmd3003 wrote:
CICS Guy wrote:
How about posting a portion of your input?
I'm not sure what "INPUT" you are talking about? This job prints GDG info.
rmd3003,
If your intention is to get the listing of create dates of your GDG's you need to sum the creation date values at pos 45 as the name and creation dates on different lines from the listcat output.
Remove the SORT FIELDS=COPY line and add these 2 lines
Code:
SORT FIELDS=(81,4,CH,A),EQUALS
SUM FIELDS=(45,4,PD)
Also remember that your output LRECL is 84 which has the seqnum at the end. You can remove them changing your OUTREC statement to the following.