While searching the ResourceLibrary topics list for message handling ideas for the AS/400, I came across several conversations on this subject which had been taken from the BBS. Someone was trying to figure out how to display a message on the screen in an interactive program in a way similar to the method of using message members on the S/36. He was given many suggestions, but none of them included the use of the IBM-supplied subroutine SUBR23R3 - Message Retrieval Subroutine. This routine is used in conjunction with message files. First you create the message file (CRTMSGF); then create your messages (ADDMSGD); then on an error in your RPG/400 program you simply tell SUBR23R3 which message to retrieve by calling the subroutine with the required parameters.
After creating your message file using USR9999 (9999 = any 4 digit ID number) for your MSGID codes, use OVRMSGF in your CL to use your own message file instead of the default QUSERMSG. (You could also add your message to QUSERMSG and eliminate this step, but I prefer to keep my messages separate.)
OVRMSGF MSGF(QUSERMSG) +
TOMSGF(library/msgfile name)
There are five parameters which you must pass to the subroutine from your RPG/400 program. For more information on these parameters, see the section on Calling Special Subroutines in Chapter 10 of the RPG/400 User's Guide.
MSGID:
4-digit numeric field which will be prefixed with 'USR' and used to
retrieve your message (similar to MIC).
Text Area:
Name of the alpha field where the message text will be placed (I used
the same name as an output-only field on the screen conditioned by my
error indicator
Level:
1-byte numeric field that designates message level. Level 1 for this
example - message text is less than 132 characters.
Return code:
1-byte number field that will contain the return code from the call to
SUBR23R3
Text Length:
4-byte number field that contains the length of the message text.
RPG/400 Example:
In the first cycle routine in your program, initialize the parm values.
Z-ADD0 MSG# 40
MOVE *BLANKS MSGTXT 75
Z-ADD1 LVL 10
Z-ADD0 RTNCD 10
Z-ADD75 TXTLEN 40
When an error is encountered on the screen, just load MSG# with the MIC you
want to retrieve from the message file and call the subroutine.
ERROR IFEQ 'Y'
Z-ADD0001 MSG#
CALL 'SUBR23R3'
PARM MSG#
PARM MSGTXT
PARM LVL
PARM RTNCD
PARM TXTLEN
END
MSGTXT now contains the message text retrieved from message USR0001 in the specified message file.
Laura Collins-Sultani Virginia Beach, Virginia
More than ever, there is a demand for IT to deliver innovation. Your IBM i has been an essential part of your business operations for years. However, your organization may struggle to maintain the current system and implement new projects. The thousands of customers we've worked with and surveyed state that expectations regarding the digital footprint and vision of the company are not aligned with the current IT environment.
TRY the one package that solves all your document design and printing challenges on all your platforms. Produce bar code labels, electronic forms, ad hoc reports, and RFID tags – without programming! MarkMagic is the only document design and print solution that combines report writing, WYSIWYG label and forms design, and conditional printing in one integrated product. Make sure your data survives when catastrophe hits. Request your trial now! Request Now.
Forms of ransomware has been around for over 30 years, and with more and more organizations suffering attacks each year, it continues to endure. What has made ransomware such a durable threat and what is the best way to combat it? In order to prevent ransomware, organizations must first understand how it works.
Disaster protection is vital to every business. Yet, it often consists of patched together procedures that are prone to error. From automatic backups to data encryption to media management, Robot automates the routine (yet often complex) tasks of iSeries backup and recovery, saving you time and money and making the process safer and more reliable. Automate your backups with the Robot Backup and Recovery Solution. Key features include:
Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.
IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn:
LATEST COMMENTS
MC Press Online