Back To LeighWeb Mainframe Utilities Page

PROC 1 EQUATION
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE CONTROL NOMSG NOLIST NOFLUSH NOPROMPT
IF &STR(&EQUATION) = HELP THEN GOTO HELPSEC
/**********************************************************************
/* UTILITY : CALCULAT                                                 *
/* AUTHOR : DAVID LEIGH                                               *
/* DATE : 10-20-90                                                    *
/* FUNCTION : THIS CLIST PROCESSES ARITHMATIC CALCULATIONS AND        *
/*            DISPLAYS A MESSAGE WITH THE RESULT.                     *
/**********************************************************************

SET ZEDLMSG = &STR(&EQUATION = &EVAL(&EQUATION))
ISPEXEC SETMSG MSG(UTLZ000)

EXIT

HELPSEC: +                                                              02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)                             02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR CALCULAT UTILITY +            02490000
                   *** NO PROCESSING PERFORMED ***)                     02490000
ISPEXEC SETMSG MSG(UTLZ000)                                             02490000
EXIT