compare files if you meet a condition



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

compare files if you meet a condition

Postby pulcinella » Thu Aug 27, 2009 1:53 pm

Hello,

first of all Sorry if someone has already made this question. I need compare two file if meet a condition.

input1 (15 position)
------

00000003xxxx001
00000003xxxx003
00000003xxxx005
00000003xxxx006
00000009xxxx001
00000009xxxx004

input2 (173 position)
------

00000001xxxx001xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000001xxxx003xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000001xxxx004xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000003xxxx001Exxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000003xxxx003Bxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000003xxxx005Bxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000003xxxx006Dxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000003xxxx008Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000007xxxx001xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000008xxxx005xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000008xxxx009xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000009xxxx003xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
00000009xxxx008xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

for obtain:

an output file with the record that still as the key (1-8, 13-15) has a letter 'B' at input2 and other output file with the record that no have a letter 'B' at input 2.

The position 1-8 have duplicate. The position 13-15 haven't duplicates

This is:

output1 (15 position)
-------

00000003xxxx003 --> has letter 'B'
00000003xxxx005 --> has letter 'B'

output2 (15 position)
-------

00000003xxxx001 --> Has not letter 'B' (has 'E')
00000003xxxx006 --> Has not letter 'B' (has 'D')

Thank you very much
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby skolusu » Fri Aug 28, 2009 3:03 am

pulcinella,

The following DFSORT/ICETOOL JCL will give you the desired results

//STEP0100 EXEC PGM=ICETOOL                                     
//TOOLMSG  DD SYSOUT=*                                         
//DFSMSG   DD SYSOUT=*                                         
//FB015    DD DSN=Your input FB 15 byte file,DISP=SHR
//FB173    DD DSN=Your input FB 173 byte file,DISP=SHR
//T1       DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(X,Y),RLSE)   
//OUT1     DD SYSOUT=*                                         
//OUT2     DD SYSOUT=*                                         
//TOOLIN   DD *                                                 
  COPY FROM(FB015) USING(CTL1)                                 
  COPY FROM(FB173) USING(CTL2)                                 
  SPLICE FROM(T1) TO(OUT1) ON(1,8,CH) ON(13,3,CH) WITH(1,16) - 
  WITH(18,1) WITHALL KEEPNODUPS USING(CTL3)                     
//CTL1CNTL DD *                                                 
  OUTFIL FNAMES=T1,OVERLAY=(17:C'11')                           
//CTL2CNTL DD *                                                 
  OUTFIL FNAMES=T1,BUILD=(1,16,C'22')                           
//CTL3CNTL DD *                                                 
  OUTFIL FNAMES=OUT1,BUILD=(1,15),                             
  INCLUDE=(17,2,ZD,EQ,12,AND,16,1,CH,EQ,C'B')                   
  OUTFIL FNAMES=OUT2,BUILD=(1,15),                             
  INCLUDE=(17,2,ZD,EQ,12,AND,16,1,CH,NE,C'B')                   
//*
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: compare files if you meet a condition

Postby pulcinella » Fri Aug 28, 2009 4:56 pm

Hello,

When i execution only icetool label it's allright; when before icetool label I execute other's label's (sort's)
returned error code = 16

can be problem with memory?. I defined a region=0M at hunder job. I probe with REGION=6000K but return code is the same (16)... I put the space of T1 cyl(15,15). I probe with cyl(30,30) and using vol label but the return code is the same but I don't know what's happened. Can you help me, please?

Both files are FB

I send TOOLMSG and DFSMSG wrong execution and execution ok

WRONG EXECUTION
---------------

TOOLMSG

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

COPY FROM(FB015) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM FB015 TO OUTFIL USING CTL1CNTL TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16

ICE630I 2 MODE IN EFFECT: SCAN

COPY FROM(FB173) USING(CTL2)
ICE612I 0 NO ERRORS FOUND IN STATEMENT

SPLICE FROM(T1) TO(OUT1) ON(1,8,CH) ON(13,3,CH) WITH(1,16) -
WITH(18,1) WITHALL KEEPNODUPS USING(CTL3)
ICE612I 0 NO ERRORS FOUND IN STATEMENT


ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16



DFSMSG

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
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 V1R5 - 12:27 ON FRI AUG 28, 2009
OUTFIL FNAMES=T1,OVERLAY=(17:C'11')
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=FB015,*
DYNALLOC
SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE222A 0 18 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 186 BYTE LRECL FOR T1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 E7-K44563
ICE052I 3 END OF DFSORT


EXECUTION OK
------------

