Hola, tienes razon Jose:
En la ayuda del RTVJOBA lo especifica claramente:
" CL var para USRLIBL (2750) (USRLIBL) - Ayuda
Especifica el nombre de la variable CL que recibe la parte
de usuario de la lista de bibliotecas de la hebra. Cada
nombre de biblioteca que se devuelve se justifica por la
izquierda en un campo de 11 caracteres y se rellena con
blancos por la derecha. Si la variable CL es demasiado
pequeña para la lista de bibliotecas, se señala una
excepción y no se devuelven nombres de biblioteca. ...."
Especifica el nombre de la variable CL que recibe la parte
de usuario de la lista de bibliotecas de la hebra. Cada
nombre de biblioteca que se devuelve se justifica por la
izquierda en un campo de 11 caracteres y se rellena con
blancos por la derecha. Si la variable CL es demasiado
pequeña para la lista de bibliotecas, se señala una
excepción y no se devuelven nombres de biblioteca. ...."
El error fue debido a una respuesta demasiado rapida y despues de haberme peleado con otro tipo de listas: el del paramentro SPCAUT y AUDLVL del RTVUSRPRF que en ese caso no dejan 1 blanco entre valores.
Hasta pronto.
Marti Riera
----
El día 17/06/05, José de la Herrán <[EMAIL PROTECTED]> escribió:
Siento no estar de acuerdo contigo, Marti. El mandato RTVJOBA
USRLIBL(&LISTA) deja las bibliotecas en 10 posiciones cada una y con un
blanco de separación entre cada una de ellas. Además, ese programa CL
llevamos usándolo años en nuestra instalación (sería cachondo descrubrir
ahora que no funciona!!).
Potele
--
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]
Marti Riera escribió:
> Hola:
>
> Si has recuperado la lista bibliotecas con RTVJOBA en &LISTA la sentencia:
> CHGVAR VAR(&INI) VALUE(&INI + 11)
> deberia ser:
> CHGVAR VAR(&INI) VALUE(&INI + 10)
> ya que en la lista recuperada no hay blancos entre bibliotecas.
>
> Saludos.
>
> Marti Riera
>
>
> El día 16/06/05, *José de la Herrán* < [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>> escribió:
>
> 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]
> <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
> < http://coyote.combios.es/mailman/listinfo/forum.help400>
>
>
>
>
> --
> Marti Riera
__________________________________________________
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
--
Marti Riera
