PGM PARM(&PLA)
DCL VAR(&PLA) TYPE(*CHAR) LEN(2)
Saludos,
Javier Mora
De: [email protected]
[mailto:[email protected]] En nombre de Juan Gutierrez
Ruiz
Enviado el: miércoles, 26 de abril de 2017 21:55
Para: forum.help400
CC: Raul Gallo; [email protected]
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.
