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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001.

ASZ3214 010410 61VASE PS ASEB200 V201 INCORROUT  ASEDAMRC 010418 O__-PJS
when batch ACF rule compile does not have update access to ACCRDATA
SYSFILE, it ends with return code 0 even though ACF rules not updated.

_PROBLEM DESCRIPTION:
When a batch ACF rule compile job does not have update access to
ACCRDATA SYSFILE, it ends with return code 0 even though ACF rules were
not updated.

_PROBLEM SUMMARY:
USERS AFFECTED: users of batch OMCS/ACF rule compiles

After a DBOPEN for ACCRDATA SYSFILE fails, ASEDAMRC does not set a
non-zero return code.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3214

ASEDAMRC will be modified to set return code 8 when DBOPEN fails for
ACCRDATA SYSFILE.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE or email help@ase.com.au

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0807).
++SRCUPD(ASEDAMRC).
./ CHANGE NAME=ASEDAMRC
APAR ASZ3214                                                            Z3214002
/*PRE ASP0807                                                           Z3214004
AUDIT ON                                                                Z3214006
F MAINJD: 1                                                             Z3214008
F RMSG=CANNOT                                                           Z3214010
C RMSG=CANNOT 'RMSG=06E CANNOT'                                         Z3214012
F 'GOTO MAINSHTD'                                                       Z3214014
:D1                                                                     Z3214016
:I4  /*--1----+----2----+----3----+----4----+----5                      Z3214018
               SET ERR=YES                                              Z3214020
               DBCLOSE A                                                Z3214022
               DBCLOSE B                                                Z3214024
               GOTO &CRSFRET                                            Z3214026
END                                                                     Z3214028