Sign in or 
Share this
Read Messages
Reads through the messages generated by the system and/or previous functions. The with_args(Y) option of the GET_MESSAGE BIF removes the messages from the message list.
* =======================================================
* Subroutine : GetMsg
* Description : Capture validation errors
* =======================================================
SUBROUTINE NAME(GETMSG)
DEFINE FIELD(#ERRTXT) TYPE(*CHAR) LENGTH(100)
USE BUILTIN(GET_MESSAGE) WITH_ARGS(Y) TO_GET(#RETCODE #ERRTXT #MESGID)
DOWHILE COND('#RETCODE = OK')
MESSAGE MSGID(DCM9897) MSGF(DC@M01)
USE BUILTIN(GET_MESSAGE) WITH_ARGS(Y) TO_GET(#RETCODE #ERRTXT #MESGID)
UPRINT FIELDS(#ERRTXT)
ENDWHILE
ENDROUTINE
* =======================================================
* Subroutine : GetMsg
* Description : Capture validation errors
* =======================================================
SUBROUTINE NAME(GETMSG)
DEFINE FIELD(#ERRTXT) TYPE(*CHAR) LENGTH(100)
USE BUILTIN(GET_MESSAGE) WITH_ARGS(Y) TO_GET(#RETCODE #ERRTXT #MESGID)
DOWHILE COND('#RETCODE = OK')
MESSAGE MSGID(DCM9897) MSGF(DC@M01)
USE BUILTIN(GET_MESSAGE) WITH_ARGS(Y) TO_GET(#RETCODE #ERRTXT #MESGID)
UPRINT FIELDS(#ERRTXT)
ENDWHILE
ENDROUTINE
petewood |
Latest page update: made by petewood
, Apr 13 2009, 1:28 PM EDT
(about this update
About This Update
Edited by petewood
1 word added 1 word deleted view changes - complete history) |
|
More Info: links to this page
|
There are no threads for this page.
Be the first to start a new thread.