TOOLMSG

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
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 V1R5 - 12:27 ON FRI AUG 28, 2009 -
OUTFIL FNAMES=T1,OVERLAY=(17:C'11')
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=FB015,*
DYNALLOC
SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE222A 0 18 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 186 BYTE LRECL FOR T1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 E7-K44563
ICE052I 3 END OF DFSORT


DFSMSG


ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
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 V1R5 - 12:28 ON FRI AUG 28, 2009 -
OUTFIL FNAMES=T1,OVERLAY=(17:C'11')
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=FB015,*
DYNALLOC
SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 C9-BASE E5-K44563
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 PESIX147.STEP070 . , INPUT LRECL = 15, BLKSIZE = 27990, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
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=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR FB015
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 22528, ABOVE 16M = 2125824
ICE210I 0 T1 : EXCP USED, LRECL = 18, BLKSIZE = 27990, TYPE = FB (SDB)
ICE751I 1 EF-K10929 CB-K90013 F0-K30362 E8-K44563
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 262, OUT: 262
ICE227I 0 T1 : DELETED = 0, REPORT = 0, DATA = 262
ICE228I 0 T1 : TOTAL IN = 262, TOTAL OUT = 262
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
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 V1R5 - 12:28 ON FRI AUG 28, 2009 -
OUTFIL FNAMES=T1,BUILD=(1,16,C'22')
ICE146I 0 END OF STATEMENTS FROM CTL2CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTIN=FB173,*
DYNALLOC
SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 C9-BASE E5-K44563
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 PESIX147.STEP070 . , INPUT LRECL = 173, BLKSIZE = 27853, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
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=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR FB173
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 22528, ABOVE 16M = 2125824
ICE210I 0 T1 : EXCP USED, LRECL = 18, BLKSIZE = 27990, TYPE = FB
ICE751I 1 EF-K10929 CB-K90013 F0-K30362 E8-K44563
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 9147, OUT: 9147
ICE227I 0 T1 : DELETED = 0, REPORT = 0, DATA = 9147
ICE228I 0 T1 : TOTAL IN = 9147, TOTAL OUT = 9147
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003
ICE143I 0 BLOCKSET SORT 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 V1R5 - 12:28 ON FRI AUG 28, 2009 -
OUTFIL FNAMES=OUT1,BUILD=(1,15),
INCLUDE=(17,2,ZD,EQ,12,AND,16,1,CH,EQ,C'B')
OUTFIL FNAMES=OUT2,BUILD=(1,15),
INCLUDE=(17,2,ZD,EQ,12,AND,16,1,CH,NE,C'B')
ICE146I 0 END OF STATEMENTS FROM CTL3CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL3,SORTIN=T1,SOR*
TOUT=OUT1,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOC*
HECK
SORT FIELDS=(1,8,CH,A,13,3,CH,A)
MODS E35=(ICE35DU,12288)
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E4-K90007 C9-BASE E5-K44563 E6-K34782 E7-K44563
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 5 PESIX147.STEP070 . , INPUT LRECL = 18, BLKSIZE = 27990, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6233678,6217294)
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=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA ,004),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE750I 0 DC 195930 TC 0 CS DSVVV KSZ 15 VSZ 15
ICE752I 0 FSZ=10885 RC IGN=0 E AVG=24 0 WSP=340 C DYN=0 0
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 23552, ABOVE 16M = 4201472
ICE210I 0 OUT1 : EXCP USED, LRECL = 15, BLKSIZE = 27990, TYPE = FB (SDB)
ICE210I 0 OUT2 : EXCP USED, LRECL = 15, BLKSIZE = 27990, TYPE = FB (SDB)
ICE751I 1 BA-K22788 BB-K44382 BC-K24705 CB-K90013 E8-K44563
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 8939, DELETE 9174
ICE054I 0 RECORDS - IN: 9409, OUT: 9174
ICE227I 0 OUT1 : DELETED = 8939, REPORT = 0, DATA = 235
ICE228I 0 OUT1 : TOTAL IN = 9174, TOTAL OUT = 235
ICE227I 0 OUT2 : DELETED = 9174, REPORT = 0, DATA = 0
ICE228I 0 OUT2 : TOTAL IN = 9174, TOTAL OUT = 0
ICE174I 0 NO DATA RECORDS FOR AN OUTFIL DATA SET - RC=0
ICE134I 0 NUMBER OF BYTES SORTED: 169362
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 1M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby skolusu » Fri Aug 28, 2009 10:24 pm

Pulcinella,

I see 1 successful run in the DFSMSG and where did the error come from? The error shows you are running with a 186 byte file where as the given solution assumes it to be 15 and 173 respectively. Please provide the DCB properties of all the files involved
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: compare files if you meet a condition

