JFSALLPA: Allocating Space for the FOCUS LPA Library

Run the JFSALLPA JCL to allocate the FOCUS LPA library, FOCLPA.LOAD:

//JFSALLPA JOB (USER,ACCOUNT),'PROGRAMMER NAME',REGION=4096K,
//*        TYPRUN=SCAN,
//         CLASS=S,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=USER
//*********************************************************************
//*                                                                   *
//*  NAME: JFSALLPA                                                   *
//*                                                                   *
//*  FUNCTION: ALLOCATE DASD SPACE FOR THE FOCUS LPA LIBRARY.         *
//*                                                                   *
//*  USAGE NOTES:                                                     *
//*                                                                   *
//*      THIS JOB WILL ALLOCATE A PARTITIONED DATASET TO BE USED FOR  *
//*      THE FOCUS LPA LIBRARY.  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 .)                         *
//*                                                                   *
//*  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 - PREFIX MUST BE CHANGED TO THE HIGH LEVEL QUALIFIERS          *
//*      USED FOR FOCUS-PROGRAM DATASETS.                             *
//*                                                                   *

//*  3 - VOLID MUST BE CHANGED TO A VALID VOLUME IDENTIFIER.          *
//*                                                                   *
//*  4 - DEVICE IS THE DEVICE TYPE FOR THE DISK ALLOCATIONS.          *
//*                                                                   *
//*                                                                   *
//*********************************************************************
//JFSALLPA  PROC  PREFIX='XXXXXXXX',
//          VOLID='XXXXXX',
//          DEVICE='SYSDA'
//*
//STEP1     EXEC  PGM=IEFBR14
//*
//FOCLPA    DD    DISP=(NEW,CATLG,DELETE),
//          DSN=&PREFIX..FOCLPA.LOAD,
//          UNIT=&DEVICE,
//          VOL=SER=&VOLID,
//          SPACE=(CYL,(20,1,24)),
//          DCB=(RECFM=U,BLKSIZE=13030,DSORG=PO,LRECL=0)
//*
//JFSALLPA  PEND
//DOIT      EXEC  JFSALLPA
//*********************************************************************