IDENTIFICATION DIVISION.
       PROGRAM-ID.    COBOLDB2.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

      * Estrutura de dados para armazenar o primeiro nome do funcionário

       01  PROGRAM-PASS-FIELDS.
           05  PRIMEIRO-NOME         PIC X(30).

       LOCAL-STORAGE SECTION.

      * Verifique se vocÊ tem SQLCA incluído na WORKING-STORAGE 

           EXEC SQL INCLUDE SQLCA END-EXEC.

       PROCEDURE DIVISION.

      * Realiza um SQL SELECT para obter o primeiro nome do funcionário
      * Onde o código do seja igual a 10.

           EXEC SQL 
                SELECT  PRIMEIRO_NOME 
                  INTO :PRIMEIRO-NOME
                  FROM  NOME-TABELA
                 WHERE  COD_FUNC = 10 
           END-EXEC.

      * Exibe o primeiro nome que puxamos do banco de dados de amostra.

           DISPLAY "Primeiro nome"
           DISPLAY "-----------------------------------"
           DISPLAY PRIMEIRO-NOME

           DISPLAY " "

      * Exibe o status das declarações SQL

           DISPLAY SQLCA
           GOBACK.