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
