Hola a todos:

En un mandato de cosecha propia necesito validar que NO ocurra una situación 
concreta. Por ejemplo, la siguiente definición:

             PARM       KWD(JOB) TYPE(QUALJOB) MIN(1)             +
                        PROMPT('Nombre de trabajo')                
                                                                   
 QUALJOB:    QUAL       TYPE(*NAME) LEN(10)                       +
                        SPCVAL((*NOCHK))                           
             QUAL       TYPE(*NAME) DFT(*NOCHK)                   +
                        SPCVAL((*NOCHK))                          +
                        PROMPT('Usuario')                          
             QUAL       TYPE(*CHAR) LEN(6) DFT(*NOCHK)            +
                        RANGE(000000 999999)                      +
                        SPCVAL((*NOCHK))                          +
                        PROMPT('Número')                           

Me permite usar esta combinación de valores:

MIMANDATO  JOB(*NOCHK/*NOCHK/*NOCHK)

Situación que no quiero que suceda, al menos hay que especificar uno de los 
tres valores del parámetro JOB. Para validar he utilizado DEP como sigue:

             DEP        CTL(*ALLWAYS) PARM((&JOB *NE '*NOCHK    +
                          *NOCHK    *NOCHK'))                    

Pero no se realiza la comprobación. No tengo mucha experienza con este mandato. 
Mi intención de comprobar siempre que el contenido de &JOB no sea '*NOCHK...'.

¿Alguien me puede echar una manita? ¿Qué hago mal?


Un saludo

Javier Mora
Dpto. Informática


__________________________________________________
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

Responder a