Converts file system error code returned in status to a display format number.
CALL "CKERROR" USING status, result
|
Whenever a "9" is returned as the left character of the status parameter following any call to a
KSAM procedure, you can call the procedure CKERROR to convert the MPE file system error
code in the right character of status from a binary number to a display format number. This
allows you to display the error code.
PARAMETERS |
 |
- status
is the status parameter to which a value was returned by a previous
KSAM procedure call. The entire status parameter, both left and
right characters, must be specified.
- result
is an item to which the error number is returned right justified in
display format. The item must have a picture of 4 numeric characters
(PIC 9(4) ).
USING CKERROR |
|
The following example shows the WORKING-STORAGE SECTION entries needed to check for
errors and a call to CKERROR in the PROCEDURE DIVISION that checks for and displays the
error number if a file system error occurred in a call to process a KSAM file.
DATA DIVISION.
.
.
.
WORKING-STORAGE SECTION.
77 RESULT PIC 9(4) VALUE ZERO.
01 STAT.
03 STATUS-KEY-1 PIC X.
03 STATUS-KEY-2 PIC X.
.
.
.
PROCEDURE DIVISION.
START.
.
.
.
IF STATUS-KEY-1 = "9" THEN
CALL "CKERROR" USING STAT, RESULT.
DISPLAY "ERROR NUMBER ",RESULT.
.
.
.
|
