Bonjour,
 
Je souhaite traduire le code CTRL-M suivant vers UNIX :
 
BROWSE    DPRODU.GETIMA.ISPSLIB(POIC0002)  
********************************* Top of Data *********************************
   LIBRARY=&SCHEDULE                                                            
   MEM-OVERWRITE=Y                                                              
   ADD-GLOBAL=Y                                                                
   TABLE=&TABLE                                                                
         GROUP=&TABLE                                                          
         OWNER=XSUBP                                                            
         MEMLIB=&DSNSTEPA                                                      
         MAXWAIT=03                                                            
         RESOURCE=(INIT-IC-DB2,0001)                                            
         RESOURCE=(INIT,0001)                                                  
         IN=(PE-UP-DB2&ENV,0101)                                                
         IN=(PE-UP-DFHSM,0101)                                                  
         ONPGM                                                                  
             STEP=ANYSTEP                                                      
             CODES=OK                                                          
             DO=SYSOUT                                                          
                SYSOUT-OP=R                                                    
)IM POIC0013 NT
 
 BROWSE    DPRODU.GETIMA.ISPSLIB(POIC0013)        
  ********************************* Top of Data ***
          ONPGM                                    
             STEP=ANYSTEP                        
             CODES=(S***,U****,>C0004)            
             DO=RERUN                            
******************************** Bottom of Data *
        ONPGM                                                                  
            STEP=ANYSTEP                                                        
            CODES=NOTOK                                                        
            DO=SYSOUT                                                          
               SYSOUT-OP=C                                                      
               SYSOUT-FRM=H                                                    
               SYSOUT-PRM=A                                                    
            DO=SYSOUT                                                          
               SYSOUT-OP=R                                                      
               SYSOUT-FRM=H                                                    
            DO=SYSOUT                                                          
               SYSOUT-OP=D                                                      
               SYSOUT-FRM=5                                                    
        ONPGM                                                                  
            STEP=TERMUTIL                                                      
            CODES=C0008                                                        
            DO=OK                                                              
        ONPGM                                                                  
            STEP=BACKUP                                                        
             CODES=(S***,C****,U****,JFAIL)                                      
             DO=OK                                                              
******************************** Bottom of Data ********************************
 
 
BROWSE    DPRODU.GETIMA.ISPSLIB(POIC0003)            
********************************* Top of Data **********************************
         MEMNAME=&MEMBER                                                        
                 TASKTYP=JOB                                                    
                 CONTROL=(&DB,S)                                                
                 MAXRERUN=1                                                      
                 RERUNMEM=&MEMBER                                                
                 INTERVAL=005                                                    
                 DESC='&DESCRIPT'                                                
                 OUT=(&CONDOUT,ODAT,+)                                          
                 SHOUT-WHEN=NOTOK                                                
                     DEST=TSO-PRODU                                              
                     MSG='%%JOBNAME : ABEND &DESCRIPT'                          
                     URG=V                                                      
******************************** Bottom of Data ********************************  
     
 
BROWSE    DPRODU.GETIMA.ISPSLIB(POIC0004)            
********************************* Top of Data **********************************
         MEMNAME=&MEMBER                                                        
                 TASKTYP=JOB                                                    
                 MAXRERUN=1                                                      
                 RERUNMEM=&MEMBER                                                
                 INTERVAL=005                                                    
                 DESC='&DESCRIPT'                                                
                 SHOUT-WHEN=NOTOK                                                
                     DEST=TSO-PRODU                                              
                     MSG='%%JOBNAME : ABEND &DESCRIPT'                          
                     URG=V                                                      
                 OUT=(MB-OK-&PREFTAB,ODAT,+)                                    
                 OUT=(SC-OK-&PREFTAB,ODAT,+)                                    
******************************** Bottom of Data ********************************
 
 
BROWSE    DPRODU.GETIMA.ISPSLIB(POIC0005)            
********************************* Top of Data **********************************
                 IN=(&CONDIN,ODAT)                                              
                 OUT=(&CONDOUT,ODAT,-)                                          
******************************** Bottom of Data ********************************                                                  

moi pour mon anniversaire j'aimerais un VTT.

Moi j'aimerais bien que ce topic soit fermé pour cause de "on ne fait pas le travail à la place des autres, merci de lire les règles de la catégorie Programmation"...
 
...wait.