The LANSA RDML is quite good at string handling. When this is combined with the flexibility of true subroutine parameters, a very simple method of assembling, (and in this case printing), text strings results.
Consider the following subroutine:
SUBROUTINE NAME(PRINT_TEXT) PARMS(#S01 #S02 #S03 #S04 #S05)
DEFINE FIELD(#S01) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#S02) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#S03) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#S04) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#S05) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#R01) TYPE(*CHAR) LENGTH(132)
DEF_LINE NAME(#R01L) FIELDS(#R01)
USE BUILTIN(BCONCAT) WITH_ARGS(#S01 #S02 #S03 #S04 #S05)
TO_GET(#R01)
PRINT LINE(#R01L)
ENDROUTINE
This subroutine can be used like this:
EXECUTE PRINT_TEXT('''Product''' +
#PRODNO +
'''is out of stock. Please contact'''
#SUPPLIER +
'''to order more.''')
to print:
Product 836 is out of stock. Please contact ACME ENGINEERING to order more.
Or like this:
EXECUTE PRINT_TEXT('''Your departmental supervisor''' +
#TITLE +
#NAME +
'''should be informed of this error''' +
*BLANKS)
to print:
Your departmental supervisor Ms Cullen should be informed of this error.
