Return to Mainframe Utilities Page

Module


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
/******************************************************************/
/* 'MOVEX' EDIT MACRO. MOVE '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 DELETE .ZCSR
    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(UTILH029)                             02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR MOVEX UTILITY +               02490000
                   *** NO PROCESSING PERFORMED ***)                     02490000
ISPEXEC SETMSG MSG(UTLZ000)                                             02490000
EXIT
            


Documentation


 This utility allows you to EXCLUDE several lines (seperate, contigous, or both)
 and have those lines moved before or after another line.  Simply EXCLUDE
 whatever lines you want to have moved, place an A or B on the line that you
 want the exlcuded lines moved AFTER or BEFORE, type MOVEX on the command line
 and press ENTER.
            


Archives

Categories

Important links

leighweb.com – our family web site
surleslinteaux.leighweb.com – my wife’s French Sunday School blog
eglisejosue.fr – our church in France
tdr-guebwiller.eu – our house of prayer (HOP) in France
informatique.leighweb.com – My web development freelance business
My CV/Resume in English (PDF)