32 lines
889 B
Plaintext
32 lines
889 B
Plaintext
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
|