Modifying Action Diagrams › Understanding Built-In Functions › Commit › Example

Example

The following is an example of the *COMMIT built-in function.

  >  USER: Create DBF record

  .--
  :  .Call EDTRCD function                             <<<
  :  .-CASE:                                           <<<
  :  | -PGM.*Return code is Not blank                  <<<
  :  |  Rollback                                       <<<
  :  |  <--QUIT                                        <<<
  :  ‘-ENDCASE                                         <<<
  :  Call EDTTRN function                              <<<
  :  .-CASE:                                           <<<
  :  | -PGM.*Return code is Not blank                  <<<
  :  |  Rollback                                       <<<
  :  |  <--QUIT                                        <<<
  :  | -*OTHERWISE                                     <<<
  :  |  Commit                                         <<<
  :  ‘-ENDCASE                                         <<<
  ‘--                                                  <<<

For more information about commitment control, see this module, in the chapter, "Modifying Function Options."