Re: [Help400] DO EN CL

[Carlos Portoles]

Hola, Juan.

 

Crea un fichero con un registro por cada una de las librer�as.

 

             PGM                                
             DCLF       FILE(<Fichero>)

 

NEXT1:      RCVF                                           
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

 

< las llamadas que necesites>
 

             GOTO       CMDLBL (NEXT1)                                        
 END:        ENDPGM                   

 

 

Con este sistema, puedes guardar en otros campos del fichero variables, flags u otras cosas que necesites.

Adem�s, cuando quieras a�adir/quitar una librer�a no tendr�s que recompilar el programa.

Espero que te sirva.

 

El d�a 19/05/05, Juan Gutierrez Ruiz <[EMAIL PROTECTED]> escribi�:

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