diff options
Diffstat (limited to 'copy/cepis-csv.cpy')
| -rw-r--r-- | copy/cepis-csv.cpy | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/copy/cepis-csv.cpy b/copy/cepis-csv.cpy new file mode 100644 index 0000000..8ef9599 --- /dev/null +++ b/copy/cepis-csv.cpy @@ -0,0 +1,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. |