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
/******************************************************************/
/* 'COPYX' EDIT MACRO. COPY 'EXCLUDED' LINES AFTER OR BEFORE OTHER*/
/* LINES.                                                         */
/* AUTHOR : DAVID LEIGH    DATE : 11-7-89                         */
/******************************************************************/

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

ISREDIT (CURRDSN) = DATASET
LISTDSI '&CURRDSN'
IF &SYSINDEX(&STR(PO),&STR(&SYSDSORG)) = 0 THEN +
    DO
        SET ZEDLMSG = &STR(THIS DATASET MUST BE A PDS TO +
                           EXECUTE THIS UTILITY)
        ISPEXEC SETMSG MSG(UTLZ001)
        EXIT
    END

ISREDIT PROCESS RANGE A B
IF &LASTCC = 4 THEN +
    DO
        SET ZEDLMSG = &STR(LINE COMMAND 'A' OR 'B' MUST BE SPECIFIED)
        ISPEXEC SETMSG MSG(UTLZ001)
        EXIT
    END
ISREDIT (LINECMD) = RANGE_CMD

DELETE '&CURRDSN($&SYSUID)'
FREE DDNAME(TEMPFREE)
ALLOC DDNAME(TEMPFREE) +
      DSN('&CURRDSN($&SYSUID)') +
      SHR KEEP
OPENFILE TEMPFREE OUTPUT

ISREDIT LABEL .ZCSR = .LABELA
ISREDIT CURSOR = 1 1
SET SAVECC = 0
ISREDIT FIND FIRST P'=' 1 X
SET SAVECC = &LASTCC

DO WHILE &SAVECC = 0
    ISREDIT (TEMPFREE) = LINE .ZCSR
    PUTFILE TEMPFREE
    ISREDIT FIND NEXT P'=' 1 X
    SET SAVECC = &LASTCC
END
CLOSFILE TEMPFREE
FREE DDNAME(TEMPFREE)

IF &LINECMD = A THEN ISREDIT COPY $&SYSUID AFTER .ZFRANGE
ELSE ISREDIT COPY $&SYSUID BEFORE .ZLRANGE
ISREDIT CURSOR = .LABELA
ISREDIT RESET

EXIT

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