UCASE    CSECT
         USING  UCASE,R15
         MVC    UC,PG
         MVC    LC,PG
         TR     UC,TABLEU          TR uppercase
         TR     LC,TABLEL          TR lowercase
         XPRNT  PG,L'PG            print original
         XPRNT  UC,L'UC            print uc
         XPRNT  LC,L'LC            print lc
         BR     R14
PG       DC     CL9'alphaBETA'
UC       DS     CL(L'PG)
LC       DS     CL(L'PG)
TABLEU   DC     256AL1(*-TABLEU)
         ORG    TABLEU+C'a'
         DC     C'ABCDEFGHI'
         ORG    TABLEU+C'j'
         DC     C'JKLMNOPQR'
         ORG    TABLEU+C's'
         DC     C'STUVWXYZ'
         ORG
TABLEL   DC     256AL1(*-TABLEL)
         ORG    TABLEL+C'A'
         DC     C'abcdefghi'
         ORG    TABLEL+C'J'
         DC     C'jklmnopqr'
         ORG    TABLEL+C'S'
         DC     C'stuvwxyz'
         ORG
         YREGS
         END    UCASE