Vuelvo a mandar el mensaje, que con los blancos se ha quedado hecho unos
zorros....
Un CHGLIBL(&LISTA) te va a cascar. Tienes que añadir las bibliotecas de
&LISTA de una en una. Te pongo el código de un programa CL que lo hace.
Espero que te sirva.
Un saludo,
Potele
PGM PARM(&LISTA)
/*********************************************************************/
/* */
/* ESTA CL MODIFICA LA LISTA DE BIBLIOTECAS Y ESTABLECE */
/* LA LISTA QUE RECIBE COMO PARAMETRO. */
/* LA LISTA DE BIBLIOTECAS QUE SE RECIBE ESTA CONTENIDA */
/* EN EL PARAMETRO &LISTA, DE 2750 POSICIONES. CADA POSIBLE */
/* BIBLIOTECA OCUPA 10 CARACTERES Y HAY UN BLANCO ENTRE */
/* CADA BIBLIOTECA. ES DECIR, LA PRIMERA BIBLIOTECA ESTA */
/* EN LAS POSICIONES 1 A 10. LA SEGUNDA EN LAS POSICIONES */
/* 12 A 21, LA TERCERA EN 23 A 32, ETC. */
/* ESTA ES LA FORMA EN QUE DEVUELVE LA LISTA DE BIBLIOTECAS */
/* EL MANDATO RTVJOBA. */
/*********************************************************************/
/* */
DCL VAR(&LISTA) TYPE(*CHAR) LEN(2750)
DCL VAR(&BIBLIO) TYPE(*CHAR) LEN(10)
DCL VAR(&INI) TYPE(*DEC) LEN(4)
/* */
/* PRIMERO BORRA LA LISTA DE BIBLIOTECAS */
/* */
CHGLIBL LIBL(*NONE)
MONMSG MSGID(CPF9999)
/* */
/* BUCLE QUE RECORRE LAS BIBLIOTECAS DE LA LISTA. POR CADA UNA */
/* SE COMPRUEBA QUE SEA DISTINTA DE BLANCOS */
/* */
CHGVAR VAR(&INI) VALUE(1)
BUCLE: CHGVAR VAR(&BIBLIO) VALUE(%SST(&LISTA &INI 10))
IF COND(&BIBLIO *NE ' ') THEN(DO)
ADDLIBLE LIB(&BIBLIO) POSITION(*LAST)
MONMSG MSGID(CPF9999)
CHGVAR VAR(&INI) VALUE(&INI + 11)
IF COND(&INI *GT 2750) THEN(GOTO CMDLBL(FIN))
GOTO CMDLBL(BUCLE)
ENDDO
ELSE CMD(DO)
GOTO CMDLBL(FIN)
ENDDO
/* */
FIN:
ENDPGM
Juan Antonio escribió:
Buenos días.
Dentro de una CL, recupero, con RTVJOBA a una variable &USRLIBL, la
lista de bibliotecas que tengo inicialmente. Posteriormente, hago
varios CHGLIBL, y al final deseo dejar la lista inicial. Al igual que
existe el RTVJOBA (recuperar lista), de manera sencilla ¿cómo puedo
cambiar a la lista inicial?.
Gracias.
--
José de la Herrán Núñez
Ayuntamiento de Vitoria-Gasteiz
Departamento de Nuevas Tecnologías
Pintor Vera Fajardo, 5 bajo, 01008 Vitoria-Gasteiz
Tlf: +34 945 16 16 14
Fax: +34 945 16 16 00
mailto:[EMAIL PROTECTED]
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
