Previous Topic Next topic Print topic


Cross Reference of File Status Setting

READ SEQUENTIAL TEST WITH EMPTY FILES

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.

WRITE SEQUENTIAL TEST WITH EMPTY FILES

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.

DELETE SEQUENTIAL TEST

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.

RANDOM WRITE TEST

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.

READ SEQUENTIAL TEST WITH DATA IN FILES

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.

READ DYNAMIC TEST WITH DATA IN FILES

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.

DELETE DYNAMIC TEST WITH DATA IN FILES

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.

Previous Topic Next topic Print topic