Back To LeighWeb Mainframe Utilities Page

ISREDIT MACRO NOPROCESS (PARM)
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
/**********************************************************************/
/* UTILITY NAME : MASK                                                */
/* DATE WRITTEN : 10-12-90                                            */
/* AUTHOR       : DAVE LEIGH                                          */
/* DESCRIPTION  : SET THE MASK LINE TO A GIVEN DATA LINE IN THE FILE. */
/*                (THIS CAN BE HELPFUL FOR DEFINING MASK LINES WITH   */
/*                 HEX CHARACTERS.)                                   */
/*========================== MODIFICATIONS ===========================*/
/* WHO         ¦WHEN     ¦WHY                                         */
/* ---         ¦----     ¦---                                         */
/**********************************************************************/

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

ISREDIT PROCESS RANGE M
IF &LASTCC ¬= 0 THEN +
    DO
        SET ZEDLMSG = &STR(*** NO LINE MARKED "M" TO USE AS THE +
                           MASK LINE ***)
        ISPEXEC SETMSG MSG(UTLZ001)
        EXIT
    END
ELSE +
    ISREDIT (MLINE) = LINE .ZFRANGE

ISREDIT MASKLINE = (MLINE)
ISREDIT DELETE .ZFRANGE

SET MCC = &LASTCC

IF &MCC = 0 THEN +
    DO
        SET ZEDLMSG = &STR(*** THE "M" LINE IS NOW THE "MASK" LINE +
                           ***)
        ISPEXEC SETMSG MSG(UTLZ000)
    END
ELSE +
    DO
        SET ZEDLMSG = &STR(*** SETTING THE MASK LINE FAILED WITH A +
                           RETURN CODE OF "&MCC" ***)
        ISPEXEC SETMSG MSG(UTLZ001)
    END

EXIT

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