RE: Paso de parámetros

paco Wed, 08 Mar 2006 10:55:06 -0800

Si te vale esto como ejemplo:

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

Saludos

Paco Medina

Exclusivas Camacho, S.Ltda.

Dtor.Informatica

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de JUAN GARCIA
Enviado el: miércoles, 08 de marzo de 2006 18:14
Para: [email protected]
Asunto: RE: Paso de parámetros

Gracias por responder, la solución que aportais no me sirve porque el parámetro que envío no es fijo, sino que es un registro de un archivo de artículos y algunos artículos llevan el apóstrofo y otros no y no querría tener que leer todos los registros que envío y añadirles a cada uno el apóstrofo que le hace falta puesto que se ralentizaría mucho ¿se os ocurre otra solución?

Un saludo

JUAN GARCIA <[EMAIL PROTECTED]> escribió:

Buenos días a todos

Tengo un programa que hace una llamada sometida a otro pgm y le paso un parámetro que es la descripción de un producto que está en inglés y lleva un apóstrofo, por lo cual la llamada al programa sometida falla al detectar tres apóstrofos ejemplo:

SBMJOB CMD(CALL PGM(XXXXX) PARM('OWNER'S MANUAL EURO')) JOB(XXXXXX) JOBQ(XXXXXXXX/XXXXXXX)

¿Sabe alguien cómo puedo hacer la llamada incluyendo el apóstrofo en el parámetro sin que me dé error?

Un saludo a todos

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

RE: Paso de parámetros

Responder a