//CBLSQL   JOB (12345678),MSGCLASS=H,REGION=4M,                        
//        MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID                        
//*                                                                    
//JOBLIB    DD DSN=DSN910.DB9G.SDSNEXIT,DISP=SHR                       
//          DD DSN=DSN910.SDSNLOAD,DISP=SHR                            
//*****************************************************************    
//* SQL PREPROC AND COBOL COMPILATION:                                 
//*****************************************************************    
//*-NBSQL PREPROC NOW IS NOW DONE BY THE COBOL COMPILER:               
//*****************************************************************    
//COMPCOB   EXEC  PGM=IGYCRCTL,                                        
//            PARM=(SQL,LIB,NOTERM,NOSEQUENCE,LIB,XREF,DYN,)           
//STEPLIB   DD DSN=IGY410.SIGYCOMP,DISP=SHR                            
//          DD DSN=DSN910.SDSNLOAD,DISP=SHR                            
//****************DBRMLIB   DD DSN=IBMUSER.MAG.IBMCOB(MAGDBRM),DISP=SHR
//DBRMLIB   DD DSN=IBMUSER.MAG.IBMCOB(MAGSQL),DISP=SHR                 
//SYSIN     DD DSN=IBMUSER.MAG.COBOL(MAGSQL),DISP=SHR                  
//SYSLIB    DD DSN=IBMUSER.MAG.COPY,DISP=SHR                           
//SYSLIN    DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,               
//             SPACE=(800,(500,500))                                   
//SYSPRINT  DD SYSOUT=*                                                
//SYSUDUMP  DD SYSOUT=*                                                
//SYSUT1    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT2    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT3    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT4    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT5    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT6    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//SYSUT7    DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA                
//*****************************************************************    
//*            LINKEDIT                                                
//*****************************************************************    
//*****************LKED    EXEC PGM=IEWL,PARM=XREF,COND=(4,LT,COB)     
//LKED    EXEC PGM=IEWL,PARM=XREF                                      
//SYSLIB   DD  DISP=SHR,DSN=CEE.SCEELKED                               
//         DD  DISP=SHR,DSN=DSN910.SDSNLOAD                            
//         DD  DISP=SHR,DSN=DFH320.CICS.SDFHLOAD                       
//         DD  DISP=SHR,DSN=ISP.SISPLOAD                               
//         DD  DISP=SHR,DSN=GDDM.SADMMOD                               
//SYSLIN    DD DSN=&&LOADSET,DISP=(OLD,DELETE)                         
//          DD DDNAME=SYSIN                                            
//SYSLMOD   DD DSN=IBMUSER.MAG.LOAD,DISP=SHR                           
//SYSPRINT  DD  SYSOUT=*                                               
//SYSUDUMP  DD  SYSOUT=*                                               
//SYSUT1    DD  SPACE=(1024,(50,50)),UNIT=SYSDA                        
//SYSIN     DD * NAME MAGSQL(R)                                        
//******************************************                           
//*****************************************************************    
//* BIND                                                               
//*****************************************************************    
//*****************BIND    EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)   
//BIND    EXEC PGM=IKJEFT01,DYNAMNBR=20                                
//DBRMLIB   DD DSN=IBMUSER.MAG.IBMCOB,DISP=SHR                         
//SYSTSPRT  DD SYSOUT=*                                                
//SYSPRINT  DD SYSOUT=*                                                
//SYSUDUMP  DD SYSOUT=*                                                
//SYSOUT    DD SYSOUT=*                                                
//SYSTSIN   DD *                                                       
  DSN SYSTEM(DB9G)                                                     
  BIND PLAN(MAGSQLP) MEMBER(MAGSQL) -                                  
        ACT(REP) ISO(CS) ENCODING(EBCDIC)                              
  END                                                                  
/*                                                                     
//*****************************************************************    
//* RUN PGM                                                            
//*****************************************************************    
//RUNPGM   EXEC PGM=IKJEFT01,DYNAMNBR=20 COND=(4,LT)                   
//STEPLIB  DD DSN=DSN910.SDSNLOAD,DISP=SHR                             
//SYSTSPRT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSTSIN DD *                                                         
DSN SYSTEM(DB9G)                                                       
RUN PROGRAM(TEMPNAM0) PLAN(MAGSQLP) LIB(MAG.LOAD)                      
END                                                                    
//*