IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Puzzled about output LRECL


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Wed Jan 08, 2020 1:24 am
Reply with quote

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
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1231
Location: Bamberg, Germany

PostPosted: Wed Jan 08, 2020 1:30 am
Reply with quote

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 icon_wink.gif
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Wed Jan 08, 2020 1:55 am
Reply with quote

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
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2012
Location: USA

PostPosted: Wed Jan 08, 2020 1:59 am
Reply with quote

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 icon_wink.gif


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
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1231
Location: Bamberg, Germany

PostPosted: Wed Jan 08, 2020 2:03 am
Reply with quote

@sergeyken: Ah, overlooked that line above. Thanks.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts VB to FB - Finding LRECL SYNCSORT 4
No new posts Joinkeys - 5 output files DFSORT/ICETOOL 7
No new posts Build a record in output file and rep... DFSORT/ICETOOL 11
No new posts XDC SDSF output to temp dataset CLIST & REXX 4
Search our Forums:

Back to Top