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 Quick References
View previous topic :: View next topic  
Author Message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1315
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: 1335
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: 1315
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: 2141
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: 1335
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 REXX/CMS How to place command console... CLIST & REXX 4
No new posts Reroute print output via REXX/SDSF TSO/ISPF 6
No new posts Concatenate 2 input datasets and give... JCL & VSAM 2
No new posts OpenPGP Decryption job getting LRECL ... IBM Tools 7
No new posts How to turn off 'ACTION' SDSF output ... TSO/ISPF 2
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us