| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| SEQ SEQ | OPEN I/O | 3/5 | 0/5 | 0/5 |
| READ NEXT | -/- | 1/0 | 1/0 | |
| SEQ SEQ | OPEN I/O REVERSED | N/A | 0/0 | 0/5 |
| READ NEXT | -/- | 1/0 | 1/0 | |
| REL SEQ | OPEN I/O | 3/5 | 0/5 | 0/5 |
| READ NEXT | -/- | 1/0 | 1/0 | |
| REL SEQ | OPEN I/O | 3/5 | 0/5 | 0/5 |
| START RRN=20 | -/- | 2/3 | 2/3 | |
| REL SEQ | OPEN I/O | 3/5 | 0/0 | 3/5 |
| START RRN=0 | -/- | 2/3 | -/- | |
| IDX SEQ | OPEN INPUT | 0/0 | 3/5 | 0/0 |
| READ NEXT | 1/0 | -/- | 1/0 | |
| IDX SEQ | OPEN I/O | 0/0 | 0/5 | 0/0 |
| START KEY < VALUE | N/A | 2/3 | 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.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX SEQ | OPEN OUTPUT | 0/0 | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 | 0/0 | |
| IDX SEQ | OPEN EXTEND | 0/0 | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 | 0/0 |
The CICS server cannot determine if the result of this write operation would cause any alternate indexes to have two or more records with the same key value.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX SEQ | OPEN I/O | 0/0 | 0/0 | 0/0 |
| START ALT KEY GTEQ LOW-VALUES | 0/0 | 0/2 | 0/0 | |
| DELETE | 0/0 | 0/0 | 1/0 |
The CICS server does not permit the deletion of a record via the alternate index if another record in the file has the same key for the alternate index. A status code of 4/3 is returned. The current record position is unaffected by the failed request.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX RAN | OPEN I/O | 0/0 | 0/0 | 0/0 |
| WRITE (RECORD W/DUPLICATE ALT KEY) | 0/2 | 0/2 | 0/0 |
The CICS server cannot determine if the result of this write operation would cause any alternate indexes to have two or more records with the same key value.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX SEQ | OPEN INPUT | 0/0 | 0/0 | 0/0 |
| START KEY GTEQ HIGH-VALUES | 2/3 | 2/3 | 0/0 | |
| READ NEXT | -/- | -/- | 1/0 |
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.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX DYN | OPEN INPUT | 0/0 | 0/0 | 0/0 |
| START KEY GTEQ HIGH-VALUES | 2/3 | 2/3 | 0/0 | |
| READ NEXT | -/- | -/- | 1/0 |
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.
| FILE ORG-ACC | I/O statements | MVS-BATCH
COBOL II |
OS/2
MF/COBOL |
CICS server |
|---|---|---|---|---|
| IDX DYN | OPEN I/O | 0/0 | 0/0 | 0/0 |
| START ALT KEY GTEQ LOW-VALUES | 0/0 | 0/0 | 0/0 | |
| READ NEXT (DUPLICATE KEY) | 0/2 | 0/2 | 0/2 | |
| READ NEXT (LAST OF DUPLICATE KEY) | 0/0 | 0/0 | 0/0 | |
| DELETE (LAST OF DUPLICATE KEY) | 0/0 | 0/0 | 4/3 |
The CICS server does not permit the deletion of a record via the alternate index if another record in the file has the same key for the alternate index. A status code of 4/3 is returned. The current record position is unaffected by the failed request.