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