910-AUDIT-BEGIN

910-AUDIT-BEGIN sets the system and database manager in Transaction mode. It defines the start of a unit of work. This routine ensures that the database is up and active.

Library DATABASE
Input No input required.
Output No output returned.

Programming Example

     IF (HR00F1-FC = "A" OR "C" OR "D")
         PERFORM 910-AUDIT-BEGIN
         IF (DMS-ABORTED)
             GO TO 400-END
         END-IF

         PERFORM 410-UPDATE
         THRU    410-END

         PERFORM 920-AUDIT-END
Note: The caller loses control if the routine finds an error. For example, if the database manager is unavailable, the program is unable to continue.