Changing Font from Upper to Lower Case

DMIS Intrinsic Functions

Add 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