Declaring FILE STATUS variable correctly

COBOL technical questions
1

So I’m trying out my first COBOL project in 30 years. I’m trying to use XCode with Zowe, have my main frame account all working but getting File Status 90 when trying to open my file. I have read up on getting the second byte of the file status as it gives more detail, but am not able to define that PIC X(2) in order to get that secondary information. Every attempt I get this error:

“FILE STATUS” data-name “WS-FILE-STATUS” was not defined as a
two-character item. The data name was discarded.

Since COMP-X isn’t available (which I saw in online examples), this was my last attempt:

   01  WS-FILE-STATUS.
       05 STATUS-KEY-1        PIC X.
       05 STATUS-KEY-2        PIC X.
       05 BINARY-STATUS REDEFINES STATUS-KEY-2 PIC 9(2) COMP-5.

Appreciate the help!

SB

2

Dear SB,
File status need to be defined in FILE DEFINITION as
FILE STATUS IS WS-RETURN-CODE WS-EXTENDED-CODE

WORKING-STORAGE
01 WS-REURN-CODE PIC XX.
01 WS-EXTENDED-RETURN-CODE.
05 VSAM-R15-RETURN-CODE PIC S99 COMP.
05 VSAM-FUNCTION-CODE PIC S9 COMP.
05 VSAM-FEEDBACK-CODE PIC S999 COMP
Hope this helps
Dima

3

Hi
Please show how have you coded the select statement. You should have something like this
Select Infile assign to disk
File status is ws-status.
Then in working storage section define
As follows
01 ws-status. Pic 99.

You can then display the file status in your procedure division to track what’s going wrong.

Hope that helps else please show me your whole code to understand what’s going wrong.
You can reach me on. prasaduday60@gmail.com

Regards
Kapitanuday