Al compilar el mandato con CRTCMD en un valor que dice "�D�nde se permite ejecutar?" debes incluir s�lo los valores:
*BPGM y *IPGM Saludos. Juan Carlos > -----Mensaje original----- > De: gerardo.santillana [SMTP:[EMAIL PROTECTED] > Enviado el: jueves, 26 de junio de 2003 17:54 > Para: [EMAIL PROTECTED] > Asunto: RE: Compilar comando > > Perdon mi ignorancia pero donde le especifico este parametro, le intente > con un parametro que dice: > Allow limited users . . . . . . *yes > > pero no funciono > > se supone que este comando va a ejecutar un cl el cual le debe regresar un > valor que es el que especifico con el parametro RTNVAL(*YES) > > Gracias > > Gerardo Santillana > IT Department > Delphi Mechatronic Systems > US Ph: (956) 554.5832 > MX Ph: (88) 12.81.63/64/65 Ext. 5832 > e-mail [EMAIL PROTECTED] > > > > -----Original Message----- > From: Juan Carlos Paredes [mailto:[EMAIL PROTECTED] > Sent: Thursday, June 26, 2003 10:43 AM > To: '[EMAIL PROTECTED]' > Subject: RE: Compilar comando > > > Si echas un vistazo a la ayuda, te dice que el valor RTNVAL(*YES) s�lo > puede > utilizarse en mandatos que est�n restringidos a utilizaci�n desde > programa, > as� que o quitas ese valor o en el mandato CRTCMD le especificas el > par�metro ALLOW para indicarle que s�lo se puede utilizar desde > programaci�n. > > Espero que te ayude. > > Juan Carlos > > > -----Mensaje original----- > > De: gerardo.santillana [SMTP:[EMAIL PROTECTED] > > Enviado el: jueves, 26 de junio de 2003 17:35 > > Para: [EMAIL PROTECTED] > > Asunto: Compilar comando > > > > Hola foro > > > > estoy tratando de compilar este comando pero me esta marcando un error: > > > > CMD PROMPT('Retrieve String Length') > > > > PARM KWD(STRING) TYPE(*CHAR) LEN(5000) MIN(1) + > > EXPR(*YES) VARY(*YES) PROMPT('String with + > > unknown length') > > > > PARM KWD(LENGTH) TYPE(*DEC) LEN(4 0) RTNVAL(*YES) + > > PROMPT('String length . . . . . (4 0)') > > > > > > > > el error es: > > > > * CPD0281 700 30 RTNVAL(*YES) valid > only > > in CL programs or REXX procedures. > > * CPD0283 700 10 Default value of null > > pointer assumed. > > > > > > Cualquier ayuda es bienvenida, gracias > > > > Gerardo Santillana > > IT Department > > Delphi Mechatronic Systems > > US Ph: (956) 554.5832 > > MX Ph: (88) 12.81.63/64/65 Ext. 5832 > > e-mail [EMAIL PROTECTED] > > > > > > > > > > _____________________________________________________ > > 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, env�a el mensaje resultante de pulsar > > mailto:[EMAIL PROTECTED] > > _____________________________________________________ > 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, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED] > > _____________________________________________________ > 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, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED] _____________________________________________________ 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, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
