blob: 8ef95990dc5f979d7142de15c4675fdf02ff541d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
*> ---------------------------------------------------------------------
*> 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.
|