Calling CEESSLOG in PL/I

*PROCESS MACRO;
  /*Module/File Name: IBMMATH            */
      /**********************************************************/
      /*                                                        */
      /* Demonstrates the CEESSLOG math service in PL/I.        */
      /*                                                        */
      /**********************************************************/

 MTHSLOG: PROC OPTIONS(MAIN);

    %INCLUDE  CEEIBMAW;
    %INCLUDE  CEEIBMCT;

    DCL 01 FC,                      /* Feedback token */
           03 MsgSev    REAL FIXED BINARY(15,0),
           03 MsgNo     REAL FIXED BINARY(15,0),
           03 Flags,
              05 Case      BIT(2),
              05 Severity  BIT(3),
              05 Control   BIT(3),
           03 FacID     CHAR(3),    /* Facility ID */
           03 ISI                   /* Instance-Specific Information */
                        REAL FIXED BINARY(31,0);
    DCL ARG1   REAL FLOAT DECIMAL(6) INIT(5.65);
    DCL RESULT REAL FLOAT DECIMAL(6);

    CALL CEESSLOG (ARG1, FC, RESULT);
    IF  FBCHECK( FC, CEE000)  THEN
       PUT SKIP LIST( 'SLOG OF ' || ARG1 || ' is ' || RESULT );
    ELSE
       PUT SKIP LIST( 'CEESLOG failed with msg '|| FC.MsgNo );

 END MTHSLOG;