Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Puzzled about output LRECL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
prino

Senior Member


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

PostPosted: Wed Jan 08, 2020 1:24 am    Post subject: Puzzled about output LRECL
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

Active User


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

PostPosted: Wed Jan 08, 2020 1:30 am    Post subject:
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: 1193
Location: Vilnius, Lithuania

PostPosted: Wed Jan 08, 2020 1:55 am    Post subject:
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

Active Member


Joined: 29 Apr 2008
Posts: 775
Location: Maryland

PostPosted: Wed Jan 08, 2020 1:59 am    Post subject:
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

Active User


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

PostPosted: Wed Jan 08, 2020 2:03 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Write 9(07) comp-3 data into output file clearskynot DFSORT/ICETOOL 4 Thu Apr 16, 2020 11:00 pm
No new posts DFSORT Output file order query A_programmers DFSORT/ICETOOL 2 Thu Mar 26, 2020 11:59 pm
No new posts Need a Macro to compare datasets and ... Anupam Nayak All Other Mainframe Topics 2 Mon Feb 17, 2020 4:45 pm
No new posts Can you manually set an EOF marker in... Don Allard CLIST & REXX 5 Sat Nov 02, 2019 12:30 am
No new posts Increase the Maximum Length of LRECL ... Dhineshpondy7 JCL & VSAM 5 Wed Aug 07, 2019 6:23 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us