Yo lo he manejado asi espero te sirva
PGM DCL VAR(&LIB) LEN(10) TYPE(*CHAR) DCL VAR(&CONT) TYPE(*DEC) LEN(3) VALUE(1) INICIO: IF COND(&CONT *LT 226) THEN(DO) GRTOBJAUT OBJ(&LIB) OBJTYPE(*LIB) USER(*PUBLIC) AUT(*EXCLUD
GRTOBJAUT OBJ(&LIB) OBJTYPE(*LIB) USER(*PUBLIC) AUT(*USE) GRTOBJAUT OBJ(&LIB) OBJTYPE(*LIB) USER(ADAM_EXAM) AUT(*EXCLUD
MONMSG MSGID(CPF2208) CHGVAR &CONT VALUE(&CONT + 1) GOTO INICIO ENDDO ENDPGM
saludos
Juan Gutierrez Ruiz wrote:
Hola Foro habra alguna manera de hacer un DO en un CL como el el Do de RPG y decirle cuantas veces quieres que se ejecute
tengo la nesesidad de repetir ciertas llamadas de programs para diferente compa�ia(librerias)
y tengo que separar cada compa�ia en una libreria
los programas a llamar son los mismos
ejemplo
para la primera libreria:
addlible lib_cia1
call programa 1
call programa 2
call programa 3
etc.
para la segunda Libreria
addlible lib_cia2
call programa 1
call programa 2
call programa 3
etc.
para la tercera Libreria
addlible lib_cia3
call programa 1
call programa 2
call programa 3
etc.
espero me puedan ayudar gracias y saludos
-- Alejandro Moreno Ayala Soporte ADAM V2 (55) 55 14 63 33 [EMAIL PROTECTED] www.itesoluciones.com.mx
__________________________________________________ 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
