/IF NOT DEFINED(PRCSRC_P)
      /DEFINE PRCSRC_P
      *
      *‚ReadSource(): This procedure reads every record in the source
      *‚source member specified by the first two parameters and passes
      *‚each statement to the procedure specified by the third parameter.
      *
     D ReadSource      PR            10I 0 Extproc('ReadSource')
     D   qSrcFile                    20A   Const
     D   SrcMbr                      10A   Const
     D   ReadProc@@                    *   Const ProcPtr
      *
      *‚Dummy procedure to process each source statement. A user-defined
      *‚procedure MUST have the same procedure interface as this
      *‚procedure, but does not need to be based on a procedure pointer.
      *
     D ReadProc@@      S               *   ProcPtr
     D ReadProc        PR            10I 0 Extproc(ReadProc@@)
     D   Data                     32702A   Const Varying
      *
      /ENDIF