YO VALIDO QUE EXISTA MI LIBRERÍA ASI
ESPERO QUE TE SIRVA
0001.00
/********************************************************************/
0002.00 /* PROGRAMA PARA VALIDAR QUE EXISTA LA LIBREIA EL SISTEMA AS400
*/
0005.00
/********************************************************************/
0006.00 PGM PARM(&BIBL &ERR)
0007.00 DCL VAR(&ERR) TYPE(*CHAR) LEN(1)
0008.00 DCL VAR(&BIBL) TYPE(*CHAR) LEN(10)
0009.00 CHKOBJ OBJ(&BIBL) OBJTYPE(*LIB)
0010.00 MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(NOEX))
0011.00 GOTO CMDLBL(END)
0012.00 NOEX:
0013.00 CHGVAR VAR(&ERR) VALUE('1')
0014.00 END: ENDPGM
****************** Fin de datos
********************************************************************
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
En nombre de Wilfredo Ramírez
Enviado el: Martes, 20 de Junio de 2006 08:28 a.m.
Para: Forum AS/400 (E-mail)
Asunto: Adicionar Librerias
Saludos Forums haber quien me puede ayudar,
Estoy creando un mantenimiento, subfile, (adicion, modifica, borra) donde se
capturará una lista de biblioteca, esto es algo parecido al EDTLIB del S.O.
y para esto necesito validar que la biblioteca capturada sea válida.
Existe un comando o APIS que me permita validar que el objeto *libl sea
correcto, realmente es lo mismo que el comando de editar lista de
bibliotecas.
Gracias por cualquier ayuda que me puedan brindar.
Wilfredo Ramírez
Analista Seniol IT
Phone : (809) 947-6529
Mobile : (809) 650-0059
Mail : [EMAIL PROTECTED]
WWW.Republicdr.COM.DO
__________________________________________________
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