Postby pulcinella » Sun Aug 30, 2009 1:01 am

Excuse me Skolosu but why if I executed with other steps it's wrong but If only executed this, It's ok?... The files are the same because I used the sort generated in the first execution for executed the second job... It's not possible that in the first execution is wrong and the second execution is correct with the difference of execution more steps... I think that can be an storage auxiliary but I don't sure.
I see the file's properties more times and have 15 and 173 lrecl. I don't know why seems that I work with 186 bytes. When I browse the file, and see the properties files have 15 and 173 lrecl respectively. I think that the properties that I send and I worked are the same. I think that I am not wrong but the next Monday I will write you and send you the properties of files
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby pulcinella » Sun Aug 30, 2009 1:05 pm

FILE WITH LRECL = 15

1ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 09:15 ON SUN AUG 30, 2009 -
0 SORT FIELDS=(1,8,CH,A,13,3,CH,A)
OPTION DYNALLOC=(SYSDA,15)
END
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E4-K90007 C9-BASE E5-K44563 E7-K44563
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 1 PESIX147.STEP060 . , INPUT LRECL = 173, BLKSIZE = 2785 TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
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=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLON=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 55706 TC 0 CS DSVVV KSZ 15 VSZ 15
ICE752I 0 FSZ=322 RC IGN=0 E AVG=20 0 WSP=9 C DYN=0 0
ICE751I 1 DE-K24705 D5-K24705 D9-K24705 E8-K44563
ICE090I 0 OUTPUT LRECL = 15, BLKSIZE = 27990, TYPE = FB
ICE171I 0 SORTOUT LRECL OF 15 IS DIFFERENT FROM SORTIN(NN) LRECL OF 173 - RC=0
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 262, OUT: 262
ICE134I 0 NUMBER OF BYTES SORTED: 45326
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT


FILE WITH LRECL = 173

1ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 09:13 ON SUN AUG 30, 2009 -
0 SORT FIELDS=(1,8,CH,A,13,2,PD,A)
INCLUDE COND=(15,1,CH,EQ,C'B')
OUTREC FIELDS=(1,12,13,2,PD,TO=ZD,15,1,16,90,241,7,251,60)
OPTION DYNALLOC=(SYSDA,15)
END
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 C9-BASE E5-K44563 E6-K34782 C4-K44563 E7-K44563
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 1 PESIX147.STEP010 . , INPUT LRECL = 376, BLKSIZE = 27824, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6461254,6461254)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6312886,6312886)
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=6461254,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA ,015),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=64
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 281801472 TC 0 CS DSVOO KSZ 15 VSZ 15
ICE752I 0 FSZ=749472 RC IGN=0 E AVG=384 0 WSP=373799 C DYN=4676 53216
ICE751I 1 DE-K24705 D5-K24705 D9-K24705 E8-K44563
ICE090I 0 OUTPUT LRECL = 173, BLKSIZE = 27853, TYPE = FB
ICE171I 0 SORTOUT LRECL OF 173 IS DIFFERENT FROM SORTIN(NN) LRECL OF 376 - RC = 0
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 740265
ICE054I 0 RECORDS - IN: 749412, OUT: 9147
ICE134I 0 NUMBER OF BYTES SORTED: 3439272
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 4830 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby pulcinella » Mon Aug 31, 2009 11:35 am

I think that i found the problem.

At first execution (has more steps previusly), I used an ICETOOL step with the T1 variable storage. When I used other ICETOOL step (in the same job but with your examplet), I have the same T1 variable storage. I changed the variable storage with other (T2) and I work it.

It's strange but it's true. Seem that If I work with more ICETOOL at same job, the name of variable storage must be distinct.

Thanks
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby dick scherrer » Mon Aug 31, 2009 11:43 am

Hello,

It's strange but it's true
Nothing strange at all. . . This simply makes clear that you do not have a proper understanding of JCL yet.

When you specify MOD using the same dataset name, the same dataset will be used over and over. . . This has nothing to do with the sort product.

Here is a link you should keep handy - the JCL Reference manual:
http://publibz.boulder.ibm.com/cgi-bin/ ... 0/CONTENTS
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: compare files if you meet a condition

Postby pulcinella » Mon Aug 31, 2009 3:23 pm

Dick,

Thanks for the explanation. I'll have it in mind for next time. Pulcinella
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: compare files if you meet a condition

Postby dick scherrer » Tue Sep 01, 2009 2:48 am

You're welcome - good luck :)

d
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post