RETURN AS UPPERCASE STRING

   ** Return the input string as an uppercase string .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0038 P ToUpper         B                   EXPORT .....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++++++++++ 0039 D ToUpper         PI          1024A 0040 D  InputStg                   1024A   Const Varying 0041 D RtnValue        S                   LIKE(InputStg) 0042 D lower           C                   Const('abcdefghijklmnopqrstuvwxyz') 0043 D upper           C                   Const('ABCDEFGHIJKLMNOPQRSTUVWXYZ') .....CSRn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq.... 0044 C     lower:UPPER   XLATE     INPUTSTG      RTNVALUE 0045 C                   Return    RtvValue .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0046 P ToUpper         E .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0047 P ToLower         B                   EXPORT .....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++++++++++ 0048 D ToLower         PI          1024A 0049 D  InputStg                   1024A   Const Varying 0050 D RtnValue        S                   LIKE(InputStg) 0051 D lower           C                   Const('abcdefghijklmnopqrstuvwxyz') 0052 D upper           C                   Const('ABCDEFGHIJKLMNOPQRSTUVWXYZ') .....CSRn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq.... 0053 C     UPPER:lower   XLATE     INPUTSTG      RTNVALUE 0054 C                   Return    RtvValue 0055 P ToLower         E 

Figure D.4: ZTOOLS example procedures— Return as Upper Case String.