Back To LeighWeb Mainframe Utilities Page

ISREDIT MACRO NOPROCESS (HELP)
ISPEXEC CONTROL ERRORS RETURN
/**** 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
/******************************************************************/
/* 'NOBLANK' EDIT MACRO. GET RID OF BLANK LINES IN FILE           */
/* AUTHOR : DAVID LEIGH    DATE : 11-13-89                        */
/******************************************************************/

IF &STR(&HELP) = &STR(HELP) THEN GOTO HELPSEC

ISREDIT (LRECL) = LRECL

SET X = 0
DO WHILE &X < &LRECL
    SET X = &X + 1
    SET SPACES = &STR(&SPACES )
END

ISREDIT RESET
ISREDIT EXCLUDE ALL '&SPACES'
ISREDIT DELETE ALL X

EXIT

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