Clist to Tag COBOL code

CLIST TO TAG COBOL CODE AT 73-82 COLS

ISREDIT MACRO (PARM1) NOPROCESS                                          ISPEXEC CONTROL ERRORS RETURN                                            IF &LASTCC >= 16 THEN EXIT CODE(&LASTCC)                                   ISREDIT (CMD) = RANGE_CMD                                              ISREDIT FIND ‘IDENTIFICATION DIVISION’ ALL                               /**********************************************************************  /********* VALIDATING THAT IT IS A COBOL PROGRAM BEFORE                  /**********************************************************************  SET &ZEDSMSG = &STR(NOT VALID COBOL)                                     ISPEXEC SETMSG MSG(ISRZ001)                                              /**********************************************************************  /********* CHECKING LENGTH OF TAGNAME                                    /**********************************************************************  IF &LENGTH(&PARM1) > 8 THEN +                                            SET &ZEDSMSG = &STR(INVALID TAG NAME)                                    ISPEXEC SETMSG MSG(ISRZ001)                                              /**********************************************************************  /*STORING FIRST AND LAST LINE NUMBERS                                    /**********************************************************************  ISREDIT (FIRST) = LINENUM .ZFRANGE                                       ISREDIT (LAST) = LINENUM .ZLRANGE                                        /**********************************************************************  /*GETTING TOTAL NO OF LINES                                              /**********************************************************************  SET TOT_LINES=&LAST – &FIRST + 1                                             SET &ZEDSMSG = &STR(LINE COMMAND ‘V’ PENDING)                            ISPEXEC SETMSG MSG(ISRZ001)                                           IF &STR(&CMD) = &STR(V) THEN +                                                      SET &ZEDSMSG = &STR(NO TAG SPECIFIED)                                    ISPEXEC SETMSG MSG(ISRZ001)                                             DO WHILE &ROWNO