/*REXX*/
 /*  TITLE:  PERIOD -- CHANGE (") TO USE OF :Q...:EQ. FOR SCRIPT TEXT*/
 /*  USERS:       TSO ISPF EDIT USERS   | SCRIPT USERS               */
 /*  CONTRIBUTED: 1987/01/20 DAVID MCRITCHIE                         */
 /*                CONVERTED TO REXX 1993/05/19                      */
 /*  EXAMPLE:     PERIOD                                             */
 /*                                                                  */
 /*  OPTIONS:                                                        */
 /*      COL1 COL2  .LABEL1 .LABEL2  NX                              */
 /*      NX   CANNOT BE USED WITH OTHER OPTIONS                      */
 ADDRESS "ISREDIT";"MACRO (RANGE)"
 /* SCRIPT CONVERSION TO PAGE USAGE -- D.MCR */
 SYSTIME = SUBSTR(TIME('N'),1,8)
 "SEEK FIRST       P'<$ ><'"
 "(LICNT1S,LICNT2L) = SEEK_COUNTS"
 IF LICNT1S  = 0  THEN DO
    "SEEK FIRST       P'>>$ ><'"
    "(LICNT1S,LICNT2L) = SEEK_COUNTS"
    IF LICNT1S  =  0 THEN DO
       "LINE_BEFORE .ZF = NOTELINE """SYSTIME ,
           "PERIOD -- NOT FOUND -- P'<$ ><' NOR P'>>$ ><'"""
       EXIT 0
    END
 END
 IF RANGE = '' THEN RANGE = '.ZF .ZL'
 "X ALL" RANGE
 "F ALL" RANGE "C'.. T'"
 "F ALL" RANGE "C'. Th'"  /* MUST BE A LOWERCASE H */
 "F ALL" RANGE "P'$ $HP#$TH'"
 "F ALL" RANGE "P'#$ ><'"
 "F ALL" RANGE "P'<$ ><'"
 "F ALL" RANGE "P'<$ A '"
 "(IMACRO) = IMACRO"
 "LOC 0"
 "LINE_BEFORE .ZF = NOTELINE """SYSTIME ,
      "PERIOD -- FOUND -- P'<$ ><'   OR  P'>>$ <>'"""