puedes tambien crear una "funcion definida de usuario" en el PDM que llame a un CL 
para compilarlo, yo tengo una funcion de esta manera, la funcion se llama CO y ejecuta 
un cl con estos parametros
 CALL UTILIB/COMPILA PARM(&L &F &N &S)

el CL lo unico que hace es:


PGM        PARM(&PLIB &PFIL &PPRG &PTYPE)     
                                                          
DCL        VAR(&PPRG) TYPE(*CHAR) LEN(10)     
DCL        VAR(&PFIL) TYPE(*CHAR) LEN(10)     
DCL        VAR(&PLIB) TYPE(*CHAR) LEN(10)     
DCL        VAR(&PTYPE) TYPE(*CHAR) LEN(10)    

IF         COND(&PTYPE = 'CLP       ') THEN(DO)            
            CRTCLPGM PGM(&PLIB/&PPRG)   
                     SRCFILE(&PLIB/&PFIL)
                     SRCMBR(&PPRG)
ENDDO
ELSE(DO)
            CRTBNDCL PGM(&PLIB/&PPRG)    
                     SRCFILE(&PLIB/&PFIL)
                     SRCMBR(&PPRG)           
ENDDO

espero te sirva

Saludos...


Gerardo Santillana 
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED]


-----Original Message-----
From: Juan Carlos Paredes [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 16, 2002 5:08 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Compilaci�n de ILE CL como OPM


Para recuperar el tipo de fuente en un CL:


RTVMBRD FILE(biblioteca_fuente/archivo_fuente) MBR(miembro_fuente)
SRCTYPE(&variable)

Te devuelve en la &VARIABLE el tipo de fuente que se trate.

Saludos.

Juan Carlos.

> -----Mensaje original-----
> De:   medina  [SMTP:[EMAIL PROTECTED]]
> Enviado el:   lunes, 16 de diciembre de 2002 12:06
> Para: [EMAIL PROTECTED]
> Asunto:       RE: Compilaci�n de ILE CL como OPM
> 
> Podrias crearte un cl que recuperase el tipo de fuente , y en funcion de
> eso 
> compilarlo de una forma o de otra, y luego a�adirlo como opciones
> definidas     
> usuario en STRPDM para compilarlos. Lo que no recuerdo es como saber lo
> del 
> tipo de fuente, pero seguro que algun compa�ero nos lo dira.
> 
> espero te sirva.
> 
> Saludos
> 
> Paco Medina
> Dpto.Informatica
> Exclusivas Camacho, S.Ltda.
> 
> 
> 
> -----Mensaje original-----
> De: Javier Mora [mailto:[EMAIL PROTECTED]]
> Enviado el: lunes, 16 de diciembre de 2002 11:26
> Para: Forum AS/400 en castellano
> Asunto: Compilaci�n de ILE CL como OPM
> 
> 
> Hola a todos:
> 
>       En mi instalaci�n tengo CLs en OPM y en ILE, el caso es que muchos
> ILEs pueden ser compilados como OPM sin dar mensajes de error. �Existe
> alguna forma de evitar que un fuente CLLE se compile mediante CRTCLPGM?
> 
>       Un saludo y gracias por vuestros comentarios,
> 
> Javier Mora Garc�a    mailto:[EMAIL PROTECTED]
> Dialsur S.A.          http://www.dialsur.es
> Departamento de Inform�tica
> 
> 
> 
> 
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=LEAVE
> 
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=LEAVE

_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=AVE

_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE

Responder a