*** PCS 5.3A PATCHES after PTF=BP53120 *****************************************
 
// JOB BP53AFIX
/* DATE 04/07/08
/* This fix is for all BIM-FAQS/PCS 5.3A Users.
/* Users may find that the first Event scheduled after an EVLOAD
/* is done that JCLSCHED abends. This may be a once in awhile
/* while occurrence or more frequently. The symptom is an overlay
/* in the 3rd byte of a phase. This may or may not be a BIM-FAQS/PCS
/* phase and thus it may not occur immediately after the EVLOAD.
/* This patch will fix the cause of the overlay and prevent the abends.
/* After applying the fix, a re-cycle of JCLSCHED is required.
// EXEC MSHP,SIZE=720K
     CORRECT 2885-BF2-00-53A : BP06897
     AFFECT PHASE=JCLEVUT
     ALTER 0080 A080A082    :94BFD19C
     ALTER 0084 A084A086    :9180D1FC
     ALTER 0088 A088A08A    :4710B026
     ALTER 008C A08C        :07FE
     ALTER 1010 94BFD19C    :45E0A080
     RESOLVES 'OVERLAY OF PHASES'
/*
/* DATE 06/06/08
/* This is for ALL BIM-FAQS/PCS 5.3A Users.
/* When using either $DMGRP or $GROUP to demand a GROUP over to the
/* Current Event File, users find that even with an incorrect
/* Group name that the Imod completes with a RC=0.
/* This patch will now show a message to indicate there was an
/* error when the Group name is not found.
/* After applying this patch re-run the $DMGRP or $GROUP Imod
/* Change the 'lib.sublib' to BIM-FAQS/PCS Lib.sublib. The '.fix'
/* must be lower case.
/* JOB  BP06921  GROUP NOT FOUND MESSAGE
// OPTION LOG,LOGSRC
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL'
PDS=VIO,CAT=BP006921.fix               <<<< CHECK FIX IS LOWER CASE
MEM=$GROUP.OAL PDS=MON REL=V5.3A TYP=FIX
E2C3C1D540C1D9C77EA4A285997EA2A39989974DA4A2859989844D5D5DFF
8995A240F1FF
869381877EF04040615C40C2D7F0F6F9F2F1405C61FF
615BFF
E2C3C1D540C1D9C77E8593A28540A77E8996864D7DD1C5E5D9C4997D6BA49784948594
5DFF
E2C3C1D540C1D9C77E8199837E9983FF
8995A240F1FF
40404040404040404040869381877EF1404040615C40C2D7F0F6F9F2F1405C61FF
615BFF
E2C3C1D540C1D9C77E898640819983407E40F040A3888595408496FF
99859740F1FF
898640819983407E40F0405040869381877EF140A38885954084964040404040404061
5C40C2D7F0F6F9F2F1405C61FF
615BFF
../ END
/*
// LIBDEF *,SEARCH=lib.sublib  << CHANGE
// EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BPCS R=V5.3A' << CHANGE
/*
// EXEC PROC=BPCSTEMP
/*
/&
/*
/*
/&