Also, your initial BUILD creates the extra byte which is used. You can change the subsequent BUILDs to OVERLAY which just change the one byte at column 5: (will save you one BUILD per record, you'll notice).
If 220k+ were really large, you could also (since the test values are mutually exclusive) put the header and trailer processing before the WHEN=NONE. That you may not notice on 220k+ records. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN