Hola,
Pues algo no debe estar bien porque yo tengo mandatos con MIN(0), MAX(1) y RTNVAL(*YES) compilados con ALLOW(*IPGM *BPGM) y funciona bien.
Puedes verlo con la utilidad RTVSBSSTS:
Suerte,
2006/4/24, [EMAIL PROTECTED] <[EMAIL PROTECTED]>:
El mandato esta compilado con *IREXX, *BREXX, *BPGM, *IPGM y la compilación la realiza correctamente. Pero el problema esta en la creación del programa del mandato, que en el mandato PARM no admite valor 1 en el parámetro MAX, si RSTNVAL es igual a *YES.
Gracias po el interes, Marti.
"Marti Riera" <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]21/04/2006 12:22
[email protected]
[email protected] Re: Creación de un mandato.
Hola ,
Debes compilar el mandato con los parametros ALLOW(*IPGM *BPGM) p.e.
Saludos.
2006/4/21, [EMAIL PROTECTED] <[EMAIL PROTECTED] >:
Buenos dias a todos y feliz viernes:
Mi problema es el siguiente, me he bajado un nuevo mandato de internet RTVQRYF, y no me lo compila bien porque da el siguiente error.
RTNVAL(*YES) sólo es válido en programas CL o procedimientos REXX.
Se asume el valor por omisión del puntero nulo.
En el programa donde se crea el mandato la sentencia errónea es la siguiente:
PARM KWD(INFILE) TYPE(*CHAR) LEN(1280) +
RTNVAL(*YES) VARY(*YES) PASSATR(*YES) +
PROMPT('Ficheros de entrada:')
Revisando el parámetro PARM, resulta que el valor MAX es por omisión 1, y si pongo RTNVAL(*YES), no admite valor 1 en el campo MAX, intento cambiarlo a 0, pero da un error porque el valor mínimo que admite es 1.
Espero haberme explicado.
Mi pregunta es la siguiente: ¿ Como se puede modificar el valor por omisión del mandato PARM, siendo un valor del sistema ?. ¿Es posible hacerlo?.
Muchas gracias y feliz fin de semana.
--
Martí Riera
--
Martí Riera
