Mudando a fonte de maiúscula para minúscula

DMIS Intrinsic Functions

From 3.6 it has been implemented the Standard DMIS Intrinsic functions to convert to Lower and Upper case the strings to be sent to output or written to a file.
The functions are per the standard as per the following example:

DECL/CHAR,100,ORIGINAL,UPPER_CASE,LOWER_CASE,TMP
ORIGINAL=ASSIGN/'This is Upper AND Lower CASE'
UPPER_CASE=ASSIGN/UPC(ORIGINAL)
LOWER_CASE=ASSIGN/LWC(ORIGINAL)

V(TEXT)=VFORM/ALL
DISPLY/TERM,V(TEXT)
TMP=ASSIGN/CONCAT('This is the original: ',ORIGINAL)
TEXT/OUTFIL,TMP
TEXT/OUTFIL,' '
TMP=ASSIGN/CONCAT('This is the UPPER CASE version: ',UPPER_CASE)
TEXT/OUTFIL,TMP
TEXT/OUTFIL,' '
TMP=ASSIGN/CONCAT('This is the lower case version: ',LOWER_CASE)
TEXT/OUTFIL,TMP
TEXT/OUTFIL,' '
DISPLY/OFF