ISREDIT MACRO NOPROC (AWORD)                                            00010000
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020000
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030000
    ISPEXEC CONTROL ERRORS RETURN                                       00040000
ISREDIT (AROW, ACOL) = CURSOR                                           00050000
ISREDIT PROCESS RANGE C                                                 00060000
SET &RC = &LASTCC                                                       00070000
IF &RC ^= 0 THEN +                                                      00080000
   DO                                                                   00090000
     SET &ZEDSMSG = &STR(SPECIFY RANGE CC-TO-CC)                        00100000
     SET &ZEDLMSG = &STR()                                              00110000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00120000
     EXIT CODE(8)                                                       00130000
   END                                                                  00140000
ISREDIT (BNUM) = LINENUM .ZFRANGE                                       00150000
ISREDIT (ENUM) = LINENUM .ZLRANGE                                       00160000
SET &LNENUM = 0                                                         00170000
DO WHILE &BNUM ^> &ENUM                                                 00180000
    SET &LNENUM = &LNENUM + 1                                           00190000
    SET &LNELIT = &STR(LNE&LNENUM)                                      00200000
    ISREDIT (ALINE) = LINE &BNUM                                        00210000
    SET LNE&LNENUM = &STR(&ALINE)                                       00220000
    ISPEXEC VPUT (&STR(LNE&LNENUM)) PROFILE                             00230000
    SET &BNUM = &BNUM + 1                                               00240000
END                                                                     00250000
STOP: +                                                                 00260000
END                                                                     00270000
