Edit macro @SLCTDSX                                          Edit macro @SLCTDSX

                                                       Author: David McRitchie
                                                   formatted on  1995/04/01 06:54
          for assistance contact: D. McRitchie                DMcRitchie@hotmail.com
--------------------------------------------------------------------------------
Macro name.  @SLCTDSX
users.       PDF EDIT users particularly SCRIPT users
type.        Edit Macro   resides in SYS1.TSOCLIST

--------------------------------------------------------------------------------
@SLCTDSX Brings in JCL for Selective DSN XREF of a PDS
--------------------------------------------------------------------------------
    related   @RESQ edit macro
    related   @SLCT edit macro
--------------------------------------------------------------------------------

Use  of the edit macro makes it easier to create a job to selectively print mem-
bers from a source or text type dataset.  This edit macro provides a listing  of
each member and a dataset cross-reference.  Designed for 80-byte records; longer
records will be truncated.

--------------------------------------------------------------------------------

                               Since square brackets are not available, optional
                                material is enclosed in European brackets <...>.
  ISREDIT  @SLCTDSX <no parameters>

--------------------------------------------------------------------------------

Examples:

 The resulting member in edit after doing a reset would look something like this

EDIT --- IS03.SHARE.TEXT(EXAMPLE)  - 01.00 ------------------ COLUMNS 001 124
COMMAND ===> @SLCTDSX                        SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
00001  //* TITLE: XREF  - PDS JCL DSN CROSS-REFERENCE LISTING
00002  //* JCL CREATED:   BY THE EDIT MACRO  @SLCTDSX AT 14:22:38 ON 1987/03/04
00003  //* USER CONTACT AND CODE MAINTENANCE: DAVID MCRITCHIE
00004  //* ADDITIONAL INFORMATION:   ===> TSO INFOHELP PGMINDX
00005  //*                           ===> FIND FIRST 'IV2004:'
00006  //Z EXEC SLCTPDS,SYSOUT=V,PGMPARM='NOLIST,LC(88)',
00007  //           LIB='IS03.LIBR.CLIST'  <== ?? CHECK DSNAME
00008  //DEFAULT OUTPUT LINECT=0,CHARS=GC15,FCB=2X85
00009  //SYSIN     DD  * OPTIONAL SELECT MEMBER CARDS FOLLOW
00010  EXCLUDE-XXXXXXXX         SPECIFICALLY EXCLUDE MEMBER XXXXXXXX
00011  INCLUDE-&                SPECIFICALLY INCLUDE ALL OTHER MEMBERS
****** ************************* BOTTOM OF DATA *****************************

 The resulting member in edit before doing a reset would look something like thi
s

EDIT --- IS03.SHARE.TEXT(EXAMPLE)  - 01.00 ------------------ COLUMNS 001 124
COMMAND ===> @SLCTDSX                        SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
=NOTE= ............ YOU WILL NEED A JOBCARD, IF YOU DO NOT HAVE A JOBCARD
=NOTE= ............ CLIST, YOU MAY @SLCTDSX ONE FROM IS03.LIBR.CLIST(JOBCARD)
00001  //* TITLE: XREF  - PDS JCL DSN CROSS-REFERENCE LISTING
00002  //* JCL CREATED:   BY THE EDIT MACRO  @SLCTDSX AT 14:22:38 ON 1987/03/04
00003  //* USER CONTACT AND CODE MAINTENANCE: DAVID MCRITCHIE
00004  //* ADDITIONAL INFORMATION:   ===> TSO INFOHELP PGMINDX
00005  //*                           ===> FIND FIRST 'IV2004:'
00006  //Z EXEC SLCTPDS,SYSOUT=V,PGMPARM='NOLIST,LC(88)',
=NOTE= ==========> PLEASE CHECK THAT LIB=  BELOW HAS CORRECT DSNAME
00007  //*           LIB='IS03.LIBR.CLIST'  <== ?? CHECK DSNAME
00008  //DEFAULT OUTPUT LINECT=0,CHARS=GC15,FCB=2X85
00009  //SYSIN     DD  * OPTIONAL SELECT MEMBER CARDS FOLLOW
00010  EXCLUDE-XXXXXXXX         SPECIFICALLY EXCLUDE MEMBER XXXXXXXX
00011  INCLUDE-&                SPECIFICALLY INCLUDE ALL OTHER MEMBERS

=NOTE= ==========> PLEASE CHECK MEMBER SELECTION AFTER //SYSIN DD *
=NOTE= =======================================================================
=NOTE= | SELECTION CRITERIA  USED BY PGM=IZ2018 IN PROC=SLCTTSO IS THE SAME  |
=NOTE= |      AS USED BY PGM=IZ2019 AND CONSISTS OF EXAMINATION OF MEMBER-   |
=NOTE= |      NAMES, CHECKING ON CORRESPONDING POSITIONS OF MEMBERNAME.      |
=NOTE= | @,#,$,A-Z,0-9   EXACT MATCH IN CORRESPONDING COLUMN REQUIRED        |
=NOTE= | %               MUST BE A LETTER @,#,$,A-Z                          |
=NOTE= | +               MUST BE A DIGIT 0-9 IN CORRESPONDING COLUMN OF NAME |
=NOTE= | *               MUST BE A BLANK, HENCE REMAINDER ALSO BLANK         |
=NOTE= |//SYSIN  DD *                                                        |
=NOTE= |EXCLUDE- BCD      EXCLUDE CARDS MUST PRECEDE INCLUDE-  CARDS         |
=NOTE= |EXCLUDE-A   E     EXCLUDE MEMBERS BEGINNING WITH 'A', AND POS. 5 'E' |
=NOTE= |INCLUDE-ABCDE     MEMBER ABCDE EXCLUDED ABOVE, BUT ABCDE1 WILL SELECT|
=NOTE= |ABCED             SAME AS   IF PREFIXED WITH INCLUDE-ABCDE           |
=NOTE= =======================================================================
=NOTE= |USAGE:         SOURCE TYPE PDS -- NOT RECFM=U                        |
=NOTE= |PURPOSE: PRINT MEMBERS OF A PDS, AND/OR                              |
=NOTE= |         SEARCH FOR CHARACTER STRINGS IN A PDS, AND/OR               |
=NOTE= |         SELECT MEMBERS BY PGM=IZ2019 STANDARDS                      |
=NOTE= |         PROC=SLCTTSO SET UP TO PRINT ON A 3800                      |
=NOTE= |ADDITIONAL INFORMATION:   ===> TSO INFOHELP PGMINDX                  |
=NOTE= |    PROGRAM   INFORMATION ===> FIND FIRST 'IV2004:' WITHIN PGMINDX   |
=NOTE= |    MEMBER SELECTION      ===> FIND FIRST 'IZ2019:' WITHIN PGMINDX3  |
****** ************************* BOTTOM OF DATA *****************************