Re: rgzpfm con bloqueos

[Pedro Pinedo]

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)                                          
             ENDDO                                                      
             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)                                    
             ENDDO          
             QSYS/RGZPFM FILE(&L/&ODOBNM)  
             MONMSG     MSGID(CPF0000)  
FIN:        QSYS/DLCOBJ OBJ((&L/&ODOBNM *FILE *EXCL))        
             ENDPGM

                                                                                         
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
[EMAIL PROTECTED]
(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.