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.

Responder a