ISREDIT MACRO
      /* @SLCT -- CREATE JCL TO UTILIZE  PROC=SLCTTSO
      /*   CREATED BY DAVID MCRITCHIE, NOV 14, 1986,                 */
      /*   AVAILABLE TO ANYONE WHILE IN EDIT  */
      /* -- A DOWN OPTION WOULD SAVE TIME BY ELIMINATING EDIT CHANGES*/
      ISREDIT (VAR018) = DATAID
      ISREDIT (VAR018A) = DATASET
      ISREDIT (VAR043) = MEMBER
      SET EXAMP = &SUBSTR(1:4,&VAR043.     )
      ISREDIT RESET
        ISREDIT (DWIDTH) = DATA_WIDTH
        SET DWIDTH2 = &DWIDTH + &DWIDTH     /* CAN BE USED TO FORCE AN ERROR */
        ISREDIT (LBOUND,RBOUND) = BOUNDS
        SET XLBOUND = &EVAL(&LBOUND)
        SET XRBOUND = &EVAL(&RBOUND)
        IF XRBOUND = &STR() THEN SET XRBOUND = &EVAL(&DWIDTH.)
        ISREDIT     (VAR019,VAR020) = DISPLAY_COLS
 /*     WRITE    LBOUND=&LBOUND  RBOUND=&RBOUND  DWIDTH=&DWIDTH  DISPLAY(&VAR019,&VAR020)
        IF &EVAL(1000 + &DWIDTH) > &EVAL(1080) THEN SET TEXT = TEXT
    ISREDIT FIND '?' FIRST
  SET $D$ = &STR(LINE_AFTER  .ZLAST = DATALINE)
  SET $N$ = &STR(LINE_BEFORE .ZLAST = NOTELINE)
     ISREDIT (VAR037) = LINENUM .ZLAST
     IF &EVAL(&VAR037)  = &EVAL(0) THEN DO
     ISREDIT LINE_AFTER 0 = DATALINE -
                        &STR("//* TITLE: LIST    SELECTIVE SEARCH AND PRINT ANY PDS         ")
  ISREDIT &$N$ &STR("............ YOU WILL NEED A JOBCARD, IF YOU DO NOT HAVE A JOBCARD     ")
  ISREDIT &$N$ &STR("............ CLIST, YOU MAY PATTERN ONE FROM IS03.LIBR.CLIST(JOBCARD)  ")
     END
     ELSE  ISREDIT &$D$ &STR("//* TITLE: LIST    SELECTIVE SEARCH AND PRINT ANY PDS         ")
  ISREDIT LABEL .ZLAST = .SLCT
  ISREDIT &$D$ &STR("//* JCL CREATED:   BY THE EDIT MACRO  @SLCT    AT )&SYSTIME ON &SYSDATE.&STR(  ")
  ISREDIT &$D$ &STR("//* USER CONTACT AND CODE MAINTENANCE: DAVID MCRITCHIE                 ")
  ISREDIT &$D$ &STR("//&VAR043. EXEC SLCTTSO,SYSOUT=V,                                      ")
  ISREDIT &$D$ &STR("//**          OUTPUT='*.DOWN8',LC=78,                                  ")
  ISREDIT &$D$ &STR("//            LIB='&VAR018A.'  <== ?? CHECK DSNAME                     ")
  ISREDIT &$N$ &STR("==========> PLEASE CHECK THAT LIB=  BELOW HAS CORRECT DSNAME           ")
  ISREDIT &$D$ &STR("//PRINTER   DD  SYSOUT=9   DIRECTORY LIST SUPPRESSED IF SYSOUT=9")
  ISREDIT &$D$ &STR("//SEARCH    DD  * OPTIONAL SEARCH CARDS FOLLOW                         ")
  ISREDIT &$D$ &STR("//SYSIN     DD  * OPTIONAL SELECT MEMBER CARDS FOLLOW                  ")
  ISREDIT &$N$ &STR("*.COPY*            <=== EXAMPLE OF A SEARCH  INPUT CARD                ")
  ISREDIT &$N$ &STR("* EXEC COPY *      <=== EXAMPLE OF A SEARCH  INPUT CARD                ")
  ISREDIT &$N$ &STR("* EXEC COPY,*      <=== EXAMPLE OF A SEARCH  INPUT CARD                ")
  IF &EXAMP ^= &VAR043. THEN -
     ISREDIT &$D$ &STR("EXCLUDE=&VAR043.*      SPECIFICALLY EXCLUDES MEMBER &VAR043.       ")
  ISREDIT &$N$ &STR("==========> PLEASE CHECK MEMBER SELECTION AFTER //SYSIN DD *       ")
  ISREDIT &$N$ &STR("==========> REMOVE ALL SELECTIONS TO PRINT / SEARCH ENTIRE LIBRARY ")
  ISREDIT &$D$ &STR("&EXAMP        <=??= WILL SELECT ALL OTHER MEMBERS BEGINNING WITH &EXAMP.")
  ISREDIT &$D$ &STR("================ PLACEMENT OF ENDING COMMENT ========================= ")
  ISREDIT &$N$ &STR("=======================================================================")
  ISREDIT &$N$ &STR("| SELECTION CRITERIA  USED BY PGM=IZ2018 IN PROC=SLCTTSO IS THE SAME  |")
  ISREDIT &$N$ &STR("|      AS USED BY PGM=IZ2019 AND CONSISTS OF EXAMINATION OF MEMBER-   |")
  ISREDIT &$N$ &STR("|      NAMES, CHECKING ON CORRESPONDING POSITIONS OF MEMBERNAME.      |")
  ISREDIT &$N$ &STR("| @,#,$,A-Z,0-9   EXACT MATCH IN CORRESPONDING COLUMN REQUIRED        |")
  ISREDIT &$N$ &STR("| %               MUST BE A LETTER @,#,$,A-Z                          |")
  ISREDIT &$N$ &STR("| +               MUST BE A DIGIT 0-9 IN CORRESPONDING COLUMN OF NAME |")
  ISREDIT &$N$ &STR("| *               MUST BE A BLANK, HENCE REMAINDER ALSO BLANK         |")
  ISREDIT &$N$ &STR("|//SYSIN  DD *                                                        |")
  ISREDIT &$N$ &STR("|EXCLUDE= BCD      EXCLUDE CARDS MUST PRECEDE INCLUDE=  CARDS         |")
  ISREDIT &$N$ &STR("|EXCLUDE=A   E     EXCLUDE MEMBERS BEGINNING WITH 'A', AND POS. 5 'E' |")
  ISREDIT &$N$ &STR("|INCLUDE=ABCDE     MEMBER ABCDE EXCLUDED ABOVE, BUT ABCDE1 WILL SELECT|")
  ISREDIT &$N$ &STR("|ABCED             SAME AS   IF PREFIXED WITH INCLUDE=ABCDE           |")
  ISREDIT &$N$ &STR("=======================================================================")
  ISREDIT &$N$ &STR("| ------- DEFAULT PRINTS HORIZONTALLY ON 3800 ---------------------   |")
  ISREDIT &$N$ &STR("| LC=88,OUTPUT=H3800  DEFAULT -- PRINTS HORIZONTALLY ON 3800          |")
  ISREDIT &$N$ &STR("| ------- ADD JCL PARAMETERS TO PRINT IN NORMAL CHARACTERS --------   |")
  ISREDIT &$N$ &STR("| LC=60,OUTPUT=LC60   PRINT USING REGULAR CHARS=GT15,FCB=8X85         |")
  ISREDIT &$N$ &STR("|          IN SMALL LETTERS  12/INCH VERICAL, 15/INCH HORIZONTAL      |")
  ISREDIT &$N$ &STR("| ------- PRINT OPTIONS TO PRINT ON VERITICAL -SCRIPT- PAPER ------   |")
  ISREDIT &$N$ &STR("| LC=80,OUTPUT=LC80    MEMBER NAME, 2 BLANKS, 105 CHAR/LINE  GT15     |")
  ISREDIT &$N$ &STR("|LC=120,OUTPUT=V3800   MEMBER NAME, 2 BLANKS, 105 CHAR/LINE  GC15     |")
  ISREDIT &$N$ &STR("=======================================================================")
  ISREDIT &$N$ &STR("|USAGE:         SOURCE TYPE PDS -- NOT RECFM=U                        |")
  ISREDIT &$N$ &STR("|PURPOSE: PRINT MEMBERS OF A PDS, AND/OR                              |")
  ISREDIT &$N$ &STR("|         SEARCH FOR CHARACTER STRINGS IN A PDS, AND/OR               |")
  ISREDIT &$N$ &STR("|         SELECT MEMBERS BY PGM=IZ2019 STANDARDS                      |")
  ISREDIT &$N$ &STR("|         PROC=SLCTTSO SET UP TO PRINT ON A 3800                      |")
  ISREDIT &$N$ &STR("|ADDITIONAL INFORMATION:   ===> TSO INFOHELP PGMINDX                  |")
  ISREDIT &$N$ &STR("|    PROGRAM   INFORMATION ===> FIND FIRST 'IZ2018:'                  |")
  ISREDIT &$N$ &STR("|    MEMBER SELECTION      ===> FIND FIRST 'IZ2019:'                  |")
  ISREDIT &$N$ &STR("=======================================================================")
  ISREDIT LOCATE .SLCT
  ISREDIT UP 3
  ISREDIT FIND NEXT '??'
  ISREDIT DELETE .ZLAST .ZLAST
  ISREDIT C ALL 'EXCLUDE=' 'EXCLUDE-'
  ISREDIT C ALL 'INCLUDE=' 'INCLUDE-'