SQL+COBOL code after PRE-COMPILE

All the SQL code are converted to cobol CALL after PRE-COMPILE.

****EXEC SQL                       
****  INCLUDE SQLCA                
****END-EXEC.                      
01 SQLCA.                           
   05 SQLCAID     PIC X(8).         
   05 SQLCABC     PIC S9(9) COMP-4. 
   05 SQLCODE     PIC S9(9) COMP-4. 
   05 SQLERRM.                      
      49 SQLERRML PIC S9(4) COMP-4. 
      49 SQLERRMC PIC X(70).        
   05 SQLERRP     PIC X(8).         
   05 SQLERRD     OCCURS 6 TIMES    
                  PIC S9(9) COMP-4. 
   05 SQLWARN.                      
      10 SQLWARN0 PIC X.            
      10 SQLWARN1 PIC X.            
      10 SQLWARN2 PIC X.            
      10 SQLWARN3 PIC X.            
      10 SQLWARN4 PIC X.            
      10 SQLWARN5 PIC X.            
      10 SQLWARN6 PIC X.            
      10 SQLWARN7 PIC X.            
   05 SQLEXT.             
      10 SQLWARN8 PIC X.                   
      10 SQLWARN9 PIC X.                   
      10 SQLWARNA PIC X.                   
      10 SQLSTATE PIC X(5).                
77 SQL-TEMP      PIC X(18).                
77 DSN-TEMP      PIC S9(9)  COMP-4.        
77 DSN-TMP2      PIC S9(18) COMP-3.        
77 SQL-NULL      PIC S9(9) COMP-4 VALUE +0.
77 SQL-INIT-FLAG PIC S9(4) COMP-4 VALUE +0.
   88 SQL-INIT-DONE VALUE +1.              

01 SQL-PLIST1.                                         
   05 SQL-PLIST-CON   PIC S9(9) COMP-4 VALUE +2637824. 
   05 SQL-CALLTYPE    PIC S9(4) COMP-4 VALUE +30.      
   05 SQL-PROG-NAME   PIC X(8)         VALUE "DYNAMIC1".
   05 SQL-TIMESTAMP-1 PIC S9(9) COMP-4 VALUE +419886973.
   05 SQL-TIMESTAMP-2 PIC S9(9) COMP-4 VALUE +49564096.
   05 SQL-SECTION     PIC S9(4) COMP-4 VALUE +1.       
   05 SQL-CODEPTR     PIC S9(9) COMP-4.                
   05 SQL-VPARMPTR    PIC S9(9) COMP-4 VALUE +0.       
   05 SQL-APARMPTR    PIC S9(9) COMP-4 VALUE +0.       
   05 SQL-STMT-NUM    PIC S9(4) COMP-4 VALUE +59.      
   05 SQL-STMT-TYPE   PIC S9(4) COMP-4 VALUE +16.      
   05 SQL-PVAR-LIST1.                              
        ......   
01 SQL-PLIST2.                                          
   05 SQL-PLIST-CON   PIC S9(9) COMP-4 VALUE +2621440.  
   05 SQL-CALLTYPE    PIC S9(4) COMP-4 VALUE +150.      
   05 SQL-PROG-NAME   PIC X(8)         VALUE "DYNAMIC1".
   05 SQL-TIMESTAMP-1 PIC S9(9) COMP-4 VALUE +419886973.
   05 SQL-TIMESTAMP-2 PIC S9(9) COMP-4 VALUE +49564096. 
   05 SQL-SECTION     PIC S9(4) COMP-4 VALUE +0.        
   05 SQL-CODEPTR     PIC S9(9) COMP-4.                 
   05 SQL-VPARMPTR    PIC S9(9) COMP-4 VALUE +0.        
   05 SQL-APARMPTR    PIC S9(9) COMP-4 VALUE +0.        
   05 SQL-STMT-NUM    PIC S9(4) COMP-4 VALUE +62.       
   05 SQL-STMT-TYPE   PIC S9(4) COMP-4 VALUE +310.      

DSNSQL SECTION.                                                  
SQL-SKIP.                                                        
    GO TO SQL-INIT-END.                                          
SQL-INITIAL.                                                     
    MOVE 1 TO SQL-INIT-FLAG.                                     
    CALL "DSNHADDR" USING SQL-VPARMPTR OF SQL-PLIST1 SQL-PVAR-LIST1.                                                          
    CALL "DSNHADDR" USING SQL-PVAR-ADDRS2 IN                     
    SQL-PVAR-LIST1 DEL-STMT OF WORK-FIELDS SQL-NULL              
    CALL "DSNHADDR" USING SQL-CODEPTR OF SQL-PLIST1 SQLCA.       
    CALL "DSNHADDR" USING SQL-CODEPTR OF SQL-PLIST2 SQLCA.       
SQL-INIT-END.                                                      
     CONTINUE.

*****EXEC SQL                               
*****  EXECUTE IMMEDIATE :DEL-STMT          
*****END-EXEC.                              
     PERFORM SQL-INITIAL UNTIL SQL-INIT-DONE
     CALL "DSNHLI" USING SQL-PLIST1.        
*****EXEC SQL                               
*****  COMMIT                               
*****END-EXEC.                              
     PERFORM SQL-INITIAL UNTIL SQL-INIT-DONE
     CALL "DSNHLI" USING SQL-PLIST2.