[SPAM] RE: rgzpfm con bloqueos

[Rodriguez, Santiago]

Title:

Buenos días,   Nosotros utilizamos la utilidad que adjunto.   ReorganizaCMD : Comando que llama al CLP   ReorganizaCLP: CLP que reorganiza ficheros de una librería con posibilidad de seleccionar *ALL     Nosotros corremos este programa  por la noche para evitar problemas de bloqueo.   Un  Saludo / Best Regards ____________________________________________ Santiago Rodriguez IT department /Tupperware Spain (Tel.) +34 91 484 5900 Ext 33 - (Fax) +34 91 761 6164 [EMAIL PROTECTED] Passmail De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviado el: martes, 31 de octubre de 2006 9:29 Para: forum.help400@combios.es Asunto: rgzpfm con bloqueos   Es posible reorganizar  ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO  (para todos aquellos que están más allá del CHARCO) =======================================================  La originalidad no esta en el "HECHO", esta en la"SOLUCIÓN"        Cualquier cosa que gobierne tu vida te autodestruirá  Sino dices lo que piensas es que no piensas  - M i  O T a  O - =======================================================   .~.  /V\   L   I   N   U   X // \\ >Phear the Penguin< /(   )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf.    +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me)

  5722WDS V5R2M0  020719                  SEU SOURCE LISTING                    
        06/10/31 08:59:39                 PAGE    1
  SOURCE FILE . . . . . . .  ESM1GPL/QCMDSRC
  MEMBER  . . . . . . . . .  REORGANIZA
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
...+... 8 ...+... 9 ...+... 0
    100              CMD        PROMPT('Reorganizaciòn de Ficheros')            
                                        95/05/11
    200                                                                         
                                        95/05/09
    300              PARM       KWD(FILE) TYPE(*GENERIC) LEN(10) +              
                                        95/05/11
    400                           SPCVAL((*ALL)) MIN(1) FILE(*UPD) +            
                                        95/05/11
    500                           CHOICE('Nombre, Generico*, *ALL') +           
                                        95/05/11
    600                           PROMPT('Fichero de Base de Datos')            
                                        95/05/11
    700                                                                         
                                        95/05/11
    800              PARM       KWD(LIB) TYPE(*NAME) LEN(10) DFT(*LIBL) +       
                                        01/04/04
    900                           SPCVAL((*CURLIB) (*LIBL)) MIN(0) MAX(1) +     
                                        01/04/04
   1000                           CHOICE('Nombre, *CURLIB, *LIBL') +            
                                        01/04/04
   1100                           PROMPT('Libreria')                            
                                        01/04/04
                                  * * * *  E N D  O F  S O U R C E  * * * *

  5722WDS V5R2M0  020719                  SEU SOURCE LISTING                    
        06/10/31 08:59:31                 PAGE    1
  SOURCE FILE . . . . . . .  ESM1GPL/QCLSRC
  MEMBER  . . . . . . . . .  REORGANIZA
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
...+... 8 ...+... 9 ...+... 0
    100  RGZPF:      PGM        PARM(&FILE &LIB)                                
                                        95/05/11
    200                                                                         
                                        95/01/23
    300  /* DECLARACIÓN DE VARIABLES */                                         
                                        95/05/11
    400                                                                         
                                        95/05/09
    500              DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)                   
                                        95/05/09
    600              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)                  
                                        95/05/09
    700                                                                         
                                        95/05/09
    800              DCL        VAR(&ERROR) TYPE(*LGL)                          
                                        95/05/11
    900                                                                         
                                        95/05/11
   1000              DCLF       FILE(REORGANIZA)                                
                                        95/05/11
   1100                                                                         
                                        95/05/11
   1200              MONMSG     MSGID(MCH0000 CPF0000 CPT9999) EXEC(GOTO +      
                                        95/05/11
   1300                           CMDLBL(ENDERR))                               
                                        95/05/11
   1400                                                                         
                                        95/05/11
   1500              DSPFD      FILE(&LIB/&FILE) TYPE(*MBR) OUTPUT(*OUTFILE) +  
                                        95/05/11
   1600                           FILEATR(*PF) OUTFILE(QTEMP/REORGANIZA)        
                                        95/05/11
   1700                                                                         
                                        95/05/11
   1800              MONMSG     MSGID(CPF3020 CPF3012) EXEC(GOTO +              
                                        95/05/11
   1900                           CMDLBL(ENDPGM)) /* Fichero no encontrado */   
                                        95/05/11
   2000                                                                         
                                        95/05/11
   2100              OVRDBF     FILE(REORGANIZA) TOFILE(QTEMP/REORGANIZA)       
                                        95/05/11
   2200                                                                         
                                        95/05/11
   2300  RCVFIL:     RCVF                                                       
                                        95/05/11
   2400              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM)) /* +   
                                        95/05/11
   2500                           Fin de fichero */                             
                                        95/05/11
   2600                                                                         
                                        96/05/30
   2700              IF         COND(&MBNDTR *GT 0) THEN(DO)                    
                                        96/05/30
   2800                                                                         
                                        96/05/30
   2900              RGZPFM     FILE(&MBLIB/&MBFILE) MBR(&MBNAME)               
                                        96/05/30
   3000                                                                         
                                        95/05/11
   3100              MONMSG     MSGID(CPF2981 CPF2986) /* Esta utilizandose */  
                                        96/05/30
   3200                                                                         
                                        96/05/30
   3300              ENDDO                                                      
                                        96/05/30
   3400                                                                         
                                        96/05/30
   3500              GOTO       CMDLBL(RCVFIL)                                  
                                        95/05/11
   3600                                                                         
                                        95/05/11
   3700  ENDPGM:     RETURN                                                     
                                        95/05/11
   3800                                                                         
                                        95/05/11
   3900  ENDERR:     IF         COND(*NOT &ERROR) THEN(DO)                      
                                        95/05/11
   4000                                                                         
                                        95/05/11
   4100              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Ha +       
                                        95/05/11
   4200                           fallado la reorganizacion, revisa las +       
                                        95/05/11
   4300                           causas en las anotaciones de trabajo.') +     
                                        95/05/11
   4400                           MSGTYPE(*ESCAPE)                              
                                        95/05/11
   4500                                                                         
                                        95/05/11
   4600              MONMSG     MSGID(CPF0000)                                  
                                        95/05/11
   4700                                                                         
                                        95/05/11
   4800              CHGVAR     VAR(&ERROR) VALUE('1')                          
                                        95/05/11
   4900                                                                         
                                        95/05/11
   5000              ENDDO                                                      
                                        95/05/11
   5100                                                                         
                                        95/05/11
   5200              ENDPGM                                                     
                                        95/05/11
                                  * * * *  E N D  O F  S O U R C E  * * * *