PK62951: NEW FUNCTION TO ADD A NEW ISPF INTERFACE

APAR status

• Closed as new function.

Error description

• New Function - ISPF interface being added.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of IMS RE.                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: A new ISPF client interface is added to *
  *                      the product.                            *
  *                      Two new sets of install libraries are   *
  *                      added to the product.                   *
  *                      AIROMENU/SIROMENU                       *
  *                      AIROSEMU/SIROSENU                       *
  *                      To install the PTF these 2 sets of      *
  *                      has to be defined to SMP/E and to be    *
  *                      allocated.                              *
  *                      Samples are provided how to define      *
  *                      and allocate the libraries.             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  New ISPF client interface is added to IMS RE.
  1.Run IROALLOC to allocate AIROMENU/SIROMENU
                             AIROSENU/SIROSENU
  Use next DD definitions to allocate target libraries:
   //SIROMENU DD  DSN=&TARGPRE..SIROMENU,
   //         DISP=(NEW,&DSP),
   //         RECFM=FB,LRECL=80,BLKSIZE=0,
   //         SPACE=(8800,(20,10,2)),
   //         UNIT=&UNIT,
   //         VOL=SER=&TARGVOL
   //SIROSENU DD  DSN=&TARGPRE..SIROSENU,
   //         DISP=(NEW,&DSP),
   //         RECFM=FB,LRECL=80,BLKSIZE=0,
   //         SPACE=(8800,(20,10,2)),
   //         UNIT=&UNIT,
   //         VOL=SER=&TARGVOL
  Use next DD definitions to allocate distribution libraries:
   //AIROMENU DD  DSN=&TARGPRE..AIROMENU,
   //         DISP=(NEW,&DSP),
   //         SPACE=(8800,(20,10,2)),
   //         UNIT=&UNIT,
   //         VOL=SER=&TARGVOL
   //AIROSENU DD  DSN=&TARGPRE..AIROSENU,
   //         DISP=(NEW,&DSP),
   //         RECFM=FB,LRECL=80,BLKSIZE=0,
   //         SPACE=(8800,(20,10,2)),
   //         UNIT=&UNIT,
   //         VOL=SER=&TARGVOL
  
  
  2.Run IRODDDEF to define   AIROMENU/SIROMENU
                             AIROSENU/SIROSENU
  Add next control cards to DDDDEFD step:
    ADD DDDEF(AIROMENU)
        DATASET(#hlqual.AIROMENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
    ADD DDDEF(AIROSENU)
        DATASET(#hlqual.AIROSENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
  
  Add next control cards to DDDDEFT step:
    ADD DDDEF(AIROMENU)
        DATASET(#hlqual.AIROMENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
    ADD DDDEF(AIROSENU)
        DATASET(#hlqual.AIROSENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
    ADD DDDEF(SIROMENU)
        DATASET(#hlqual.SIROMENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
    ADD DDDEF(SIROSENU)
        DATASET(#hlqual.SIROSENU)
        UNIT(SYSALLDA)
        VOLUME(#volserd)
        WAITFORDSN
        SHR
        .
  

Problem conclusion

Temporary fix

Comments

• Run IROALLOC and IRODDEF samples with the new DDs and control
  statements to add two new sets of distribution/target libraries
  and to define the new libraries to SMP/E.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UK36846

Modules/Macros

• HACX110J IROALLOC IRODDDEF IROT$ADO IROT$ADS
  IROT$API IROT$APO IROT$CMS IROT$COM IROT$CTS IROT$DBC IROT$DBI
  IROT$DBO IROT$DDI IROT$DDO IROT$DLI IROT$DLO IROT$EAO IROT$EMS
  IROT$ENC IROT$ENU IROT$ETS IROT$FMA IROT$FM1 IROT$GEN IROT$GNJ
  IROT$IBN IROT$ICN IROT$JCL IROT$NCT IROT$OVR IROT$PCN IROT$PSC
  IROT$PSD IROT$PSM IROT$PSO IROT$PSR IROT$PSS IROT$PS0 IROT$RB
  IROT$RPD IROT$RRO IROT$STA IROT$STN IROT$STO IROT$UTA IROT$UTO
  IROT$XXR IROT$XXS IROT$XXT IROTGADO IROTGADP IROTGADS IROTGADU
  IROTGDDW IROTGDRF IROTGEN  IROTGENE IROTGEN0 IROTGEN1 IROTGEN2
  IROTGEN3 IROTGEN8 IROTGEN9 IROTGFMA IROTGFMT IROTGFM1 IROTGIBS
  IROTGIB0 IROTGIB1 IROTGIB2 IROTGICS IROTGIC0 IROTGIC1 IROTGIC2
  IROTGIC3 IROTGIC4 IROTGINI IROTGJCL IROTGOVR IROTGPCS IROTGPC0
  IROTGPC1 IROTGPC2 IROTGPC3 IROTGPSA IROTGPSC IROTGPSD IROTGPSM
  IROTGPSO IROTGPSR IROTGSTA IROTGSTO IROTGSTS IROTGST0 IROTGST1
  IROTGST2 IROTGUTA IROTGUTO IROTG00  IROTG01  IROTG02  IROTG03
  IROTG04  IROTG05  IROTG11  IROTG12  IROTG21  IROTG22  IROTG23
  IROTG24  IROTG31  IROTG32  IROTG33  IROTG41  IROTG42  IROTRAPA
  IROTRAPI IROTRAPO IROTRCMS IROTRCTS IROTRDBA IROTRDBC IROTRDBI
  IROTRDBO IROTRDBW IROTRDDA IROTRDDI IROTRDDO IROTRDDW IROTRDLA
  IROTRDLI IROTRDLO IROTRDLW IROTREAO IROTREMS IROTRENC IROTRENU
  IROTRETS IROTREXL IROTRINI IROTRNCT IROTRPID IROTRPRS IROTRRB
  IROTRRB1 IROTRRB2 IROTRRB3 IROTRRRO IROTRUI  IROTR00  IROTR01
  IROTR02  IROTXALC IROTXPRT IROTXUTL IROTX00
  

Fix information

• Fixed component name

  IMS RECOVERY EX

• Fixed component ID

  5655R2600

Applicable component levels

• R110 PSY UK36846

     UP08/05/30 P F805