JFSCPBCK: Restoring the Reentrant Modules to FOCLIB.LOAD

When applying maintenance to the FOCUS libraries, first restore them from FOCLPA.LOAD to FOCLIB.LOAD using this job:

//JFSCPBCK JOB (USER,ACCOUNT),'PROGRAMMER NAME',REGION=409
//*        TYPRUN=SCAN,
//         CLASS=S,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=USER
//*********************************************************************
//*                                                                   *
//*  NAME: JFSCPBCK                                                   *
//*                                                                   *
//*  FUNCTION: COPY REENTRANT MODULES FROM FOCLPA.LOAD TO FOCLIB.LOAD.*
//*            (IE: USE THIS JOB TO RESTORE THE MODULES)              *
//*                                                                   *
//*  USAGE NOTES:                                                     *
//*                                                                   *
//*      THIS JOB WILL COPY THE REENTRANT MODULES FROM FOCLPA.LOAD TO *
//*      FOCLIB.LOAD. THE PRIMARY PURPOSE OF THIS JOB IS TO           *
//*      FACILITATE MAINTENANCE, SUCH AS THOSE PERFORMED WITH A PATCH *
//*      OR AN INDIVIDUAL PTF TAPE.  UPON COMPLETION OF THE           *
//*      MAINTENANCE, THE PROCEDURES FOR COPYING THE REENTRANT        *
//*      MODULES INTO FOCLPA MUST BE REPEATED.  IF YOU WISH TO OBTAIN *
//*      GREATER PERFORMANCE BENEFITS FOR TSO USERS AND MVS BATCH     *
//*      JOBS, YOU MAY PERFORM THE OPTIONAL TASK OF MOVING THE        *
//*      REENTRANT FOCUS MODULES, FROM THE FOCUS LOAD LIBRARY,        *
//*      FOCLIB.LOAD, TO A SPECIAL LOAD LIBRARY, FOCLPA.LOAD, WHICH   *
//*      WOULD BE LIMITED TO THE REENTRANT MODULES. PLEASE NOTE,      *
//*      HOWEVER, THAT THIS SCENERIO IS ONLY APPLICABLE TO TSO AND    *
//*      MVS BATCH; MSO AND EDA USE A DIFFERENT TECHNIQUE TO MANAGE   *
//*      THE PROGRAMS; THEREFORE, NO BENEFITS WOULD BE REALIZED UNDER *
//*      MSO AND EDA.                                                 *
//*                                                                   *
//*                                                                   *
//*      THE PROCEDURE FOR PERFORMING THIS TASK REQUIRES THE          *
//*      FOLLOWING STEPS USING IBI SUPPLIED BATCH JOBS:               *
//*                                                                   *
//*  A - ALLOCATE THE SPECIAL FOCUS LPA LIBRARY: FOCLPA.LOAD.         *
//*      (EXECUTE JOB JFSALLPA.)                                      *
//*                                                                   *
//*  B - COPY THE REENTRANT FOCUS MODULES FROM FOCLIB.LOAD TO         *
//*      FOCLPA.LOAD. (EXECUTE JOB JFSCPLPA.)                         *
//*                                                                   *
//*  C - INSTALL FOCLPA.LOAD INTO MVS AS AN LPA LIBRARY.              *
//*                                                                   *
//*  D - DELETE THE REENTRANT FOCUS MODULES FROM FOCLIB.LOAD.         *
//*      (EXECUTE JOB JFSDELPA.)                                      *
//*                                                                   *
//*                                                                   *
//*      DUE CARE MUST BE TAKEN TO ENSURE THAT ANY MAINTENANCE, SUCH  *
//*      AS A PTF OR PATCH TAPE, IS PROPERLY APPLIED TO THE REENTRANT *
//*      MODULES. THE PROCEDURE FOR PERFORMING MAINTENANCE IS AS      *
//*      FOLLOWS, USING IBI SUPPLIED BATCH JOBS:                      *
//*                                                                   *
//*  A - COPY ALL THE REENTRANT MODULES BACK INTO FOCLIB.LOAD         *
//*      FROM FOCLPA.LOAD. (USE JOB JFSCPBCK. IT IS RECOMMENDED       *
//*      THAT YOU COMPRESS FOCLIB.LOAD BEFORE YOU PERFORM THE COPY.)  *
//*      THE IEBCOPY CONTROL STATEMENTS ARE CONTAINED IN ONE OR       *
//*      MORE MEMBERS OF FOCCTL.DATA. REFER TO THE SYSIN DD CARD      *
//*      FOR THE SPECIFICS.                                           *
//*                                                                   *
//*  B - APPLY THE MAINTENANCE (PATCHES OR PTFS).                     *
//*                                                                   *
//*  C - COPY THE REENTRANT MODULES FROM FOCLIB.LOAD BACK INTO        *
//*      FOCLPA.LOAD. (REPEAT JOB JFSCPLPA. IT IS RECOMMENDED THAT    *
//*      YOU COMPRESS FOCLPA.LOAD BEFORE YOU PERFORM THE COPY.)       *
//*                                                                   *
//*  D - DELETE THE REENTRANT MODULES FROM FOCLIB.LOAD.               *
//*      (REPEAT JOB JFSDELPA).                                       *
//*                                                                   *
//*                                                                   *
//*  INSTRUCTIONS:                                                    *
//*                                                                   *
//*  1 - UPDATE JOB CARD WITH VALID SITE SPECIFIC VALUES.             *
//*                                                                   *
//*  2 - ALL COPY CONTROL STATEMENTS ARE IN THE MEMBER JFSCPCN1.      *
//*      THIS MEMBER IS ALLOCATED TO THE SYSIN DD BELOW.              *
//*      REVIEW THE STATEMENTS IN MEMBER JFSCPCN1 TO VERIFY THAT THE  *
//*      COPY FOR CORFOC IS CONSISTENT WITH YOUR CURRENT INSTALLATION *
//*      OF FOCUS, IE: HAS THE CORFOC MODULE NAME BEEN CHANGED?  CALL *
//*      IBI TECHNICAL SUPPORT FOR ASSISTANCE IF NECESSARY AT         *
//*      212-736-4433. MAKE APPROPRIATE ADJUSTMENTS AS NEEDED.        *
//*                                                                   *
//*  3 - PREFIX MUST BE CHANGED TO THE HIGH LEVEL QUALIFIERS          *
//*      USED FOR FOCUS-PROGRAM DATASETS. ADJUST THE JCL AS NEEDED.   *
//*                                                                   *
//*                                                                   *
//*********************************************************************
//JFSCPBCK  PROC  PREFIX='XXXXXXXX'
//*
//STEP1    EXEC PGM=IEBCOPY
//SYSPRINT DD   SYSOUT=*
//SYSUT3   DD   UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT4   DD   UNIT=VIO,SPACE=(CYL,(1,1))
//INLIB    DD   DISP=SHR,DSN=&PREFIX..FOCLPA.LOAD
//OUTLIB   DD   DISP=SHR,DSN=&PREFIX..FOCLIB.LOAD
//JFSCPBCK PEND
//DOIT     EXEC JFSCPBCK
//SYSIN    DD   DISP=SHR,DSN=&PREFIX..FOCCTL.DATA(JFSCPCN1)
/*

Information Builders