d up C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
d lo C 'abcdefghijklmnopqrstuvwxyz'
d case S 100A
c *entry plist
c parm case
/FREE
case = %xlate(lo:up:case);
/END-FREE
Leave a comment