*THIS TECHNIQUE ASSUMES THAT THE COMMIT1-FILE EXISTS
*AND THAT DISP=SHR IS SPECIFIED IN THE MAINFRAME MVS
*JCL (JOB CONTROL LANGUAGE).
  8000-COMMIT.
     COMMIT.
     PERFORM IDMS-STATUS.
     MOVE ZERO TO WS-COMMIT-COUNTER.
     OPEN OUTPUT COMMIT1-FILE
     MOVE WS-UPDATE-COUNTER TO COMMIT1-UPDATE-COUNTER.
     WRITE COMMIT1-REC
     CLOSE COMMIT1-FILE.
 8000-EXIT. EXIT.
