To print latest multiple GDG version with its record count



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

To print latest multiple GDG version with its record count

Postby manyasahu » Wed Dec 11, 2013 1:31 pm

I have created a jcl to print 4 different GDG vesion with its record count but I am not getting latest GDG vesion name in output file.
manyasahu
 
Posts: 4
Joined: Wed Dec 11, 2013 1:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: To print latest multiple GDG version with its record count

 

Re: To print latest multiple GDG version with its record cou

Postby manyasahu » Wed Dec 11, 2013 1:37 pm

//JOB123 JOB (META0107),'MANYA',PRTY=15,       
//       MSGLEVEL=(1,1),CLASS=A,MSGCLASS=0     
//JOBLIB DD DISP=SHR,DSN=TSUIY0C.MANYA.LOADLIB
//S1    EXEC  PGM=ICETOOL                     
//TOOLMSG DD SYSOUT=*                         
//DFSMSG  DD SYSOUT=*                         
//IN1 DD DSN=T5864.G5864PS1.B586411A(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN2 DD DSN=T5864.G5864PS1.B586411B(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN3 DD DSN=T5864.G5864PS1.B586411C(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN4 DD DSN=T5864.G5864PS1.B586411D(0),       
// DISP=(SHR,KEEP,KEEP)                       
//**>> Use a MOD output file for //OUT         
//OUT DD DISP=MOD,DSN=TSUIY0C.MANYA.COUNTOUT   
//TOOLIN DD *                                 
COPY FROM(IN1) USING(CTL1)                     
COPY FROM(IN2) USING(CTL2)                   
COPY FROM(IN3) USING(CTL3)                   
COPY FROM(IN4) USING(CTL4)                   
/*                                           
//CTL1CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE1',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL2CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE2',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL3CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE3',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL4CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE4',5X,COUNT=(M10,LENGTH=5))
/*
manyasahu
 
Posts: 4
Joined: Wed Dec 11, 2013 1:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: To print latest multiple GDG version with its record cou

Postby manyasahu » Wed Dec 11, 2013 1:41 pm

I used the bove jcl to find the record count and the output i am getting is as below:

****** ********************
000001 FILE1         125   
000002 FILE2         189   
000003 FILE3         211   
000004 FILE4         1899 
****** ********************


But I want output not as above. I want the latest GDG version names instead of file1, file2, file 3
manyasahu
 
Posts: 4
Joined: Wed Dec 11, 2013 1:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: To print latest multiple GDG version with its record cou

Postby NicC » Wed Dec 11, 2013 7:02 pm

Firstly, welcome to the forum! Now for the nitpicking...
Are you 100% sure that you are using "versions" and not generation datasets - a version has a GxxxxVyy where Vyy is greater than V00?
You are wanting the actual file name in the output? Is this a one-off job, a sporadicly required job or a regular production job? If a once-off or "on request" then hard-code the names in your sort control cards. If a production job you will have to have a means of generating your sort control cards dynamically to do what you want - maybe a Rexx program immediately before-hand. Search the forum for similar topics.
Will there always be 4 datasets?
Finally, please find out how to use the code-tags and present stuff from your screen using them. I will "code up" your previous posts for you so that you can see the diference.
Also finally, You can edit your posts for up to 10 minutes after the first post time so you did not need to make 3 posts. (It can be a good idea to actually write your posts up in the text editor of your choice and review it before cutting and pasting into the reply box. And use the Preview button (available when you select "Full Editor").

Oh yes - finally finally: this is not a JCL question but a Sort/ICETool problem so you should have posted there. Topic moved.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2690
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisys (almost)
Has thanked: 4 times
Been thanked: 105 times

Re: To print latest multiple GDG version with its record cou

Postby manyasahu » Fri Dec 13, 2013 4:57 pm

manyasahu wrote:
//JOB123 JOB (META0107),'MANYA',PRTY=15,       
//       MSGLEVEL=(1,1),CLASS=A,MSGCLASS=0     
//JOBLIB DD DISP=SHR,DSN=TXXXXXX.MANYA.LOADLIB
//S1    EXEC  PGM=ICETOOL                     
//TOOLMSG DD SYSOUT=*                         
//DFSMSG  DD SYSOUT=*                         
//IN1 DD DSN=TXXXX.GXXXXXX.BXXXXA(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN2 DD DSN=TXXXX.GXXXXXX.BXXXX1B(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN3 DD DSN=TXXXX.GXXXXXX.BXXXX1C(0),       
// DISP=(SHR,KEEP,KEEP)                       
//IN4 DD DSN=TXXXX.GXXXXXX.BXXXXD(0),       
// DISP=(SHR,KEEP,KEEP)                       
//**>> Use a MOD output file for //OUT         
//OUT DD DISP=MOD,DSN=TXXXX.MANYA.COUNTOUT   
//TOOLIN DD *                                 
COPY FROM(IN1) USING(CTL1)                     
COPY FROM(IN2) USING(CTL2)                   
COPY FROM(IN3) USING(CTL3)                   
COPY FROM(IN4) USING(CTL4)                   
/*                                           
//CTL1CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE1',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL2CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE2',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL3CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE3',5X,COUNT=(M10,LENGTH=5))
/*                                           
//CTL4CNTL DD *                               
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,       
    TRAILER1=('FILE4',5X,COUNT=(M10,LENGTH=5))
/*
manyasahu
 
Posts: 4
Joined: Wed Dec 11, 2013 1:09 pm
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post