//DLP#APFC JOB (ACCT#),NORMAL JOBCARD INFO                              00010000
//*                                                                     00020000
//* @DLPCHG BPQ2440,MAC UPDATE JCL SWAP IN2/IN3 DD CARDS        #554955 00021000
//* @DLPCHG R754859,MAC IMS 13.1 POSITIONING                   #1754859 00021100
//* @DLPCHG R829717,MAC IMS 14.1 POSITIONING                   #1829717 00021200
//*-------------------------------------------------------------------* 00022000
//* MEMBER       : DLP#APFC                                           * 00023000
//*                                                                   * 00024000
//* PURPOSE      : CERTAIN BMC LOAD MODULES MUST BE COPIED TO A       * 00025000
//*                PRE-ALLOCATED, APF-AUTHORIZED LIBRARY WHICH IS     * 00026000
//*                CONCATENATED IN FRONT OF THE IMS RESIDENCE         * 00027000
//*                LIBRARY IN YOUR IMS CONTROL REGION STEPLIB DD      * 00027100
//*                STATEMENT (I.E. YOU MUST NOT COPY THESE MODULES    * 00027200
//*                DIRECTLY TO THE IMS RESIDENCE LIBRARY-SDFSRESL).   * 00027400
//*                THIS JOB WILL COPY THE REQUIRED LOAD MODULES TO    * 00028100
//*                THE CHOSEN APF LIBRARY.                            * 00028200
//* REQUIRED USER                                                     * 00030000
//* MODIFICATIONS: 1) UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS    * 00040000
//*                2) CHANGE "BMCNODE" TO THE HLQ USED DURING THE OZI * 00050000
//*                   INSTALL PROCESS                                 * 00051000
//*                3) CHANGE "USER.APFLIB" TO THE REQUIRED APF DATA-  * 00052000
//*                   SET NAME                                        * 00053000
//*                4) IF YOU ARE NOT RUNNING THE VIRTUAL TERMINAL     * 00060000
//*                   PRODUCT, REMOVE THE COPY/SELECT STATEMENTS FOR  * 00070000
//*                   THE "VTF" MEMBERS                               * 00071000
//*                5) CHANGE THE MODULE NAMES SUFFIXED BY "@" TO THE  * 00074000
//*                   SUFFIX INDICATED IN THE TABLE BELOW:            * 00075000
//*                       IMSLVL   SUFFIX                             * 00076000
//*                        11.1     3                                 * 00079100
//*                        12.1     4                                 * 00079200
//*                        13.1     5                                 * 00079300
//*                        14.1     6                                 * 00079400
//*-------------------------------------------------------------------* 00150000
//COPY    EXEC PGM=IEBCOPY,PARM='SIZE=3084K'                            00160000
//SYSPRINT DD SYSOUT=*                                                  00170000
//IN1      DD DISP=SHR,DSN=BMCNODE.DLPLIB                               00180000
//IN2      DD DISP=SHR,DSN=BMCNODE.ICOLIB                               00181000
//IN3      DD DISP=SHR,DSN=BMCNODE.VTFLIB                               00182000
//APFLIB   DD DISP=SHR,DSN=USER.APFLIB                                  00190000
//SYSIN     DD *                                                        00200000
 COPY I=((IN1,R)),O=APFLIB                                              00210000
 SELECT MEMBER=DLPBMGX0                                                 00220000
 SELECT MEMBER=DLPBTSAC                                                 00230000
 SELECT MEMBER=DLPBTSCM                                                 00240000
 SELECT MEMBER=DLPBTSCT                                                 00250000
 SELECT MEMBER=DLPBTSIM                                                 00260000
 SELECT MEMBER=DLPBTSLG                                                 00261000
 SELECT MEMBER=DLPBTSRE                                                 00262000
 SELECT MEMBER=DLPBTSVT                                                 00263000
 SELECT MEMBER=DLPBTSXC                                                 00264000
 SELECT MEMBER=DLPBTSXG                                                 00265000
 SELECT MEMBER=DLPCRCP@                                                 00266000
 SELECT MEMBER=DLPFEST@                                                 00267000
 SELECT MEMBER=DLPFTCB@                                                 00268000
 SELECT MEMBER=DLPGLGI0                                                 00269000
 SELECT MEMBER=DLPIINT@                                                 00269100
 SELECT MEMBER=DLPIMRC0                                                 00269200
 SELECT MEMBER=DLPLFCM@                                                 00269300
 SELECT MEMBER=DLPLMOD@                                                 00269400
 SELECT MEMBER=DLPLRGC@                                                 00269500
 SELECT MEMBER=DLPRRST@                                                 00269600
 SELECT MEMBER=DLPUAOP0                                                 00269700
 SELECT MEMBER=DLPUBLDC                                                 00269800
 SELECT MEMBER=DLPUBLEX                                                 00269900
 SELECT MEMBER=DLPUCVCD                                                 00270000
 SELECT MEMBER=DLPUCVCH                                                 00270100
 SELECT MEMBER=DLPUCVDC                                                 00271000
 SELECT MEMBER=DLPUCVDH                                                 00272000
 SELECT MEMBER=DLPUCVEC                                                 00273000
 SELECT MEMBER=DLPUDLTG                                                 00274000
 SELECT MEMBER=DLPUDSPD                                                 00275000
 SELECT MEMBER=DLPUERCK                                                 00276000
 SELECT MEMBER=DLPUGFE@                                                 00277000
 SELECT MEMBER=DLPUMFE0                                                 00278000
 SELECT MEMBER=DLPURDR@                                                 00278102
 SELECT MEMBER=DLPURSDL                                                 00279000
 SELECT MEMBER=DLPUVLBL                                                 00279100
 SELECT MEMBER=DLPUXFCK                                                 00279200
 SELECT MEMBER=DLPU007                                                  00279300
 SELECT MEMBER=DLPXARL@                                                 00279400
 SELECT MEMBER=DLPXDCD@                                                 00279500
 SELECT MEMBER=DLPXIRD@                                                 00279602
 SELECT MEMBER=DLPXMVT@                                                 00279700
 COPY I=((IN2,R)),O=APFLIB                                              00283100
 SELECT MEMBER=BMCXRRA0                                                 00284000
 SELECT MEMBER=BMCXMRC0                                                 00285000
 SELECT MEMBER=DFSMVRC0                                                 00286000
 COPY I=((IN3,R)),O=APFLIB                                              00287000
 SELECT MEMBER=VTFEXIT@                                                 00288000
 SELECT MEMBER=VTFSMSG0                                                 00289000
 SELECT MEMBER=VTFXCBS@                                                 00289100
 SELECT MEMBER=VTFXMRC0                                                 00289200
 SELECT MEMBER=VTFXNTL@                                                 00289300
 SELECT MEMBER=VTFXRST@                                                 00289400
 SELECT MEMBER=VTFXVCD@                                                 00289500
//                                                                      00290000