Calling CEESSLOG in COBOL

CBL LIB,QUOTE
      *************************************************
      *Module/File Name: IGZTMATH
      ************************************************************
      **                                                        **
      ** Demonstrates the CEESSLOG math service in COBOL.       **
      **                                                        **
      ************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MTHSLOG.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  ARG1RS    COMP-1.
       01  RESLTRS   COMP-1.
       01  FC.
           02  Condition-Token-Value.
           COPY  CEEIGZCT.
               03  Case-1-Condition-ID.
                   04  Severity    PIC S9(4) BINARY.
                   04  Msg-No      PIC S9(4) BINARY.
               03  Case-2-Condition-ID
                         REDEFINES Case-1-Condition-ID.
                   04  Class-Code  PIC S9(4) BINARY.
                   04  Cause-Code  PIC S9(4) BINARY.
               03  Case-Sev-Ctl    PIC X.
               03  Facility-ID     PIC XXX.
           02  I-S-Info            PIC S9(9) BINARY.

       PROCEDURE DIVISION.

       PARA-MTHSLOG.

           MOVE 5.65 TO ARG1RS.
           CALL "CEESSLOG" USING ARG1RS, FC, RESLTRS.
      ***************************************************
      ** If CEESSLOG runs successfully, display result.**
      ***************************************************
           IF  CEE000 of FC  THEN
              DISPLAY "SLOG OF " ARG1RS " = " RESLTRS
           ELSE
              DISPLAY "CEESSLOG failed with msg "
                   Msg-No of FC UPON CONSOLE
              STOP RUN
           END-IF.

           GOBACK.