Message box

Use UIM API QUILNGTX to display a message in a window. Create a command "wrapper" to make it easier to use in CL...

programs.


Here's a sample CL call:

CALL PGM(QUILNGTX) PARM(
'Hello, world!' 
X'0000000D' 
'       ' 
'                    ' 
X'00000000')


Here's the command source:

/* CRTCMD CMD(MSGBOX) PGM(QUILNGTX) */ 
CMD        PROMPT('Message box')                       
PARM       KWD(MSG) TYPE(*CHAR) LEN(1024) MIN(1) +     
             PROMPT('Message')                         
PARM       KWD(MSGLEN) TYPE(*INT4) CONSTANT(1024)      
PARM       KWD(MSGID) TYPE(*CHAR) LEN(7) CONSTANT(' ') 
PARM       KWD(MSGF) TYPE(*CHAR) LEN(20) CONSTANT(' ') 
PARM       KWD(APIERR) TYPE(*INT4) CONSTANT(0)         

And an example of running the command:

MSGBOX MSG('Hello, world!')

This was last published in February 2001

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close