Sri, I ignored the cc51 in my first attempt. I had to post using a fixed font too, so that the last field actually did appear in cc51 as viewed.
Love your work BTW. Regards. On Sat, May 23, 2020 at 10:44 AM Sri h Kolusu <skol...@us.ibm.com> wrote: > > Col 51... > > For some reason the original question did not arrive in my inbox, but the > subsequent emails came in. So I did not see the actual requirement. So > adjusted the control cards to put the last node at position 51 now. Here > are the updated control cards. > > //SYSIN DD * > OPTION COPY > INREC IFTHEN=(WHEN=INIT, > PARSE=(%=(ENDAT=C' '), > %01=(SUBPOS=9,FIXLEN=8)), > BUILD=(01,44,%01)), > IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,51:53,1)), > IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,51:52,2)), > IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51:51,3)), > IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,51:50,4)), > IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,51:49,5)), > IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,51:48,6)), > IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,51:47,7)), > IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,51:46,8)), > IFTHEN=(WHEN=NONE,BUILD=(01,44,51:45,9,JFY=(SHIFT=LEFT))) > /* > > 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 > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
