Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Two Almost Identical ICETOOLs Getting different results.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue Apr 24, 2012 12:36 am    Post subject: Two Almost Identical ICETOOLs Getting different results.
Reply with quote

I have setup and executed two ICETOOL steps reading an input file that is FB/574 and writing an output file that is FB/574.

Input file attributes are:
Code:

DATA SET NAME:          HLQ.IDENTITY.OUTDOOR.FULL               
                                                                 
   Volume serial:          PL5A23                               
   Device type:            3390, (trks/cyl 15, blks/trk 2)       
   Organization:           PS                                   
   Record format:          FB                                   
   Record length:          574                                   
   Block size:             27552                                 
   Allocation units:       CYLINDER                             
   Space allocated:        29                                   
   Space used:             29                                   
   Primary allocation:     20                                   
   Secondary allocation:   5                                     
   Extents used:           3                                     
   Creation date:          2012/114                             
   Expiration date:        0                                     


The JCL follows:

Code:

//DELETE1 EXEC PGM=IDCAMS                                                     
//SYSPRINT DD SYSOUT=*                                                         
//SYSIN    DD *                                                               
 DELETE HLQ.ICETEST1                                                         
 SET MAXCC=0                                                                   
//S1   EXEC  PGM=ICETOOL                                                       
//TOOLMSG   DD  SYSOUT=*                                                       
//DFSMSG    DD  SYSOUT=*                                                       
//TOOLIN DD *                                                                 
SORT FROM(INFILE1) TO(SORTOUT1) USING(CTL1)                                   
//INFILE1  DD DSN=HLQ.IDENTITY.OUTDOOR.FULL,DISP=SHR                         
//SORTOUT1 DD DSN=HLQ.ICETEST1,UNIT=SYSDA,DISP=(NEW,CATLG),                   
//       RECFM=FB,LRECL=574,BLKSIZE=27552,                                     
//       SPACE=(TRK,(100,10),RLSE)                                             
//CTL1CNTL DD  *                                                               
 SORT FIELDS=COPY                                                             
 INCLUDE COND=(1,40,CH,EQ,C'P03-MAIL ROOM (WEST AREA)               ')         
 OUTFIL FNAMES=SORTOUT1       


//DELETE2 EXEC PGM=IDCAMS                                               
//SYSPRINT DD SYSOUT=*                                                   
//SYSIN    DD *                                                         
 DELETE HLQ.ICETEST2                                                   
//S2   EXEC  PGM=ICETOOL                                                 
//TOOLMSG   DD  SYSOUT=*                                                 
//DFSMSG    DD  SYSOUT=*                                                 
//TOOLIN DD *                                                           
SORT FROM(INFILE1) TO(SORTOUT1) USING(CTL1)                             
//INFILE1  DD DSN=HLQ.IDENTITY.OUTDOOR.FULL,DISP=SHR                   
//SORTOUT1 DD DSN=HLQ.ICETEST2,UNIT=SYSDA,DISP=(NEW,CATLG),             
//       RECFM=FB,LRECL=574,BLKSIZE=27552,                               
//       SPACE=(TRK,(100,10),RLSE)                                       
//CTL1CNTL DD  *                                                         
 SORT FIELDS=COPY                                                       
 INCLUDE COND=(255,40,CH,EQ,C'P03-MAIL ROOM (WEST AREA)               ')
 OUTFIL FNAMES=SORTOUT1                                                 
