HPlogo Using KSAM XL and KSAM 64 > Appendix A COBOL Intrinsics

CKERROR

MPE documents

Complete PDF
Table of Contents
Index

E0300 Edition 4 ♥
E0394 Edition 3

Converts KSAM 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

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

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) ).

Operation Notes

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.



CKDELETE

CKLOCK