AS/400 HELP
"POPMSG"
Show a Popup Message
POPMSG Uses API QUILNGTX to show a popup message on
the screen. (see NOTES below)
POPMSG uses 1
parameter to retrieve a message from file POPMSGS. Up to 12 lines can be shown
in the popup window (6 lines x 2 x 68 characters) DFU is needed to enter and maintain the messages.
In your RPG
program add the lines
C CALL
‘POPMSG’
C PARM
‘POP0001’ POPNNNN 7
Or as a module
D POPMSG PR
D POPMSGID 7 CONST
C CALLP POPMSG(‘POPNNNN’)
(POPNNNN = the requested
message to send)
POPMSG was
developed at Vr4.5 and compiled down to
Vr4.2
PC INSTRUCTIONS:
Download "POPMSG” to your PC.
Go to a DOS session and enter the following;
FTP SYSTEM (system = your AS/400’s name
or IP address)
Enter a valid user id and password
CD QGPL
LCD C:\DIRECTORY (directory= the directory on your pc where you
downloaded “ popmsg.savf”
QUOTE
SITE NAMEFMT 1
BIN
PUT
POPMSG.SAVF
QUOTE RCMD
RSTLIB SAVLIB(POPMSG) DEV(*SAVF) SAVF(QGPL/POPMS)
Note: If there is a security problem restoring all
objects with the command above, sign on
to your as/400 as Qsecofr and run RSTLIB
from the command line.
AS/400
INSTRUCTIONS:
ADDLIBLE POPMSG
To test,,,,,, CALL POPMSG POP0001
NOTE(s)
In order for
POPMSG to work the program POPMSG and file POPMSGS must be in the library list
of the programs that use it. Either add
POPMSG permanently to your system library list (QSYSLIBL) or add both to a production library
QUILNGTX can be
used by itself to show a line of text or a message from a message file. You may
want to use it instead of POPMSG or modify POPMSG to suit your needs.
POPMSG can be
used to provide HELP screens in your applications. Each field can be mapped to
a record in POPMSGS.
A message was put in POPMSGF as an example
(POP0001) What you enter may not show up in the message as it appears
in the DFU screen as QUILNGTX formats the data in 68 character lines.
Increase the
size of POPMSGS as needed. The popup window will automatically allow
the user to scroll down.