|
UCASE CSECT
|
|
USING UCASE,R15
|
|
MVC UC,PG
|
|
MVC LC,PG
|
|
OC UC,=16C' ' or X'40' uppercase
|
|
NC LC,=16X'BF' and X'BF' 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)
|
|
YREGS
|
|
END UCASE
|