PGM PARM(&PLA) DCL VAR(&PLA) TYPE(*CHAR) LEN(2) Saludos,
Javier Mora De: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan Gutierrez Ruiz Enviado el: miércoles, 26 de abril de 2017 21:55 Para: forum.help400 CC: Raul Gallo; manuelhmor...@gmail.com Asunto: Cracion de un comado con 1 parametro hola Forum estoy haciendo un comando para llamar a un programa cl y el cl a un RPG pero tengo mucho que no hacia uno como hago para que el comando me pida el parámetro plantel me falta algo al crearlo ?? me pueden echar una manita gracias este es mi comando Opc Miembro Tipo Texto CMDPREAB CMD comando para llamar al cl preabierto CMD PROMPT('Plantel') ALLOW(*INTERACT) PARM KWD(PLA) TYPE(*CHAR) LEN(2) PROMPT('Plantel') ==================================================================================== Opc Miembro Tipo Texto PRECABIER CLLE ejecuta desde el movil el precio abierto PGM DCL VAR(&PLA) TYPE(*CHAR) LEN(2) MONMSG MSGID(CPF9999) MONMSG MSGID(CPF0000) CALL PGM(DAPREABI) ENDPGM ========================================================================= Crear mandato (CRTCMD) Teclee elecciones, pulse Intro. Mandato . . . . . . . . . . . . CMD > CMDPREAB Biblioteca . . . . . . . . . . > QGPL Programa para procesar mandato PGM > PRECABIER Biblioteca . . . . . . . . . . > QGPL Archivo fuente . . . . . . . . . SRCFILE QCMDSRC Biblioteca . . . . . . . . . . *LIBL Miembro fuente . . . . . . . . . SRCMBR *CMD Seguro en ejecución multihebra THDSAFE *NO Acción de trabajo multihebra . . MLTTHDACN *SYSVAL Texto descriptivo . . . . . . . TEXT *SRCMBRTXT Parámetros adicionales Programa comprobación validez . VLDCKR *NONE Biblioteca . . . . . . . . . . Más...
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.