Copy gdgs of previous month

rocky_balboa · Posted: Sat Jan 29, 2011 1:17 pm

Hi
I need to copy data for a gdg for all the generations in the previous month to a new file.

I am not implementing a regular process(through date routines or transaction timestamps) but an ad-hoc for some reporting purposes. I was able to it for current day. The challenge I am facing is that LISTCAT does not produce the date but day of the year.

//S1 EXEC PGM=IKJEFT01
//SYSTSPRT DD DSN=YYYYYYYYYYYY,
// DISP=(OLD,CATLG,CATLG),SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
LISTCAT ENT('XX.YY.GDG') ALL
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
CURRDATE,S'&LYR4..&LJDAY'
/*
//SORTIN DD DSN=YYYYYYYYYYYYYYY,DISP=SHR
//SORTOUT DD DSN=XXXXXXXXXXXX,
// DISP=(OLD,CATLG,CATLG),SPACE=(CYL,(1,2),RLSE),UNIT=SYSDA,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000)
//SYSIN DD *
OPTION COPY
INCLUDE COND=(4,7,CH,EQ,C'NONVSAM',OR,
37,8,CH,EQ,C'CREATION')
INREC IFTHEN=(WHEN=GROUP,RECORDS=2,
BEGIN=(4,7,CH,EQ,C'NONVSAM'),PUSH=(81:17,44)),
IFTHEN=(WHEN=(53,8,CH,EQ,CURRDATE),OVERLAY=(125:SEQNUM,3,ZD))
OUTFIL IFOUTLEN=80,NULLOFL=RC4,
INCLUDE=(53,8,CH,EQ,CURRDATE),
IFTHEN=(WHEN=(125,3,ZD,EQ,1),
BUILD=(C'//SYSUT1 DD DISP=SHR,DSN=',81,44,80:X)),
IFTHEN=(WHEN=NONE,
BUILD=(C'// DD DISP=SHR,DSN=',81,44,80:X))
/*
//SUBJCL EXEC PGM=ICEMAN,COND=(4,EQ,S2)
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=(A,INTRDR)
//SORTIN DD DATA,DLM=$$
//aaaaaa@ JOB ('0000,0000,0000,T'),
// 'xxxx',CLASS=A,MSGCLASS=P,NOTIFY=&SYSUID,REGION=6M
/*JOBPARM S=TSYS
//GDGCUR EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT2 DD DSN=xxxxxxxxxxxxx,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
$$
// DD DSN=xxxxxxxxxxxxxx,DISP=SHR
//SYSIN DD *
OPTION COPY
/*

expat · Posted: Sat Jan 29, 2011 5:16 pm

If you parse LISTCAT through REXX you can use the date routines of REXX to get the correct date ranges.

You can also use IGGCSIRX (after some tinkering) from SYS1.SAMPLIB to get creation dates.

Also using REXX you can invoke ISPF file tailoring services to generate and submit the JCL all from within one single REXX EXEC.

rocky_balboa · Posted: Sat Jan 29, 2011 9:55 pm

Thanks expat. But I do not know REXX as of now. I am looking for a DFSORT/ICEMAN/ICETOOL date function. Please move my post to DFSORT if that is where I could receive some guidance.

I initially posted it in JCL as it was related to gdgs...

dick scherrer · Posted: Sun Jan 30, 2011 4:25 am

Hello,

As your system uses Syncsort, this JCL part of the forum is the proper place for your topic.

You need to look at the Syncsort documentation. You could als look thru previous Syncsort topics that discuss something similar.

Skolusu · Posted: Tue Feb 01, 2011 6:03 am