Wilfredo:
Esta es una solucion simple, epro efectiva;
utiliza en el programa de conexion:
===========
/* al inicio, salvas la lista de Bibs. */
RTVJOBA USRLIBL(&LIBL)CURLIB(&CURLIB)
-----
-----
/* y al final, recargas la lista de bib. en el mismo orden */
-----
-----
CHGCURLIB CURLIB(&CURLIB)
LIBL: CHGVAR VAR(&LIB11) VALUE(%SST(&LIBL &X 11))
IF COND(&LIB11 *EQ ' ') THEN(GOTO +
CMDLBL(FIN))
CHGVAR VAR(&LIB) VALUE(%SST(&LIB11 1 10))
ADDLIBLE LIB(&LIB) POSITION(*LAST)
CHGVAR VAR(&X) VALUE(&X + 11)
GOTO CMDLBL(LIBL)
FIN: ENDPGM
============
Saludos y suerte
Ignacio
----------
From: [EMAIL PROTECTED]:[EMAIL PROTECTED] on behalf of alex martinez[SMTP:[EMAIL PROTECTED]
Reply To: [email protected]
Sent: Jueves, 14 de Septiembre de 2006 3:06
To: [email protected]
Subject: Re: Lista Bibliotecas
Hola:
La revista Help/400 en 1997 publicó en el número 75 un artículo para simplificar el manejo de listas de bibliotecas. El artículo, el código fuente y las instrucciones para compilar en este enlace
<http://www.help400.es/asp/scripts/nwart.asp?Num=75&Pag=49&Tip=U>
Salu2
El día 13/09/06, Wilfredo Ramírez < [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>> escribió:
Saludos a todos, a ver quien me puede dar una idea, estoy haciendo un proyecto donde es necesario cuando un usuario entra al sistema tener que salvar la lista de biblioteca que tiene asignada para luego ser restaurada.
Existe algún Api donde pueda obtener esta lista de biblioteca para poder salvarla y luego restaurar esta misma, le agradecería cualquier ayuda que me puedan brindar.
Bendiciones...
Wilfredo Ramírez
Analista Senior IT
Phone : (809) 947-6529
Mobile : (809) 650-0059
Mail : [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
WWW.Republicdr.COM.DO <http://WWW.Republicdr.COM.DO>
--
Mi blog sobre as400
<http://www.ajut400.com>
-----------------------------------------------------------------
Notice of Confidentiality: The information transmitted is intended only for the sender and person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, e-transmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited.
If you received this in error, please contact the sender immediately by return electronic transmission and then immediately delete this transmission, including all attachments, without copying, distributing or disclosing same.
------------------------------------------------------------------
Aviso de Confidencialidad: Este correo electrónico y/o el material adjunto es para uso exclusivo del emisor y la persona o entidad a la que expresamente se le ha enviado, y puede contener información confidencial o material privilegiado. Si usted no es el destinatario legítimo del mismo, por favor repórtelo inmediatamente al remitente del correo y bórrelo.
Cualquier revisión, retransmisión, difusión o cualquier otro uso de este correo, por personas o entidades distintas a las del destinatario legítimo, queda expresamente prohibido. Este correo electrónico no pretende ni debe ser considerado como constitutivo de ninguna relación legal, contractual o de otra índole similar.
------------------------------------------------------------------
