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 |