After copying the reentrant modules to FOCLPA.LOAD, run this job to delete them from FOCLLIB.LOAD:
//JFSDELPA JOB (USER,ACCOUNT),'PROGRAMMER NAME',REGION=4096K, //* TYPRUN=SCAN, * // CLASS=S,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=USER //********************************************************************* //* * //* NAME: JFSDELPA * //* * //* FUNCTION: DELETE REENTRANT MODULES FROM FOCLIB.LOAD. * //* * //* USAGE NOTES: * //* * //* THIS JOB WILL DELETE THE REENTRANT MODULES FROM FOCLIB.LOAD. * //* EXECUTE THIS JOB AFTER YOU HAVE SUCCESSFULLY COPIED THE * //* REENTRANT FOCUS MODULES FROM FOCLIB.LOAD INTO FOCLPA.LOAD. * //* 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.) * //* THE IEHPROGM CONTROL CARDS ARE CONTAINED IN ONE OR * //* MORE MEMBERS OF ....FOCCTL.DATA. SEE THE SYSIN DD * //* CARD FOR THE ACTUAL MEMBER(S) THAT ARE REFERENCED. * //* *
//* 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.) * //* * //* 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 FOR TAYLORING THIS JOB AND REFERENCED IEHPROGM * //* CONTROL CARDS. * //* * //* 1 - UPDATE JOB CARD WITH VALID SITE SPECIFIC VALUES. * //* * //* 2 - USE THE ISPF EDITOR TO MAKE THE FOLLOWING CHANGES GLOBALLY * //* WITHIN THIS MEMBER AND ALL MEMBERS THAT ARE ALLOCATED TO * //* THE SYSIN DD CARD OF THIS JOB. * //* *
//* A - "PREFIX" MUST BE CHANGED TO THE HIGH LEVEL QUALIFIERS * //* USED FOR FOCUS-PROGRAM DATASETS. * //* * //* B - "VOLID" MUST BE CHANGED TO A VALID VOLUME IDENTIFIER. * //* THIS "VOLID" MUST SPECIFY THE VOLUME SERIAL NUMBER * //* WHERE FOCLIB.LOAD RESIDES. * //* * //* C - "DEVICE" IS THE DEVICE TYPE FOR THE IEHPROGM UTILITY. * //* THIS "DEVICE" MUST SPECIFY THE ACTUAL DEVICE TYPE WHERE * //* FOCLIB.LOAD RESIDES, SUCH AS 3390 OR 3380, ETC. * //* * //* 3 - WHEN YOU ARE MODIFYING A MEMBER ALLOCATED TO SYSIN * //* BE SURE TO USE THE PROPER SYNTAX FOR IBM OS UTILITIES. * //* * //* A - LINE CONTINUATIONS REQUIRE A NON-BLANK CHARACTER IN * //* COLUMN 72. * //* * //* B - ALL CONTINUATIONS MUST BEGIN EXACTLY IN COLUMN 16. * //* * //* *
//********************************************************************* //* //STEP1 EXEC PGM=IEHPROGM //SYSPRINT DD SYSOUT=* //FOCLIB DD DISP=SHR,UNIT=DEVICE, // VOL=SER=VOLID //SYSIN DD DISP=SHR,DSN=PREFIX.FOCCTL.DATA(JFSDLCN1) //*
|
|
Information Builders |