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
