Fetch rows by key

*
*     FETCH ROWS FROM A TABLE BASED ON KEY-AREA
*
      MOVE 'FK'                       TO xxxx-COMMAND.
      CALL 'TBLBASE' USING            TB-PARM
                                      xxxx-COMMAND-AREA
                                      xxxx-ROW-AREA
                                      xxxx-KEY-AREA.
      IF xxxx-FOUND = 'Y'
         PERFORM FOUND-ROUTINE
      ELSE
         PERFORM NOT-FOUND-ROUTINE.