Locate a table from a list of libraries

*
*     LOCATE A TABLE FROM A LIST OF tableBASE LIBRARIES
*
      MOVE 'TESTLIB'               TO LIB-LIST-1.
      MOVE 'PRODLIB'               TO LIB-LIST-2.
      MOVE SPACES                  TO LIB-LIST-3.
      MOVE 'ML'                    TO xxxx-COMMAND.
      CALL 'TBLBASE' USING         TB-PARM
                                   xxxx-COMMAND-AREA
                                   LIB-LIST.

      MOVE 'PAYTABLE'              TO xxxx-TABLE.
      MOVE 'GD'                    TO xxxx-COMMAND.
      CALL 'TBLBASE' USING         TB-PARM
                                   xxxx-COMMAND-AREA
                                   xxxx-DEFINITION-BLOCK.
      IF xxxx-FOUND = 'Y'
         PERFORM FOUND-ROUTINE
      ELSE
         PERFORM NOT-FOUND-ROUTINE.