David Stuart
2021-01-27 22:00:57 UTC
Afternoon all,
One of our programmers has an issue, and it's been so long since I did
anything in COBOL, I am unable to assist.
She created a file, only a single record, from within an Eastrieve
'program'. The file is a VSAM File, and is defined in EastTrieve as
follows:
FILE FILEB VS(ES, F)
NEW_COROUT 1 6 N
FILLERC 7 29 A
The file is written out successfully and contains one record that is 35
bytes long, the first 6 of which are a control record for the COBOL program
to follow.
The COBOL program has the file defined as follows:
SELECT CONTROL-FILE
ASSIGN TO SYS026-DA-FBA1-CNTNEW
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS CNTRL-STATUS.
FD CONTROL-FILE
RECORD CONTAINS 35 CHARACTERS.
01 CONTROL-RECORD.
05 NEW-APPS PIC X(6).
05 FILLER2 PIC X(29).
The COBOL program fails with the following:
IGZ0200W A file attribute mismatch was detected. File CONTROL-FILE in
program VC16632 was defined as a physical sequential file and the file
specified in the ASSIGN clause was a VSAM data set.
WARNING CONTROL FILE NOT OPENED STATUS IS 39
And at that point, it cancels.
Ideas? Suggestions?
It's just been too long since I did anything in COBOL, which wasn't all
that much.
Thanks,
Dave
Dave Stuart
Principal Info. Systems Support Analyst
County of Ventura
805-662-6731
***@ventura.org
One of our programmers has an issue, and it's been so long since I did
anything in COBOL, I am unable to assist.
She created a file, only a single record, from within an Eastrieve
'program'. The file is a VSAM File, and is defined in EastTrieve as
follows:
FILE FILEB VS(ES, F)
NEW_COROUT 1 6 N
FILLERC 7 29 A
The file is written out successfully and contains one record that is 35
bytes long, the first 6 of which are a control record for the COBOL program
to follow.
The COBOL program has the file defined as follows:
SELECT CONTROL-FILE
ASSIGN TO SYS026-DA-FBA1-CNTNEW
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS CNTRL-STATUS.
FD CONTROL-FILE
RECORD CONTAINS 35 CHARACTERS.
01 CONTROL-RECORD.
05 NEW-APPS PIC X(6).
05 FILLER2 PIC X(29).
The COBOL program fails with the following:
IGZ0200W A file attribute mismatch was detected. File CONTROL-FILE in
program VC16632 was defined as a physical sequential file and the file
specified in the ASSIGN clause was a VSAM data set.
WARNING CONTROL FILE NOT OPENED STATUS IS 39
And at that point, it cancels.
Ideas? Suggestions?
It's just been too long since I did anything in COBOL, which wasn't all
that much.
Thanks,
Dave
Dave Stuart
Principal Info. Systems Support Analyst
County of Ventura
805-662-6731
***@ventura.org