diff options
| author | Murilo Ijanc <[email protected]> | 2026-07-26 12:49:48 -0300 |
|---|---|---|
| committer | Murilo Ijanc <[email protected]> | 2026-07-26 12:49:48 -0300 |
| commit | f979d07d23098b96e758b3feb555cd06d85d9b2d (patch) | |
| tree | 47298197a17a3d6c438a1f4cc7cb61afd390cf05 /copy/cepis-csv.cpy | |
| download | cobol-f979d07d23098b96e758b3feb555cd06d85d9b2d.tar.gz | |
Initial importv0.1.0
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. |