A ver si te sirve este ejemplo.
Saludos Paco Medina Dtor.Informatica Exclusivas Camacho, S. L. Av. J. Ortega y Gasset, 301 (Pol. San Luis) 29006 Málaga, España Tel. +34 952 322 900 Fax +34 952 314 900 www.e-camacho.com [EMAIL PROTECTED] Este e-mail es confidencial. Si usted no es el receptor apropiado, rogamos no use la información contenida en el mismo por ser personal e intransferible. Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el e-mail inmediatamente al remitente y destruya el documento. EXCLUSIVAS CAMACHO S.L. no se hará responsable del mal uso de la información recibida en estas condiciones, tomando las pertinentes acciones legales contra la persona o entidad que incumpla el siguiente clausulado. _____ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED] Enviado el: viernes, 18 de mayo de 2007 18:07 Para: [email protected] Asunto: Re: Pregunta sobre RPG Hola: Puedes efectuarlo efectuando CALL QCMDEXC ('OVRDBF FILE(AAAAAA) TOFILE(BBBBBB)' 34) El primer parámetro corresponde al mandato CL a ejecutar El segungo parámetro corresponde a la longitud total del mandato. Ambos parámetros pueden ser campos del RPG. Saludos. ----Mensaje original---- De: [EMAIL PROTECTED] Recibido: 18/05/2007 17:46 Para: "forum.help400" Asunto: 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
MIEMBRO . . . . . . . . . PROSJOB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 ****************************************************************
27/02/03
200 * Prosjob - Ejecucion de un programa sometido SBMJOB AS/400 *
03/03/03
300 * Con tres Parametros *
04/03/03
400 * *
04/03/03
500 * PROGRA = Nombre del programa en cuestion *
04/03/03
600 * PARM2 = 1 Parametro del Programa que se llame *
04/03/03
700 * PARM3 = 2 Parametro del Programa que se llame *
04/03/03
800 * *
04/03/03
900 * Para: - Exclusivas Camacho, S.Ltda, *
27/02/03
1000 * Autor: - Fco.Jose Medina Barajas 03/03/2003 *
03/03/03
1100 ****************************************************************
27/02/03
1200 *
27/02/03
1300 C *ENTRY PLIST
04/03/03
1400 C PARM PROGRA 10
04/03/03
1500 C PARM PARM1 7
04/03/03
1600 C PARM PARM2 3
04/03/03
1700 * QCMDEXC
04/03/03
1800 C QCMD PLIST
04/03/03
1900 C PARM COMFLD 80
04/03/03
2000 C PARM 80 COMLEN 15 5
04/03/03
2100 *
04/03/03
2200 *
03/03/03
2300 C COMFLD CAT 'SBMJOB':0 COMFLD
04/03/03
2400 C COMFLD CAT 'CMD':1 COMFLD
04/03/03
2500 C COMFLD CAT '(':0 COMFLD
04/03/03
2600 C COMFLD CAT 'CALL':0 COMFLD
04/03/03
2700 C COMFLD CAT PROGRA:1 COMFLD
04/03/03
2800 C COMFLD CAT 'PARM':1 COMFLD
04/03/03
2900 C COMFLD CAT '(':0 COMFLD
04/03/03
3000 C COMFLD CAT PARM1:0 COMFLD
04/03/03
3100 C COMFLD CAT PARM2:1 COMFLD
04/03/03
3200 C COMFLD CAT '))':0 COMFLD
04/03/03
3300 C COMFLD CAT 'JOB':1 COMFLD
04/03/03
3400 C COMFLD CAT '(':0 COMFLD
04/03/03
3500 C COMFLD CAT 'PRO_JOB':0 COMFLD
04/03/03
3600 C COMFLD CAT ')':0 COMFLD
04/03/03
3700 *
04/03/03
3800 * COMFLD Quedaria de la siguiente forma:
04/03/03
3900 * SBMJOB CMD(CALL PROGRAMA PARM('PARM1' 'PARM2') JOB(PRO_JOB)
04/03/03
4000 *
04/03/03
4100 * Aqui ejecuta el comando QCMDEXC
27/02/03
4200 C CALL 'QCMDEXC' QCMD
04/03/03
4300 *
27/02/03
4400 * Dependiendo de si la llamada es directa o desde otro programa
03/03/03
4500 * utilizaremos el LR o Return
03/03/03
4600 * EVAL *INLR = *ON
03/03/03
4700 C RETURN
03/03/03
* * * * F I N D E F U E N T E * * * *
__________________________________________________ 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
