*> ---------------------------------------------------------------------
*> Control block for CEPIS-CSV-NEXT. Internal.
*>
*> Set CSV-LEN once and CSV-POS to 1, then call repeatedly: each call
*> yields the next field. CSV-ROW-END marks the field that closed the
*> record, CSV-EXHAUSTED that there was nothing left to read.
*> ---------------------------------------------------------------------
01  CEPIS-CSV-SCAN.
    05  CSV-POS                     PIC 9(9).
    05  CSV-LEN                     PIC 9(9).
    05  CSV-FIELD                   PIC X(512).
    05  CSV-FIELD-LEN               PIC 9(9).
    05  CSV-ROW-END                 PIC X.
    05  CSV-EXHAUSTED               PIC X.