ISREDIT MACRO
      /* @SLCTDSX -- CREATE JCL TO UTILIZE PROC=SLCTTSO
      /*   CREATED BY DAVID MCRITCHIE, FEB 04, 1987,                 */
      /*   AVAILABLE TO ANYONE WHILE IN EDIT  */
      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: XREF  - PDS JCL DSN CROSS-REFERENCE LISTING        ")
  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: XREF  - PDS JCL DSN CROSS-REFERENCE LISTING        ")
  ISREDIT LABEL .ZLAST = .SLCT
  ISREDIT &$D$ &STR("//* JCL CREATED:   BY THE EDIT MACRO  @SLCTDSX AT )&SYSTIME ON &SYSDATE.&STR(  ")
  ISREDIT &$D$ &STR("//* USER CONTACT AND CODE MAINTENANCE: DAVID MCRITCHIE                 ")
  ISREDIT &$D$ &STR("//* ADDITIONAL INFORMATION:   ===> TSO INFOHELP PGMINDX                ")
  ISREDIT &$D$ &STR("//*                           ===> FIND FIRST 'IV2004:'                ")
  ISREDIT &$D$ &STR("//&VAR043. EXEC SLCTPDS,SYSOUT=V,PGMPARM='NOLIST,LC(88)',              ")
  ISREDIT &$D$ &STR("//           LIB='&VAR018A.'  <== ?? CHECK DSNAME                     ")
  ISREDIT &$D$ &STR("//DEFAULT OUTPUT LINECT=0,CHARS=GC15,FCB=2X85                          ")
  ISREDIT &$N$ &STR("==========> PLEASE CHECK THAT LIB=  BELOW HAS CORRECT DSNAME           ")
  ISREDIT &$D$ &STR("//SYSIN     DD  * OPTIONAL SELECT MEMBER CARDS FOLLOW                  ")
  IF &EXAMP ^= &VAR043. THEN -
     ISREDIT &$D$ &STR("EXCLUDE-&VAR043.*      SPECIFICALLY EXCLUDES MEMBER &VAR043.       ")
     ISREDIT &$D$ &STR("INCLUDE-&&              SPECIFICALLY INCLUDE ALL OTHER MEMBERS     ")
  ISREDIT &$N$ &STR("==========> PLEASE CHECK MEMBER SELECTION AFTER //SYSIN DD *       ")
  ISREDIT &$N$ &STR("==========> REMOVE ALL SELECTIONS TO PRINT / SEARCH ENTIRE LIBRARY ")
  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("|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 'IV2004:' WITHIN PGMINDX   |")
  ISREDIT &$N$ &STR("|    MEMBER SELECTION      ===> FIND FIRST 'IZ2019:' WITHIN PGMINDX3  |")
  ISREDIT &$N$ &STR("=======================================================================")
  ISREDIT LOCATE .SLCT
  ISREDIT UP 3
  ISREDIT FIND NEXT '??'
  ISREDIT DELETE .ZLAST .ZLAST