And change the PARM= to 00001 if you want to define it as a five-byte numeric in your program.
X'0001F1????' where the ? have the numeric as 0, gives you your 01100 in iterate, once it has been packed (prior to becoming binary) to use in the TIMES. Unless you are going to use very large files only a small number of iteration times, I'd use one OPEN-process-CLOSE for the input, where the records are stored. Lots of OPEN and CLOSE are very slow. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
