Figure 2 - CL fragment to process a database file

 
/*  ===============================================================  */
/*  =  Program....... TestCL                                      =  */
/*  =  Description... Process database file                       =  */
/*  ===============================================================  */

Pgm

/*  ===============================================================  */
/*  =  Variable declarations                                      =  */
/*  ===============================================================  */

  Dcl        &MsgFlag    *Lgl
  Dcl        &RtnCode    *Char     (    1    )

/*  ===============================================================  */
/*  =  File declaration                                           =  */
/*  ===============================================================  */

  DclF       TestPF

  .
  .
  .

/*  ===============================================================  */
/*  =  Read database file                                         =  */
/*  ===============================================================  */

ReadBegin:

  RcvF       RcdFmt(TestPFR)
  MonMsg     ( CPF0864 ) Exec(                                        +
    GoTo       ReadEnd       )

  .
  .
  .

  GoTo       ReadBegin

ReadEnd:

  .
  .
  .