Running IGYTCARB

The following procedure compiles, link-edits, and runs the IGYTCARB program. If you want only to compile or only to compile and link-edit the program, you must change the procedure.

1. Using the ISPF editor, change the ISPF/PDF Primary Option Panel (ISR@PRIM) or some other panel to include the IGYTCARB invocation. Panel ISR@PRIM is in your site's PDF panel data set (normally ISRPLIB).

   The following example shows an ISR@PRIM panel modified, in two identified locations, to include the IGYTCARB invocation. If you add or change an option in the upper portion of the panel definition, you must also add or change the corresponding line on the lower portion of the panel.

   
   %----------------------  ISPF/PDF PRIMARY OPTION PANEL  ------------------------
   %OPTION  ===>_ZCMD                                                             +
   %                                                           +USERID   - &ZUSER
   %   0 +ISPF PARMS  - Specify terminal and user parameters   +TIME     - &ZTIME
   %   1 +BROWSE      - Display source data or output listings +TERMINAL - &ZTERM
   %   2 +EDIT        - Create or change source data           +PF KEYS  - &ZKEYS
   %   3 +UTILITIES   - Perform utility functions
   %   4 +FOREGROUND  - Invoke language processors in foreground
   %   5 +BATCH       - Submit to batch for language processing
   %   6 +COMMAND     - Enter TSO or Workstation commands
   %   7 +DIALOG TEST - Perform dialog testing
   %   8 +LM UTILITIES- Perform library management utility functions
   %   C +IGYTCARB    - Run IGYTCARB UPDATE TRANSACTION PROGRAM        (1)
   %   T +TUTORIAL    - Display information about ISPF/PDF
   %   X +EXIT        - Terminate using console, log, and list defaults
   %
   %
   +Enter%END+command to terminate ISPF.
   %
   )INIT
     .HELP = ISR00003
     &ZPRIM = YES         /* ALWAYS A PRIMARY OPTION MENU */
     &ZHTOP = ISR00003    /* TUTORIAL TABLE OF CONTENTS   */
     &ZHINDEX = ISR91000  /* TUTORIAL INDEX - 1ST PAGE    */
     VPUT (ZHTOP,ZHINDEX) PROFILE
   )PROC
     &Z1 = TRUNC(&ZCMD,1)
     IF (&Z1 &notsym.= '.')
       &ZSEL = TRANS( TRUNC (&ZCMD,'.')
                     0,'PANEL(ISPOPTA)'
                     1,'PGM(ISRBRO)  PARM(ISRBRO01)'
                     2,'PGM(ISREDIT) PARM(P,ISREDM01)'
                     3,'PANEL(ISRUTIL)'
                     4,'PANEL(ISRFPA)'
                     5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK'
                     6,'PGM(ISRPCC)'
                     7,'PGM(ISRYXDR) NOCHECK'
                     8,'PANEL(ISRLPRIM)'
                     C,'PGM(IGYTCARB)'                              (2)
                     T,'PGM(ISPTUTOR) PARM(ISR00000)'
                   ' ',' '
                     X,'EXIT'
                     *,'?' )
       &ZTRAIL = .TRAIL
     IF (&Z1 = '.') .msg = ISPD141
   )END
   

   As indicated by (1) in this example, you add IGYTCARB to the upper portion of the panel by entering:

   
   %   C +IGYTCARB    - Run IGYTCARB UPDATE TRANSACTION PROGRAM
   

   You add the corresponding line on the lower portion of the panel, indicated by (2), by entering:

   
   C,'PGM(IGYTCARB)'
   

2. Place ISR@PRIM (or your other modified panel) and IGYTPNL in a library and make this library the first library in the ISPPLIB concatenation.
3. Comment sequence line IB2200 and uncomment sequence line IB2210 in IGYTCARB. (The OPEN EXTEND statement is supported under z/OS.)
4. Compile and link-edit IGYTCARB and place the resulting program object in your LOADLIB.
5. Allocate ISPLLIB by using the following command:

   
   ALLOCATE FILE(ISPLLIB) DATASET(DSN1, SYS1.COBLIB, DSN2) SHR REUSE
   

   Here DSN1 is the library name of the LOADLIB from step 4. DSN2 is your installed ISPLLIB.

6. Allocate the input and output data sets by using the following command:

   
   ALLOCATE FILE(UPDTRANS) DA('IGY.V6R3M0.SIGYSAMP(IGYTRANB)') SHR REUSE
   

7. Allocate ISPPLIB by using the following command:

   
   ALLOCATE FILE(ISPPLIB) DATASET(DSN3, DSN4) SHR REUSE
   

   Here DSN3 is the library containing the modified panels. DSN4 is the ISPF panel library.

8. Invoke IGYTCARB by using your modified panel.