Que yo sepa, no.  Yo tengo las reorganizaciones en unos cl's que someto a una cola nocturna, y que se auto someten si falla la reorganizacion

             PGM        PARM(&ODOBNM &L &S)                            
             DCL        VAR(&ODOBNM) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&L) TYPE(*CHAR) LEN(10)                    
             DCL        VAR(&S) TYPE(*CHAR) LEN(1)                      
             IF         COND(&S *EQ 'S') THEN(DO)                      
                     DLYJOB     DLY(5)                                          
             QSYS/ALCOBJ OBJ((&L/&ODOBNM *FILE *EXCL)) WAIT(5)          
             MONMSG     MSGID(CPF1002) EXEC(DO)                        
             SBMJOB     CMD(CALL PGM(REORGPFM) PARM(&ODOBNM &L 'S')) +  
                          JOB(&ODOBNM) JOBQ(QNOCHE) JOBPTY(7)          
             GOTO       CMDLBL(FIN)                                    
             QSYS/RGZPFM FILE(&L/&ODOBNM)  
             MONMSG     MSGID(CPF0000)  

Pedro Pinedo Hernandez:  Analista-Programador
Grupo Amcor Flexibles Hispania S.L.  
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
Avd. Burgos 67-95
26006 Logro├▒o Spain
(quitar nospam del dominio, para enviar)
_______________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION _______________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.

Responder a