It doesn't display as one. It displays as X'0001F1?0?0' . It will just look like one on casual inspection (if the ?s allow, and I suspect they will be zeros, which will allow).
"Why doesn't it abend in doing the PERFORM iterate TIMES?" is the next question. Because he's using compiler option NUMPROC(NOPFD), so the field gets OI'd with X'F0' before being used in the CVB. With NUMPROC(PFD), not, so S0C7 for the PERFORM. On Friday, 1 April 2016 10:20:22 UTC+1, Jeremy Nicoll wrote: > On Fri, 1 Apr 2016, at 01:13, Bill Woodger wrote: > > > 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. > > Why did it DISPLAY as 1 though? > > -- > Jeremy Nicoll - my opinions are my own. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
