|
MUCHISIMAS GRACIAS ! A TODOS TENGO V4.5 PERO ESTO
ME HA SOLUCIONADO MI PROBLEMA
SALUDOS !!
----- Original Message -----
Sent: Thursday, May 19, 2005 9:14
AM
Subject: Re: [Help400] DO EN CL
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
|
