Here is an example of the processing, written in COBOL (which is very similar to English in context):

 WORKING-STORAGE SECTION.
     EXEC SQL
          DECLARE VENDOR_CSR CURSOR FOR
           SELECT VENDOR_NAME, STATUS
             FROM VENDOR_TBL
            WHERE COUNTRY = 'USA'
     END-EXEC

 PROCEDURE DIVISION.
     PERFORM 0000-HOUSEKEEPING.
     PERFORM 1000-PROCESS.
     PERFORM 9000-TERMINATE.

 0000-HOUSEKEEPING.
     EXEC SQL
          OPEN VENDOR_CSR
     END-EXEC.

 1000-PROCESS.
     PERFORM 1100-GET-DATA
       UNTIL SQLCODE = +100.

 1100-GET-DATA.
     EXEC SQL
          FETCH VENDOR_CSR
           INTO :VEN-NAME,
                :VEN-STATUS:VEN-STATUS-IND
     END-EXEC.
     IF SQLCODE NOT = +100
        PERFORM 1110-PROCESS-DATA.

 1110-PROCESS-DATA.
********************************
*    PROCESS THE DATA HERE     *
********************************

 9000-TERMINATE.
     EXEC SQL
          CLOSE VENDOR_CSR
     END-EXEC.
     STOP RUN.