Run the JFSCPLPA JCL to copy the reentrant modules to the FOCUS LPA library, FOCLPA.LOAD:
//JFSCPLPA JOB (USER,ACCOUNT),'PROGRAMMER NAME',REGION=4096K, //* TYPRUN=SCAN, // CLASS=S,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=USER //********************************************************************* //* * //* NAME: JFSCPLPA * //* * //* FUNCTION: COPY REENTRANT MODULES FROM FOCLIB.LOAD TO FOCLPA.LOAD.* //* * //* USAGE NOTES: * //* * //* THIS JOB WILL COPY THE REENTRANT MODULES FROM FOCLIB.LOAD TO * //* FOCLPA.LOAD. AFTER THIS STEP IS SUCCESSFULLY COMPLETED, YOU * //* MUST RE-FRESH THE LPA LIBRARY, USING AN IPL OR ANOTHER * //* COMPARABLE METHOD. ALSO, FOLLOWING THE IPL, IT IS NECESSARY * //* TO SCRATCH THE REENTRANT MODULES FROM FOCLIB.LOAD TO INSURE * //* THAT THE REENTRANT MODULES ARE OBTAINED FROM THE LPA, AND * //* NOT FROM STEPLIB OR JOBLIB. 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.) *
//* *
//* REVIEW THE OUTPUT OF JFSCPLPA. THE SECOND STEP IS A FOCUS *
//* REPORT THAT LISTS THE ROOT MODULES IN THE NEWLY CREATED *
//* FOCLPA LIBRARY. THE TOTAL AMOUNT OF LPA STORAGE THAT THE *
//* MODULES REQUIRE IS LISTED ON THE REPORT. *
//* *
//* VERIFY THAT ALL THE MEMBERS ARE LISTED WITH A "Y" IN THE *
//* RENT, REUS, AND EXEC COLUMNS. NORMALLY THIS WILL BE THE *
//* CASE. HOWEVER, APPLYING MAINTENANCE MAY, IN RARE *
//* CIRCUMSTANCES, CHANGE THE EXECUTION CHARACTERISTICS OF THE *
//* MODULE. *
//* *
//* DELETE ANY MODULE IN FOCLPA THAT DOES NOT HAVE A "Y" IN *
//* ALL THREE OF THESE ATTRIBUTES. *
//* *
//* ALSO UPDATE THE MEMBERS JFSDLCN1 AND JFSCPCN1 TO REMOVE *
//* THE REFERENCES TO THOSE MODULES AS WELL. THIS WILL *
//* ENSURE THAT THE MAINTENANCE PROCEDURE BELOW WILL WORK *
//* CORRECTLY. *
//* *
//* 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.) *
//* *
//* 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. *
//* *
//* *
//*********************************************************************
//JFSCPLPA PROC PREFIX='XXXXXXXX'
//*
//COPY2LPA 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..FOCLIB.LOAD
//OUTLIB DD DISP=SHR,DSN=&PREFIX..FOCLPA.LOAD
//SYSIN DD DISP=SHR,DSN=&PREFIX..FOCCTL.DATA(JFSCPCN1)
//LISTLPA EXEC PGM=FOCUS
//STEPLIB DD DISP=SHR,DSN=&PREFIX..FOCLIB.LOAD
//ERRORS DD DISP=SHR,DSN=&PREFIX..ERRORS.DATA
//FOCEXEC DD DISP=SHR,DSN=&PREFIX..FOCCTL.DATA
//MASTER DD DISP=SHR,DSN=&PREFIX..FOCCTL.DATA
//FOCMAP DD DISP=SHR,DSN=&PREFIX..FOCLPA.LOAD
//SYSPRINT DD SYSOUT=*
//JFSCPLPA PEND
//LISTLPA EXEC JFSCPLPA
//LISTLPA.SYSIN DD *
TABLE FILE FOCMAP
HEADING CENTER
"<DSN"
" "
" SIZE AND LKED ATTRIBUTES OF LPA ROOT MEMBERS "
" ALIAS NAMES ARE NOT LISTED "
" "
SUM ISIZE AS 'LPA SIZE' WHERE ALIAS NE 'Y'
PRINT ALIAS RENT REUS EXEC
ISIZE AS 'SIZE,DEC'
BY TTR
BY MEMBER
ON TABLE COLUMN-TOTAL
END
FIN
/*| Information Builders |