Hola. Si tienes la V5r3 en Cl existen los comandos DOFOR, DOWHILE y DOUNTIL (y LEAVE) para hacer bucles. Si no la tienes, lo que pides, hecho de forma 'tradicional' seria algo as�:
PGM
DCL VAR(&CONTA) TYPE(*DEC) LEN(2 0)
INICIO:
IF COND(&CONTA < 10) THEN(DO)
CALL PGM(PROGRAMA)
CHGVAR VAR(&CONTA) VALUE(&CONTA + 1)
GOTO CMDLBL(INICIO)
ENDDO
ENDPGM
| "Juan Gutierrez
Ruiz" <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 19/05/05 15:21
|
|
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
