“将字体从大写更改为小写”的版本间的差异

2018年6月4日 (一) 12:51的最新版本

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