|
View previous topic :: View next topic
|
| Author |
Message |
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1323
Location: Vilnius, Lithuania
|
|
|
|
| Code: |
ICE143I 0 BLOCKSET COPY 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 V1R10 - 20:32 ON TUE JAN 07, 2020 -
* These sort commands can handle both the old, it's left unchanged, as 00010000
* well as the new, records are merged, LW output file. 00020000
*********************************************************************** 00030000
OPTION COPY 00040000
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'1',OR, 00050000
114,1,CH,EQ,C'+',OR 00060000
114,1,CH,EQ,C'|'), 00070000
OVERLAY=(122:C' ')), 00080000
IFTHEN=(WHEN=NONE, 00090000
OVERLAY=(122:SEQNUM,8,ZD,122:122,8,ZD,MOD,+2,M11,LENGTH=1)) 00100000
* 00110000
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(122,1,CH,EQ,C'1'), 00120000
PUSH=(123:1,121)) 00130000
* 00140000
OUTFIL FTOV,VLTRIM=C' ', 00150000
OMIT=(122,1,CH,EQ,C'1'), 00160000
IFTHEN=(WHEN=(122,1,CH,EQ,C'0'),BUILD=(123,121,1,121)), 00170000
IFTHEN=(WHEN=(122,1,CH,EQ,C' '),BUILD=(1,121)) 00180000
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90014 C6-K90014 C7-BASE C8-K90014 E9-K40168 C9-BASE E5-K38900 E7-BASE
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE088I 0 PRINO230.MERGELN . , INPUT LRECL = 121, BLKSIZE = 27951, TYPE = FBA
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=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=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,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=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 25600, ABOVE 16M = 2122752
ICE210I 0 SORTOUT : BSAM USED, LRECL = 247, BLKSIZE = 27951, TYPE = VB
ICE751I 1 EF-BASE CB-K90014 F0-BASE E8-K38900
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 44, OUT: 44
ICE227I 0 SORTOUT : DELETED = 0, REPORT = 0, DATA = 44
ICE228I 0 SORTOUT : TOTAL IN = 44, TOTAL OUT = 44
ICE052I 0 END OF DFSORT |
Can someone explain the LRECL of the output file? 121+121+4=246? Why the 247? |
|
| Back to top |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1441
Location: Bamberg, Germany
|
|
|
|
| Code: |
| IFTHEN=(WHEN=(122,1,CH,EQ,C'0'),BUILD=(123,121,1,121)) |
121+121+RDW+CC = 247
You would need a REMOVECC to get 246 I guess  |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1323
Location: Vilnius, Lithuania
|
|
|
|
Yes, now I see.
However, given the
| Code: |
| FTOV,VLTRIM=C' ' options |
I had hoped DFSORT would have been smart enough to only set the LRECL at the very end of processing, and use a BLKSIZE=27998, rather than a multiple of 147... Records are all shorter than 147, in in the case the "old" file is passed unchanged through the sort, the LRECL should only be 118.
It doesn't really matter much, as the data will (someday in the future) go to a VB(259) dataset. |
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2283
Location: USA
|
|
|
|
| Joerg.Findeisen wrote: |
| Code: |
| IFTHEN=(WHEN=(122,1,CH,EQ,C'0'),BUILD=(123,121,1,121)) |
121+121+RDW+CC = 247
You would need a REMOVECC to get 246 I guess |
RECFM=VB, not VBA (explicitly printed). No CC, ==> no REMOVECC.
The maximum size ever reached is:
PUSH=(123:1,121)
that is 122 + 121 + 4(=RDW) = 247
SORT is using maximum possible LRECL from all field-create parameters |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1441
Location: Bamberg, Germany
|
|
|
|
| @sergeyken: Ah, overlooked that line above. Thanks. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
