CLIST to put flower box

CLIST TO PUT FLOWER BOX

The following clist code can be used to Tag COBOL code with comments.

ISREDIT MACRO (PARM1) NOPROCESS

ISPEXEC CONTROL ERRORS RETURN

ISREDIT PROCESS RANGE V

IF &LASTCC >= 16 THEN EXIT CODE(&LASTCC)

  ISREDIT (CMD) = RANGE_CMD

ISREDIT FIND 'IDENTIFICATION DIVISION' ALL

/**********************************************************************

/********* VALIDATING THAT IT IS A COBOL PROGRAM BEFORE

/**********************************************************************

IF &LASTCC NE 0 THEN +

DO

SET &ZEDSMSG = &STR(NOT VALID COBOL)

ISPEXEC SETMSG MSG(ISRZ001)

GOTO ENDCLIST

END

/**********************************************************************

/********* CHECKING LENGTH OF TAGNAME

/**********************************************************************

IF &LENGTH(&PARM1) > 8 THEN +

DO

SET &ZEDSMSG = &STR(INVALID TAG NAME)

ISPEXEC SETMSG MSG(ISRZ001)

GOTO ENDCLIST

END

/**********************************************************************

/*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

IF &STR(&CMD) = THEN +

   DO

   SET &ZEDSMSG = &STR(LINE COMMAND 'V' PENDING)

   ISPEXEC SETMSG MSG(ISRZ001)

   EXIT CODE(12)

   END

IF &STR(&CMD) = &STR(V) THEN +

   DO

   IF &PARM1= THEN +

   DO

   SET &PARM1=&STR(#WORKEFF)

   ISPEXEC SETMSG MSG(ISRZ001)

   END

   IF &PARM1 NE THEN +

   DO

   SET &ROWNO=&FIRST

SET &LINESTART= &STR( +

*******&PARM1***&SYSUID*****&SYSDATE****************START*********)

SET &LINEEND= &STR( +

*******&PARM1***&SYSUID*****&SYSDATE*****************END**********)

   ISREDIT LINE_AFTER &EVAL(&ROWNO) = <7 &LINESTART>

   ISREDIT LINE_AFTER &EVAL(&ROWNO + 1) = <7 &LINEEND>

   SET &ZEDSMSG = &STR(COMMENT BOX ADDED)

   ISPEXEC SETMSG MSG(ISRZ001)

   END

   ISREDIT RESET

   ISREDIT LOCATE .ZFRANGE

   END

EXIT CODE(1)

END

ENDCLIST: +

ISREDIT LOCATE .ZFRANGE

ISREDIT RESET

EXIT CODE(1)

END

; ; ; ;