++APAR(ASZ3384). /* ----------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2005.

ASZ3384 050603 61NCSL BC ASEB200 P170 INCORROUT  OMCSDBSR 050816 s__-PMD
DBSR returns COND CODE 0004 with APCT=35 and free space % achieved = 38

_PROBLEM DESCRIPTION:
When the freespace percentage achieved is equal to or greater than the
value specified via APCT(..) the program still returns COND CODE 0004

_PROBLEM SUMMARY:
USERS AFFECTED: All users of OMCSDBSR with APCT(..)

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3384.

OMCSDBSR will be changed to correctly honour the presence of the APCT(..)
keyword option.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0757,ASZ3354).
++ZAP(OMCSDBSR).
NAME OMCSDBSR
IDRDATA ASZ3384
*ac locn machine  code  label   oper  operands     comments
*        ------- verify patch area
VER 0038 C3D6D7E8               dc    'COPY'       patch area
*        ------- verify patch point
VER 03BC 5930A078               C     R3,DBSWAPCT  f/space acceptable?
VER 03C0 47B0C3C8               BNL   MAINE         yes->
VER 03C4 41900004               LA    R9,4         no, RC=4
*        ------- define the patch
REP 0038 4990C05A       Z3384   CH    R9,FOUR      RC>4?
REP 003C 4720C3C8               BH    MAINE        YES, RETURN WHATEVER->
REP 0040 BFFFA078               ICM   R15,B'1111',DBSWAPCT'   APCT SPECIFIED ?
REP 0044 4780C3C8               BZ    MAINE        NO -> RETURN WHATEVER
REP 0048 41900004               LA    R9,4         DEFAULT TO RC=4
REP 004C 5930A078               C     R3,DBSWAPCT  F/SPACE ACCEPTABLE?
REP 0050 4740C3C8               BL    MAINE         NO, RETURN 4 ->
REP 0054 1B99                   SR    R9,R9        YES, SET RC=0
REP 0056 47F0C3C8               B     MAINE
REP 005A 0004           FOUR    DC    H'4'
*        ------- branch to patch
REP 03BC 47F0C038               B     Z3384        to patch->
*LMOD OMCSDBSR