Converting to upper case

XLATE allows you to specify a start position.

    D UP              C
CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
    D LO              C
CONST('abcdefghijklmnopqrstuvwxyz')

     *    Convert to all uppercase
    C        LO:UP      XLATE(P)  DESCP         DESCP

     *    Convert to all lowercase except 1st position
    C        UP:LO      XLATE(P)  DESCP:2       DESCP

HTH,
Peter Dow

[report a broken link by clicking here]