Fetch every row from last to first

*
*     FETCH EVERY ROW IN A TABLE FROM THE LAST TO THE FIRST
*
      MOVE 'GL'                     TO xxxx-COMMAND.
*
*     NOTE: THE GL CALL SETS THE FOUND CODE AS THE CONTROL FOR THE
*     LOOP.
*            (IT MAY BE AN EMPTY TABLE).
*
*     THIS CODE USES THE SAME CALL-TBLBASE AND PROCESS-RETRIEVED-ROW
*     PARAGRAPHS AS THE PREVIOUS EXAMPLE.
*
      PERFORM CALL-TBLBASE.
      MOVE 'GP'                     TO xxxx-COMMAND.
      PERFORM PROCESS-RETRIEVED-ROW UNTIL xxxx-FOUND = 'N'.