Configuring Your Product › Customizing the Option for ISPF › Relationships Between the Option for ISPF and ISPF/PDF › Panel Relationships

Panel Relationships

The following ISPF/PDF panels are modified:

• ISR@PRIM is modified so that you can select the CA Panvalet Option for ISPF from the ISPF/PDF Primary Option Menu.

  Make the changes described in Step 1: Renaming the Primary Menu.

• ISR00003 is modified to link in the CA Panvalet Option for ISPF tutorials. Make the following changes:

  In the )AREA section for ISR00003, before the following statement:

  .   ..X .Exit        .- Terminate ISPF using log and list defaults     .        
  

  Add the following CA-Panvalet statement:

  .   ..P .PANVALET    - CA-Panvalet ISPF Option                         .        
  

  In the )PROC Section of ISR00003, before the following statement:

                  X,ISP90100                                                      
  

  Add the following CA Panvalet statement:

                  P,PSPIT000                                                      
  

• ISREDM02 is modified so that CA Panvalet Option for ISPF edit recoveries are automatically deferred when entering normal ISPF/PDF edit. Make the following changes.

  In the )INIT Section of ISREDM02, after the following statements:

    IF (&ZEDTVOL = ' ')                                                           
      &Z2 = ' '                                                                   
  

  Add the following CA-PANVALET statements:

  /*                                                                            */
  /*  The following logic has been added for CA-Panvalet/ISPF so that           */
  /*  pending CA-Panvalet recoveries are automatically deferred. This           */
  /*  is necessary since ISPF/PDF can not process CA-Panvalet recoveries.       */
  /*  The target dataset name for the recovery determines whether the           */
  /*  edit was CA-Panvalet or not. CA-Panvalet edit uses the dataset name:      */
  /*                                                                            */
  /*  '(PREFIX.)USERID.PANVALET.ISPFOPTN.EDITNNN'                               */
  /*                                                                            */
  /*  (PREFIX.) ============> TSO PREFIX, omitted if same as USERID             */
  /*  USERID. ==============> TSO USER ID                                       */
  /*  PANVALET.ISPFOPTN. ===> Can be changed in options panel (PSPIPOPT)        */
  /*  EDITNNN ==============> NNN is a unique PV EDIT session number            */
  /*                                                                            */
   &P1 = TRUNC(&ZEDTDSN,'.')              /* first qualifier of DSN             */
   &P2 = .TRAIL                           /* remainder of DSN                   */
   IF (&P2 ^= ' ')                        /* more than one qualifier?           */
     IF  (&PQZP = 'Y')                    /* Use Tso Prefix                     */
       IF (&P1 = &ZPREFIX)                /* is first qualifier prefix?         */
           IF (&PQZU = 'Y')               /* Also using ZUSER                   */
             IF (&ZPREFIX ^= &ZUSER)      /* If ZPREFIX and ZUSER Differ        */
                 &P1 = TRUNC(&P2,'.')     /* next qualifier of DSN              */
                 &P2 = .TRAIL             /* remainder of DSN                   */
           IF (&PQZU = 'N')               /* If NOT using ZUSER                 */
                 &P1 = TRUNC(&P2,'.')     /* next qualifier of DSN              */
                 &P2 = .TRAIL             /* remainder of DSN                   */
     IF (&P2 ^= ' ')                      /* more qualifiers?                   */
       IF (&PQZU = 'Y')                   /* Use Tso Userid ZUSER               */
        IF (&P1 = &ZUSER)                 /* userid present in DSN?             */
         &P1 = TRUNC(&P2,'.')             /* next qualifier of DSN              */
         &P2 = .TRAIL                     /* remainder of DSN                   */
       IF (&P2 ^= ' ')                    /* more qualifiers?                   */
           IF (&P1 = &PQL1)               /* PV edit dummy DSN?                 */
             &P1 = TRUNC(&P2,'.')         /* next qualifier of DSN              */
             &P2 = .TRAIL                 /* remainder of DSN                   */
             IF (&P2 ^= ' ')              /* more qualifiers?                   */
               IF (&P1 = &PQL2)           /* PV edit dummy DSN?                 */
                 &P1 = TRUNC(&P2,'.')     /* next qualifier of DSN              */
                 &P2 = .TRAIL             /* remainder of DSN                   */
                 IF (&P2 = ' ')           /* right number of qualifiers?        */
                   &P1 = TRUNC(&P1,4)     /* first four bytes                   */
                   IF (&P1 = 'EDIT')      /* PV edit dummy dsn?                 */
                     &ZCMD = 'DEFER'      /* defer PV edit recovery             */
                     .RESP = 'ENTER'      /* simulate 'enter' response          */
             IF (&P2 = ' ')               /* PQL2 NOT present                   */
                   &P1 = TRUNC(&P1,4)     /* first 4 bytes of last qual         */
                   IF (&P1 = 'EDIT')      /* PV edit dummy dsn?                 */
                     &ZCMD = 'DEFER'      /* defer PV edit recovery             */
                     .RESP = 'ENTER'      /* simulate 'enter' response          */
  /*                                                                            */
  /*  End of logic added for CA-Panvalet/ISPF.                                  */
  /*                                                                            */
  

• Edit confirmation panels ISRECPY2, ISRECRA2, ISREMOV2, and ISRERPL2 are modified so that they display the CA Panvalet data set name when you invoke the ISPF/PDF edit COPY, CREATE, MOVE, and REPLACE commands from within a CA Panvalet edit session.

  Make the following changes:

  In the )INIT Section of ISRECPY2, after the following statement:

  )INIT                                                                           
  

  Add the following CA-PANVALET statements:

    IF (&PACT = Y)                 /* CA-PANVALET/ISPF */                         
       &ZTODSN = '&PCUR(&PMBR)'    /* CA-PANVALET/ISPF */                         
  

  In the )INIT Section of ISRECRA2, after the following statement:

  )INIT                                                                           
  

  Add the following CA-PANVALET statements:

   IF (&PACT = Y)                  /* CA-PANVALET/ISPF */                         
      &ZCURRDSN = '&PCUR(&PMBR)'   /* CA-PANVALET/ISPF */                         
  

  In the )INIT Section of ISREMOV2, after the following statement:

  )INIT                                                                           
  

  Add the following CA-PANVALET statements:

   IF (&PACT = Y)                  /* CA-PANVALET/ISPF */                         
      &ZTODSN = '&PCUR(&PMBR)'     /* CA-PANVALET/ISPF */                         
  

  In the )INIT Section of ISRERPL2, after the following statement:

  )INIT                                                                           
  

  Add the following CA-PANVALET statements:

   IF (&PACT = Y)                  /* CA-PANVALET/ISPF */                         
      &ZCURRDSN = '&PCUR(&PMBR)'   /* CA-PANVALET/ISPF */