| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| READ SEQUENTIAL TEST WITH EMPTY FILES | |||
| SEQ SEQ | OPEN I/O | 3/5 | 0/5 |
| READ NEXT | -/- | 1/0 | |
| SEQ SEQ | OPEN I/O REVERSED | N/A | 0/0 |
| READ NEXT | -/- | 1/0 | |
| REL SEQ | OPEN I/O | 3/5 | 0/5 |
| READ NEXT | -/- | 1/0 | |
| REL SEQ | OPEN I/O | 3/5 | 0/5 |
| START RRN=20 | -/- | 2/3 | |
| REL SEQ | OPEN I/O | 3/5 | 0/0 |
| START RRN=0 | -/- | 2/3 | |
| IDX SEQ | OPEN INPUT | 0/0 | 3/5 |
| READ NEXT | 1/0 | -/- | |
| IDX SEQ | OPEN I/O | 0/0 | 0/5 |
| START KEY < VALUE | N/A | 2/3 |
When Micro Focus COBOL attempts to open a sequential dataset for I/O REVERSED processing and that dataset does not exist, a status code of 3/5 is returned. If the dataset does exist but is empty, a status code of 0/0 is returned on the open request.
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| WRITE SEQUENTIAL TEST WITH EMPTY FILES | |||
| IDX SEQ | OPEN OUTPUT | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 | |
| IDX SEQ | OPEN EXTEND | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 |
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| DELETE SEQUENTIAL TEST | |||
| IDX SEQ | OPEN I/O | 0/0 | 0/0 |
| START ALT KEY GTEQ LOW-VALUES | 0/0 | 0/2 | |
| DELETE | 0/0 | 0/0 |
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| RANDOM WRITE TEST | |||
| IDX RAN | OPEN I/O | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 |
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| READ SEQUENTIAL TEST WITH DATA IN FILES | |||
| IDX SEQ | OPEN INPUT | 0/0 | 0/0 |
| START KEY GTEQ HIGH-VALUES | 2/3 | 2/3 |
VSAM treats this as: 'position the current record pointer to the end of the file'; a subsequent READ PREVIOUS request would return the last record in the file.
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| READ DYNAMIC TEST WITH DATA IN FILES | |||
| IDX DYN | OPEN INPUT | 0/0 | 0/0 |
| START KEY GTEQ HIGH-VALUES | 2/3 | 2/3 |
VSAM treats this as: 'position the current record pointer to the end of the file'; a subsequent READ PREVIOUS request would return the last record in the file.
| MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
||
|---|---|---|---|
| DELETE DYNAMIC TEST WITH DATA IN FILES | |||
| IDX DYN | OPEN I/O | 0/0 | 0/0 |
| START ALT KEY GTEQ LOW-VALUES | 0/0 | 0/0 | |
| READ NEXT (LAST OF DUPLICATE KEY) | 0/0 | 0/0 | |
| DELETE (LAST OF DUPLICATE KEY) | 0/0 | 0/0 |