/*                                                                       
                                               


The only substantial difference is the 1st test step has an INCLUDE for 1,40,CH,EQ and the 2nd test step has an INCLUDE for 255,40,CH,EQ

TOOLMSG from the 1st test:

Code:

CE600I 0 DFSORT ICETOOL UTILITY RUN STARTED                                                         
                                                                                                     
CE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE               
                                                                                                     
CE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                                                     
                                                                                                     
                                                                                                     
CE630I 0 MODE IN EFFECT:  STOP                                                                       
                                                                                                     
         SORT FROM(INFILE1) TO(SORTOUT1) USING(CTL1)                                                 
CE606I 0 DFSORT CALL 0001 FOR SORT  FROM INFILE1  TO SORTOUT1 USING CTL1CNTL COMPLETED               
CE602I 0 OPERATION RETURN CODE:  00                                                                 
                                                                                                     
                                                                                                     
CE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  00                                         


TOOLMSG from the 2nd step:

Code:

ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED                                                     
                                                                                                 
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE           
                                                                                                 
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                                                 
                                                                                                 
                                                                                                 
ICE630I 0 MODE IN EFFECT:  STOP                                                                   
                                                                                                 
          SORT FROM(INFILE1) TO(SORTOUT1) USING(CTL1)                                             
ICE606I 0 DFSORT CALL 0001 FOR SORT  FROM INFILE1  TO SORTOUT1 USING CTL1CNTL TERMINATED         
ICE602I 0 OPERATION RETURN CODE:  16                                                             
                                                                                                 
                                                                                                 
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                                     


DFHMSG from the 1st test:

Code:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                                                                     
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                                                               
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K90026 E9-K60824 C9-BASE   E5-K62149 E7-K65446                             
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                                                       
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE                               
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 14:46 ON MON APR 23, 2012 -                         
           SORT FIELDS=COPY                                                                                           
           INCLUDE COND=(1,40,CH,EQ,C'P03-MAIL ROOM (WEST AREA)               ')                                     
           OUTFIL FNAMES=SORTOUT1                                                                                     
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW                                         
          DEBUG NOABEND,ESTAE                                                                                         
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=INFILE*                                   
                         1,SORTOUT=SORTOUT1,DYNALLOC                                                                 
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                                                               
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K90026 E9-K60824 C9-BASE   E5-K62149 E7-K65446                             
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED                                       
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS                                               
ICE088I 0 IS4275A .S1      .        , INPUT LRECL = 574, BLKSIZE = 27552, TYPE = FB                                   
ICE093I 0 MAIN STORAGE = (MAX,8388608,8388608)                                                                       
ICE156I 0 MAIN STORAGE ABOVE 16MB = (8331248,8331248)                                                                 
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256         
ICE128I 0 OPTIONS: SIZE=8388608,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG                 


DFHMSG from the 2nd test:

Code:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                                                   
ICE805I 0 JOBNAME: IS4275A  , STEPNAME: S2                                                           
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                         
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                                     
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE               
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 14:46 ON MON APR 23, 2012 -         
           SORT FIELDS=COPY                                                                         
           INCLUDE COND=(255,40,CH,EQ,C'P03-MAIL ROOM (WEST AREA)               ')                   
           OUTFIL FNAMES=SORTOUT1                                                                   
           $                                                                                         
ICE007A E SYNTAX ERROR                                                                               
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW                         
          DEBUG NOABEND,ESTAE                                                                       
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=INFILE*                   
                         1,SORTOUT=SORTOUT1,DYNALLOC                                                 
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K90026 E7-K65446                                         
ICE052I 3 END OF DFSORT                                                                             


How does changing the starting position of an INCLUDE statement result in an error? The input file having attributes of FB/574 indicates my selection criteria is still within the input record's boundaries.[/code]
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7306

PostPosted: Tue Apr 24, 2012 12:48 am    Post subject: Reply to: Two Almost Identical ICETOOLs Getting different re
Reply with quote

You've typed into the continuation column, then it sucks up the OUTFIL as the continuation...

EDIT: You also don't need the trailing space on the literal for it to match against trailing space in the field that you define.
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue Apr 24, 2012 12:50 am    Post subject: Reply to: Two Almost Identical ICETOOLs Getting different re
Reply with quote

Thank you.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7306

PostPosted: Tue Apr 24, 2012 12:55 am    Post subject: Reply to: Two Almost Identical ICETOOLs Getting different re
Reply with quote

No problem. If you want to see it, you'll notice you have a character in the same column as the "*" used for listing the options in effect towards the bottom.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Vision results (also known as DYL-280) CaptBill CA Products 1 Tue Dec 20, 2016 3:35 am
No new posts Low values Results from VARCHAR FORMAT balaji81_k DB2 10 Thu Oct 20, 2016 1:18 am
No new posts Strange Results with ICETOOL Rohit Umarjikar DFSORT/ICETOOL 4 Tue Dec 22, 2015 4:12 am
No new posts Weird test results when Xpediter is t... Crunch Compuware & Other Tools 6 Tue Oct 06, 2015 7:48 pm
No new posts SORT CAPACITY EXCEEDED Different results abhijit.nayak01 DFSORT/ICETOOL 17 Tue Jun 16, 2015 4:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us