Figure 1. Call to CEESSLOG — Logarithm
base e 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;