I have used the one below INREC IFTHEN=(WHEN=(4,2,CH,EQ,C' '),BUILD=(C'00',1,3,5,75)), IFTHEN=(WHEN=(5,1,CH,EQ,C' '),BUILD=(C'0',1,4,5,75))
Thanks Ron T ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN