IDENTIFICATION DIVISION.                                         
        PROGRAM-ID. MAGSQL.                                              
        ENVIRONMENT DIVISION.                                            
        CONFIGURATION SECTION.                                           
        SPECIAL-NAMES.                                                   
            DECIMAL-POINT IS COMMA.                                      
        INPUT-OUTPUT SECTION.                                            
        FILE-CONTROL.                                                    
        DATA DIVISION.                                                   
        WORKING-STORAGE SECTION.                                         
        77 FILLER      PIC X(26) VALUE "WORKING-STORAGE SECTION".        
        77 FILLER      PIC X(26) VALUE "VARIABLES SQL".                  
        77 WS-SQLCODE PIC +++999 USAGE DISPLAY VALUE ZEROS.              
            EXEC SQL                                                     
               INCLUDE MAGDCL                                            
            END-EXEC.                                                    
            EXEC SQL                                                     
               INCLUDE SQLCA                                             
            END-EXEC.                                                    
        PROCEDURE DIVISION.                                              
            PERFORM 2000-B.                                              
            GOBACK.                                                      
        2000-B.                                                          
            EXEC SQL                                                     
               SELECT ID, TEXTO                                          
                  INTO :WS-ID, :WS-TEXTO                                 
                  FROM IBMUSER.MAGDEMO                                   
                  WHERE ID=1                                             
            END-EXEC.                                                    
            DISPLAY "ID: " WS-ID.                                        
            DISPLAY "TEXTO: " WS-TEXTO.                                  
            EXIT.