When I had a problem like this under z/OS, I used the RESOLVE function:
INFILE ... LENGTH=RECLGTH;
INPUT @;
INPUT @1 RECORD $VARYING256. RECLGTH;
RECORD=RESOLVE(RECORD);
Of course, you then need to split up the record into the separate variables! Maybe the SCAN function could be used to do this.
... View more