F*****************************************************************
     F*                                                               *
     F*  Pgm Name...... BCS002R                                        *
     F*                                                               *
     F*  Pgm Title..... Process Client jobs                           *
     F*                                                               *
     F********************************************************************
     F*
     D PARMS         E DS                  EXTNAME(BCSDS)
     D DSLEGBCH      E DS                  EXTNAME(DSLEGBCH)
     C*
     C*****************************************************************
     C*  KEY LISTS AND PARAMETER LISTS                                *
     C*****************************************************************
     C*
     C     *ENTRY        PLIST
     C                   PARM                    PARMS
     C*
     C*
     C*****************************************************************
     C*  M A I N L I N E    R O U T I N E                             *
     C*****************************************************************
     C                   MOVEL(P)  PDATA         DSLEGBCH
     C
     C                   ADD       1             COUNT
     C
C    C                   MOVEL(P)  COUNT         MSG
     C*
     C                   MOVEL(P)  DSLEGBCH      PDATA
     C*
     C                   RETURN
     C*
     C     *INZSR        BEGSR
     C                   ADD       0             COUNT             5 0
     C                   ENDSR
     C*