Entonces así:
PARM KWD(TOFILE) +
TYPE(QUAL2) +
MIN(1) +
SNGVAL( (*NONE )) +
PROMPT('A ARCHIVO')
QUAL2:QUAL TYPE(*NAME) LEN(10) MIN(1)
QUAL TYPE(*NAME) LEN(10) +
DFT(*LIBL) +
SPCVAL((*LIBL)) +
PROMPT('BIBLIOTECA')
Un saludo.
El 10 de febrero de 2009 9:52, Javier Mora <[email protected]> escribió:
> Gracias Raul, pero mi idea inicial es que este parámetro se obligatorio
> y, por tanto, no quiero que tenga un valor por defecto.
>
> Un saludo.
>
> Javier Mora
>
> ------------------------------
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Raul Bascones
> *Enviado el:* lunes, 09 de febrero de 2009 12:02
> *Para:* forum.help400
> *Asunto:* Re: Parámetro en definición de mandato
>
> Yo lo haría así:
>
> PARM KWD(TOFILE) +
> TYPE(QUAL2) +
> DFT(*NONE) +
> SNGVAL( (*NONE )) +
> PROMPT('A ARCHIVO')
>
> QUAL2: QUAL TYPE(*NAME) LEN(10) MIN(1)
>
> QUAL TYPE(*NAME) LEN(10) +
> DFT(*LIBL) +
> SPCVAL((*LIBL)) +
> PROMPT('BIBLIOTECA')
>
> No se si te puede valer.
> Un saludo.
>
> El 5 de febrero de 2009 16:43, Javier Mora <[email protected]> escribió:
>
>> Hola a t...@s:
>>
>> Estoy creando un mandato en el que necesito especifar un parámetro
>> compuesto (por ejemplo biblioteca y archivo) pero en el que puede haber
>> valores especiales (por ejemplo *NONE) si no quiero especificar el archivo.
>> El parámetro se define así:
>>
>> PARM KWD(TOFILE) +
>> TYPE(QUAL2) +
>> MIN(1) +
>> PROMPT('A archivo')
>> QUAL2: QUAL TYPE(*NAME) LEN(10) MIN(1) +
>> SPCVAL((*NONE))
>> QUAL TYPE(*NAME) LEN(10) +
>> DFT(*LIBL) +
>> SPCVAL((*LIBL)) +
>> PROMPT('BIBLIOTECA')
>>
>> Como se puede observar, el parámetro es obligatorio y la biblioteca
>> aparece como *LIBL. Sin embargo si el usuario no quisiera especificar un
>> archivo podría poner *NONE en la parte del nombre del archivo. Por ejemplo:
>>
>> A archivo . . . . . . . . . . . > *NONE Nombre, *NONE
>> Biblioteca . . . . . . . . . . *LIBL Nombre, *LIBL
>>
>> El *LIBL de la biblioteca no se cambia. Al traspasar este parámetro al
>> programa procesador llega como '*NONE *LIBL '. En principio no hay
>> problema, como el *LIBL no lo quiero no le hago caso, o lo cambio a blancos
>> si me molesta en la variable de entrada.
>>
>> Me gustaría que por limpieza, ya llegara desde el mandato el *LIBL
>> eliminado sin forzar al usuario a hacerlo o que cuando recuperara el mandato
>> con F9 no apareciera. Este comportamiento es habitual en los mandatos del
>> sistema. Además, me encuentro con otro caso muy parecido en el que estoy
>> diseñando un envoltorio (en forma de mandato) para una API del sistema que
>> requiere en uno de sus parámetros o *ALL o 'COLASALIDA*LIBL '.
>>
>> ¿Cómo puedo eliminar *LIBL cuando uso *NONE? He revisado el manual de
>> "Programación CL" pero no encuentro nada sobre este tema. ¿Se puede hacer?
>>
>> Espero haberme explicado bien.
>>
>> Un saludo.
>>
>> *Javier Mora García*
>>
>>
>> __________________________________________________
>> Forum.HELP400 es un servicio m&#225;s de NEWS/400.
>> &#169; 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&#225;s de NEWS/400.
> &#169; 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&#225;s de NEWS/400.
&#169; 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
