Figure 5: Testing the UPPERCASE and LOWERCASE commands

Pgm
Dcl        Var(&Char) Type(*Char) Len(50) +
             Value('Beckie N?)
UpperCase  String(&Char)
SndPgmMsg  Msg(&Char) ToPgmQ(*Ext)
LowerCase  String(&Char)
SndPgmMsg  Msg(&Char) ToPgmQ(*Ext)
EndPgm