¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
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

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

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

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344