El CHGLIBL directamente sí casca, pero ejecutado a través del QCMDEXC funciona.
Saludos. Juan Carlos > -----Mensaje original----- > De: José de la Herrán [SMTP:[EMAIL PROTECTED] > Enviado el: jueves, 16 de junio de 2005 13:00 > Para: Forum Help400 > Asunto: Re: Listas Bibliotecas > > 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 > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.323 / Virus Database: 267.7.6/19 - Release Date: 16/06/2005 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.6/19 - Release Date: 16/06/2005 __________________________________________________ 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
