I've always used: RECORD CONTAINS 0 TO 32767 CHARACTERS DEPENDING ON var-name
and then define "var-name" in WORKING-STORAGE to be a 77 level with the PICTURE of S9(9) BINARY. -- John ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html