Espero te sirva este ejemplo
Puedes realizar la mayoria de los comandos de esta manera, los que realmente no
funcionan son los que empiezan por rtv*
*
*** Prototipo del programa QCMDEXC
d Cmd pr ExtPgm('QCMDEXC')
d cmd 256A const
d length 15P 5 const
d Comilla s 1 inz('''')
*** Fuente PF de auditoria c
Eval CmdW = 'ADDPFM FILE(' + c
'QTEMP/QITSDSRC' + c
') MBR(' + c
%trim(ArchiF(1)) + '0' + c
') ' + c
'TEXT(' + c
Comilla + c
%trim(PTSDSCPGM) + ' Aud' + c
Comilla + c ')
SRCTYPE(PF)' c Monitor
c Callp Cmd(CmdW:
c %len(CmdW))
c On-Error
c Eval MsgId = 'GNI0017'
c Eval IndErr = '1'
c LeaveSr
c EndMon
----- Original Message -----
From: VALENCIA Informatique
To: forum.help400
Sent: Friday, May 18, 2007 10:46 AM
Subject: Pregunta sobre RPG
Estimados foreros....
Como se hace para ejecutar un mandato de CL en un programa RPG??.
Muchas gracias de adelanto.
Lo recompensaremos con unas copillas.
Un saludo
______________________________
Rafael Gil -- Víctor Alejandre
Dto. Informatica
ID-Logistics España
------------------------------------------------------------------------------
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
