MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Explain what ICETOOL will do for trailer count

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
esaccy
Beginner


Joined: 26 May 2011
Posts: 7
Topics: 4
PostPosted: Tue May 31, 2011 2:55 am    Post subject: Explain what ICETOOL will do for trailer count Reply with quote
Hi,
Can you please explain what this JCL will do

Code:
Code:

STEP0010 EXEC PGM=ICETOOL,COND=(0,NE)         
*                                             
         INCLUDE MEMBER=SLBDFSRT               
*                                             
TOOLMSG  DD  SYSOUT=*                         
DFSMSG   DD  SYSOUT=*                         
TOOLIN   DD  DSN=ALC.ACPD.PARMLIB(DCZUP03A),   
             DISP=SHR                         
CTL1CNTL DD  DSN=ALC.ACPD.PARMLIB(DCZUP03B),   
             DISP=SHR                         
CTL2CNTL DD  DSN=ALC.ACPD.PARMLIB(DCZUP03C),   
             DISP=SHR                         
*                                             
INFILE   DD  DSN=&HLQ..CZ.PDCZTR01.S010F01(0),
             DISP=SHR                         
*                                             
OUTFIL1  DD  DSN=&&TEMP01,                     
             DISP=(,PASS),                     
             UNIT=SYSDA,                       
             SPACE=(TRK,(1,1),RLSE)           
*                                             
SYSIN    DD  DUMMY                             
SYSPRINT DD  SYSOUT=*                   
IOCOUNTS DD  SYSOUT=*,OUTLIM=1000       
SYSOUT   DD  SYSOUT=*                   
ABENDAID DD  SYSOUT=*                   
SYSUDUMP DD  SYSOUT=*                   
SNAPSHOT DD  SYSOUT=*                     


Code:
Code:

TOOLIN   is
 COPY FROM(INFILE) USING(CTL1)       
 COUNT FROM(OUTFIL1) EMPTY USING(CTL2)

CTL1CNTL   is
  OUTFIL FNAMES=OUTFIL1,REMOVECC,NODETAIL,   
   TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))

CTL2CNTL   is
   INCLUDE COND=(5,6,ZD,EQ,11,6,ZD)


My i/p file is Fb file and the records are like this
Code:

"Mr","Doctra","jkascscaj","isccsl",jdhdj"
"Mr","sbjs","bjjwfk","bjsjsc","bjscjscxx"
"Mr","fjwj","bjccbb","bdhjjk","ndjdjdbn"
TRAILER000003.



please explain what the ICETOOL will do for my input file?
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Tue May 31, 2011 10:46 am    Post subject: Reply with quote
esaccy,

Is this a working JCL? Your control cards does not match the file contents. Are you sure that the count of records on the trailer record starts at position 8 and not 12?

The first copy operator will pull the trailer record and copy the contents in pos 12 for 6 bytes and also will a write a count of the total number of records not considering the last record in position 7 for a length of 6 bytes.

The next count operation does not make any sense as the counts are in position 1 and 7 but the include cond is checking for positions 5 and 11.
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India
PostPosted: Wed Jun 01, 2011 3:38 am    Post subject: Reply with quote
Is not it posted on other Forum as well and Frank has answered too?
_________________
Regards,
Anuj
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group