>> Was it a single IFTHEN? Martin,
Yes. A Single IFTHEN=(WHEN=INIT >> Also, I suppose that IFTHEN, being relatively new, might’ve had a different implementation. True. >>But I don’t know and I doubt this kind of internal is something Sri Hari would feel free to talk about. You read my mind. :) Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 04/03/2019 11:14:23 PM: > From: Martin Packer <martin_pac...@uk.ibm.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 04/03/2019 11:17 PM > Subject: Re: DFSORT ICE085A - Options? > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > Was it a single IFTHEN? > > Also, I suppose that IFTHEN, being relatively new, might’ve had a different > implementation. But I don’t know and I doubt this kind of internal is > something Sri Hari would feel free to talk about. > > Sent from my iPad > > > On 4 Apr 2019, at 00:08, van der Grijn, Bart (B) <bvandergr...@dow.com> > wrote: > > > > Thanks all for the comments and advice. My issue is resolved, but I don't > yet understand why. > > > > A big thanks to Kolusu. I took him up on his offer and sent him the > relevant data offline. He produced a solution that looks as follows > (apologies if the formatting gets messed up): > > > > My original control cards: > > OPTION COPY,NOVLSHRT, > > OUTFIL FNAMES=OUT,VTOF,OUTREC=(ASEGAR, > > C'|', > > ... > > <lots of additional fields and "|" separators> > > ... > > C'|', > > AFRE98) > > > > Kolusu's solution: > > OPTION COPY > > INREC IFTHEN=(WHEN=INIT, > > BUILD=(RDW, > > ASEGAR, > > C'|', > > ... > > <lots of additional fields and "|" separators> > > ... > > C'|', > > AFRE98)) > > OUTFIL VTOF,BUILD=(5,5090) > > > > This solved my problem and was a simple fix to implement in the REXX that > generates the control cards. > > > > In addition he pointed out that my edit masks needed some work as I had a > lot of > > EDIT=(IIIIIIIII.II) > > types of masks that should have been > > EDIT=(IIIIIIIIT.TT) > > > > So while my issue is resolved, I do wonder what the magic here is. > Reviewing the manual on INREC IFTHEN(WHEN=INIT it suggests there's no > actual functionality to this for the sort statement I have. However, > removing this and just using INREC BUILD resulted in the same ICE085A > problem. > > So what's the logic here with regards to IFTHEN and memory usage? > > > > Thanks, > > Bart > > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Sri h Kolusu > > Sent: Tuesday, April 02, 2019 1:57 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: DFSORT ICE085A - Options? > > > >>> There are 473 input fields that are copied over, some of them > converted, > > with '|' inserted as separator. > > Bart, > > > > That is one too many edit fields. Looks like you have an input file and > > want to convert it to pipe delimited file. If you can send me a sample > > input file and the symbol mapping along with control cards, then I > probably > > might be able to come up with something ( No promises though) > > > > Thanks, > > Kolusu > > DFSORT Development > > IBM Corporation > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >Unless stated otherwise above: > IBM United Kingdom Limited - Registered in England and Wales with > number 741598. > Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
