cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
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] |
|