Aqu� te adjunto un fuente con una funci�n que realiza/implementa la llamada a esa API. La baj� de recursos 400.
Saludos. Fernando P�rez. Cer�mica Saloni. Dpto. Sistemas <mailto:[EMAIL PROTECTED]> -----Mensaje original----- De: JAVIER MOREDA FERNANDEZ [mailto:[EMAIL PROTECTED] Enviado el: martes, 13 de enero de 2004 17:47 Para: [EMAIL PROTECTED] Asunto: RE: Pregunta Igualmente feliz a�o ;-) �Tienes alg�n ejemplo o puedo bajarlo de alg�n sitio? Gracias de antemano por todo. -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviado el: martes, 13 de enero de 2004 16:31 Para: [EMAIL PROTECTED] Asunto: Re: Pregunta Hola, y sea dicho de paso, feliz a�o.... m�s vale tarde que nunca ;-) Si que se puede siempre y cuando quien ejecute el mandato sea el RPG, y no utilices el QCMDEXEC para ejecutarlo sino utilizando la API QCAPCMD, que retorna como valor el CPF resultante, si es que existe un error. Para utilizar la API el programa tiene que ser ILE. fins aviat... �lex Corretg� "JAVIER MOREDA FERNANDEZ" Para: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> cc: Enviado por: Asunto: Pregunta [EMAIL PROTECTED] COMBIOS.ES 13/01/2004 13:36 Por favor, responda a forum.help400 =BFSe puede monitorizar un mensaje CPF* en un programa RPG? _____________________________________________________ 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] _____________________________________________________ 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] _____________________________________________________ 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]
Fernando P�rez.vcf
Description: Binary data
H nomain
H option(*noshowcpy:*noexpdds:*noext:*noxref)
* NOTE: Create as service program with activation group of *CALLER.
* This ensures commands with activation group scope (such as OVRDBF)
* are effective.
************************************************************************
* PROTOTYPES
************************************************************************
/COPY UTLPGMSRC,@P.EXCCMD
D QCAPCMD PR extpgm('QCAPCMD')
D CmdString 32767A const options(*varsize)
D CmdLength 10I 0 const
D OptCtlBlk 20A const
D OCBLen 10I 0 const
D OCBFmt 8A const
D ChgCmdStr 1A
D LenAvailCS 10I 0 const
D LenOfChgCS 10I 0
D ErrorCode 144A
*****************************************************************
* EXPORTED PROCEDURES
*****************************************************************
P @ExecCmd B export
D @ExecCmd PI 7A
D CmdString 32767A value varying
D OptParms 128A options(*NOPASS)
* Locals:
D OCB DS
D TypOfCmdP 10I 0 inz(0)
D DBCS 1A inz('0')
D Prompt 1A inz('2')
D CmdStrSyn 1A inz('0')
D MsgKey 4A inz(*BLANKS)
D Resvd1 9A inz(*LOVAL)
D OCBFmt S 8A inz('CPOP0100')
D CCS S 1A inz(*BLANKS)
D CCSLenAvl S 10I 0 inz(0)
D CCSLenRet S 10I 0 inz(0)
D ErrorDS DS
D Err_BytProv 10I 0
D Err_BytAvail 10I 0
D Err_ExcID 7A
D Err_Rsvd 1A
D Err_Exception 128A
C clear ErrorDS
C eval Err_BytProv=%size(ErrorDS)
C callp QCAPCMD(CmdString
C :%len(CmdString)
C :OCB:%size(OCB):OCBFmt
C :CCS:CCSLenAvl:CCSLenRet
C :ErrorDS)
C if %parms > 1
C eval OptParms = Err_Exception
C endif
C return Err_ExcID
P E
*****************************************************************
*==================================================*
D @ExecCmd PR 7A
D CmdString 32767A value varying
D OptParms 128A options(*NOPASS)
*==================================================*
