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
            

 This utility allows you to delete all the blank lines in a file that you are
 editing by typing NOBLANK on the command line and pressing ENTER.  The utility
 first RESETs the file then excludes all lines that are completely blank, and
 deletes the excluded lines.  Note : if you invoke NOBLANK after making a
 change, but before pressing ENTER the lines on which you made the change will
 look like they previously looked.  Therefore, always press ENTER after making a
 change before you invoke NOBLANK or you can invoke NOBLANK like this ==>
 ;noblank The ';' before NOBLANK will simulate an ENTER.