[COBOL] JCL (Job control lenguage)

//SMCIUPTC JOB ,'SMCIUPTC',MSGCLASS=X,REGION=0M,                        
//         COND=(13,LT),CLASS=A,MSGLEVEL=(1,1),USER=BATCCI              
//**********************************************************************
//JOBLIB   DD  DSN=IICI.LIBEACC.NRNTLOAD,                               
//             DISP=SHR                                                 
//         DD  DSN=CHGMAN.BSLA.NRNTLOAD,                                
//             DISP=SHR                                                 
//         DD  DSN=SYS1.DSNDCCT.SDSNEXIT,                               
//             DISP=SHR                                                 
//         DD  DSN=SYS1.DSNDCCT.SDSNLOAD,                               
//             DISP=SHR                                                 
//**********************************************************************
//UPDATTC  EXEC  PGM=IKJEFT01                                           
//SYSTSPRT DD  SYSOUT=*                                                 
//SYSMENSA DD  SYSOUT=*                                                 
//SYSPRINT DD  SYSOUT=*                                                 
//SYSPUNCH DD  SYSOUT=*                                                 
//SYSTSIN  DD  *                                                        
  DSN SYSTEM(DCCT)                                                      
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL)  PARM('SQL')                     
  END                                                                   
//*                                                                     
//SYSIN    DD  *                                                        
   UPDATE ICCI.TCDT010                                                  
      SET DTA_TBLKEY='    2010-12-31 AINC002,01  '                      
    WHERE COD_TABLE='0042'                                              
      AND ENTITY='2065'                                                 
      AND KEY_TABLE='0008';                                             
/*