*=====================================================================
* Message Procedures
*
* Copyright (C) Julian Monypenny 1997
*=====================================================================
H NoMain
*---------------------------------------------------------------------
* Global definitions
*---------------------------------------------------------------------
/Copy ToolkitCpy,ApiErrH
/Copy ToolkitCpy,MsgH
/Copy ToolkitCpy,StdTypH
*=====================================================================
P GetMsgDsc B Export
*=====================================================================
D Pi Like( LglTyp )
D MsgFil Like( NamTyp ) Value
D MsgLib Like( NamTyp ) Value
D MsgId Like( MsgIdTyp ) Value
D MsgDsc Like( MsgDscDs )
D MsgTxt_O Like( StrTyp ) Value
D Options( *NoPass )
D QMsgFil S Like( QNamTyp )
D CtlChr S Like( NamTyp ) Inz( '*YES' )
D DscFmt S Like( ApiFmtTyp )
D Inz( 'RTVM0100' )
D SubChr S Like( NamTyp ) Inz( '*YES' )
D MsgTxt S Like( StrTyp )
D MsgTxtLen S Like( IntTyp )
C Reset ApiErrDs
C Reset MsgDscDs
C Eval QMsgFil = MsgFil + MsgLib
C Eval MsgDscSiz = %Size( MsgDscDs )
C If %Parms < 4
C Eval MsgTxt = *Blank
C Eval MsgTxtLen = 0
C Else
C Eval MsgTxt = MsgTxt_O
C Eval MsgTxtLen = %Size( MsgTxt )
|
| 
| 