9 117 GET_MESSAGE_DESC

LANSA Technical

9.117 GET_MESSAGE_DESC

Þ Note: Built-In Function Rules.

Gets the description associated with a message number in a message file.

Normally the returned message details are then processed or printed by the RDML function.

For use with

LANSA for i

YES

Visual LANSA for Windows

YES

Visual LANSA for Linux

YES

 

 

Arguments

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

Message number

1

7

 

 

2

A

Req

Message file

1

10

 

 

3

A

Opt

Message file library

1

10

 

 

4

A

Opt

Message substitution value(s)
Multiple substitution values can be used. Substring values together to match message definition. For example, "Function &1 in &2 failed", with substitution values *CHAR7 and *CHAR10 provided. The second value must begin in position 8.

1

132

 

 

 

 

Return Values

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

Message description

1

132

 

 

 

 

Example

Execute a subroutine to print an error / exception report. The subroutine is passed an error message number.

DEFINE     FIELD(#ERRTXT) TYPE(*CHAR) LENGTH(132) 
           LABEL('Error :')
DEFINE     FIELD(#TEXT) TYPE(*CHAR) LENGTH(132)
DEFINE     FIELD(#MSGID) TYPE(*CHAR) LENGTH(7)
DEFINE     FIELD(#MSGT) TYPE(*CHAR) LENGTH(132)
DEF_LINE   NAME(#NAME)  FIELDS(#CUSTNO #ADDRESS1 #ADDRESS2 #ZIPCODE)
DEF_LINE   NAME(#ERROR) FIELDS(#ERRTXT) IDENTIFY(*LABEL)

  '  '  Some processing  '   '
  '  '                   '   '
INSERT     FIELDS(#NAME) TO_FILE(NAMES) VAL_ERROR(*NEXT)
IF_STATUS  IS_NOT(*OKAY)
PRINT      LINE(#NAME)
CHANGE     FIELD(#TEXT) TO('xxxxxxx')
EXECUTE    SUBROUTINE(ERRPRT) WITH_PARMS(ERR0003 #TEXT)
ENDIF
  '  '  More processing  '   '
  '  '                   '   '

SUBROUTINE NAME(ERRPRT) PARMS(#MSGID)
USE        BUILTIN(GET_MESSAGE_DESC) WITH_ARGS(#MSGID #ERRFILE
           '''*LIBL''' #TEXT) TO_GET(#MSGT)
PRINT      LINE(#ERROR)

ENDROUTINE