|
View previous topic :: View next topic
|
| Author |
Message |
richie_techin
New User
Joined: 21 Jan 2006
Posts: 16
Location: india
|
|
|
|
hi,
Can anyone tell me what is the Error Code we get when we try to delete ESDS cluster? Thanx. |
|
| Back to top |
|
 |
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
|
|
| Quote: |
| Can anyone tell me what is the Error Code we get when we try to delete ESDS cluster? Thanx. |
Try yourself, and let us know.
Regards,
Priyesh. |
|
| Back to top |
|
|
nuthan
Active User
Joined: 26 Sep 2005
Posts: 146
Location: Bangalore
|
|
|
|
Hi,
i think U will get return code 8 IN VSAM RETURN CODE. But in joblog u can see in VSAM FEEDBACK CODE. it will have the value 80 when u r trying to delete a record from ESDS.
SELECT Statement-FILE STATUS IS WS-FILE-STAT1,WS-FILE-STAT2
WS-FILE-STAT1 should be defined as PIC X(02) in working storage
section.
WS-FILE-STAT2 can be coded for VSAM files to get the VSAM return code, VSAM function-code and VSAM feedback code.
This is a 6- byte field in working storage.
Ex:
FILE STATUS IS VSAM-STATUS-CODE, VSAM-EXTENDED-STATUS-CODE.
WORKING-STORAGE SECTION.
01 VSAM-STATUS-CODE.
05 VSAM-STATUS-CODE-BYTE1 PIC X.
05 VSAM-STATUS-CODE-BYTE2 PIC X.
01 VSAM-EXTENDED-STATUS-CODE.
05 VSAM-EXTENDED-RETURN-CODE PIC S9(4) COMP.
05 VSAM-EXTENDED-FUNCTION-CODE PIC S9(4) COMP.
05 VSAM-EXTENDED-FEEDBACK-CODE PIC S9(4) COMP. |
|
| Back to top |
|
|
|
|
