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  * * * *

Responder a