Re: How to get last node in DFSORT

[Billy Ashton]

Kolusu, thank you so much for this. I hadn't thought about testing for 
each node and length like that - I will hold onto this email for some 
other things that are similar!

Thanks again!
Billy
------ Original Message ------
From: "Sri h Kolusu" <skol...@us.ibm.com>
To: IBM-MAIN@listserv.ua.edu
Sent: 5/22/2020 8:44:32 PM
Subject: Re: How to get last node in DFSORT

 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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN