shivashunmugam Muthu
Active User
Joined: 22 Jul 2005 Posts: 114 Location: Chennai
|
|
|
|
Sorry hav this below
See below for the JCL's
JOB 1
Code: |
//STEP010 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&&L,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSIN DD *
LISTCAT ENT('GDG BASE HERE') NAME
//*
//***************************************************************
//STEP020 EXEC PGM=ICETOOL
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=&&L,DISP=(OLD,DELETE)
//TMP DD DSN=&&T,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),RECFM=FB
//CARD DD DSN=&&CARD,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//TOOL DD DSN=&&TOOL,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//DD DD DSN=&&DD,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//INPUT DD DSN=&&INPUT,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(TMP) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=TMP,CONVERT,OUTREC=(6,80)
//CTL2CNTL DD *
INCLUDE COND=(4,7,CH,EQ,C'NONVSAM')
OUTFIL FNAMES=DD,
OUTREC=(C'//',10X,
C'DD',X,
C'DSN=',17,27,
C',DISP=SHR',
26X)
/*
//*
//STEP030 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&DD,DISP=(OLD,DELETE)
//OUT1 DD DSN=OUTFILE1(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(LRECL=78,RECFM=FB,BLKSIZE=0)
//OUT2 DD DSN=OUTFILE2(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(LRECL=78,RECFM=FB,BLKSIZE=0)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT1,ENDREC=1,OUTREC=(C'//SORTIN',4X,13,66)
OUTFIL FNAMES=OUT2,SAVE
/*
//*
//STEP040 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=OUTFILE1(+1),DISP=SHR
// DD DSN=OUTFILE2(+1),DISP=SHR
//SORTOUT DD DSN=MYPDS(SORTSYS),DISP=OLD
//SYSIN DD *
SORT FIELDS=COPY
/*
//*
|
JOB 2
Code: |
//MYLIB JCLLIB ORDER=(MYPDS)
//STEP001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTINF INCLUDE MEMBER=SORTSYS
//SORTOUT DD DSN=OUTFILE3(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(*.SORTIN)
//SYSIN DD *
SORT FIELDS=COPY
/*
|
|
|