Iseries AS400 . SAVRSTLISTV5

Volver a la página principal de Recursos iSeries AS400

Recursos iSeries AS400. Compartiendo generamos conocimiento

SAVRSTLISTV5

Categoría : Programación
Autor : Marlon
Título : SAVRSTLISTV5

Descripción del truco:
Salvado y Restauracion de lista de bibliotecas para V5.
Esta es una mejora del ya existente savlstlib

Código en formato texto
Fecha 25-02-2004

Programa CLP


PGM

      DCL VAR(&USRLIBL) TYPE(*CHAR) LEN(2750)
      DCL VAR(&CURLIB) TYPE(*CHAR) LEN(10)
                         /* SALVAMOS LISTA DE BIBLIOTECA Y CURLIB ACTUAL */

      RTVJOBA CURLIB(&CURLIB)
      RTVJOBA USRLIBL(&USERLIBL)
/* EJECUTAMOS PROGRAMA CON UNA NUEVA LISTA DE BIBLIOTECA */
                         CALL PGM(CLPPGM)

/* RESTAURAMOS LISTA DE BIBLIOTECA SALVADA */
CALL PGM(RSLBLCL) PARM(&USRLIBL)
      IF COND((&CURLIB *NE ' ') + 
             *AND (&CURLIB *NE '*NONE ')) THEN(DO) 
             CHGCURLIB &CURLIB 
             ENDDO 
ENDPGM

Programa RPGLE


     C     *Entry        Plist                                          
     C                   Parm                    Userlibl       2750    
     C                   Clear                   Cmd            2750    
     C                   Clear                   LongStr          15 5  
     C                   Eval      Cmd    = 'CHGLIBL' + ' ' + '('       
     C                              + %trim(Userlibl) + ')'             
     C                   Eval      longStr = %len(%trim(somete))        
     C                   Call      'QCMDEXC'                            
     C                   Parm                    Cmd                    
     C                   Parm                    LongStr                
     C                   Return

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Symtrax

Dossiers técnicos iSeries y AS400

- Dossier de seguridad
- Alta disponibilidad.

¿Buscas trabajo ?

Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.

Nuestros links preferidos

- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

Links patrocinados