Converts lowercase letters to uppercase letters.

-= -=
H dftactgrp (* No) option (* srcstmt: * nodebugio)
*-=- =-=
* Program name:
* Description:
* Date written:
* Modification:
*~~~~~~
*
*
*
*-=- =-=
Finbox if e k disk prefix (X)
*
*-=- =-=
*
* Program information
*~~~~~~~~~~
D @ pgminfo SDS
D @ pgmnam 1 10
D @ parms 37 39 0
D @ msgid 40 46
D @ msgdta 91 170.
D @ jobnam 244 253
D @ userid 254 263
D @ jobnum 264 269 0
*
* Constants
*~~~~~
D uppercase C 'abcdefghijklmnopqrstuvwxy'
D lowercase C 'abcdefghijklmnopqrstuvwxy'
*
* Define variables
*~~~~~~~~
D xmlfield S 1000 INZ (* blanks)
*
*-=- =-=
* M a I n l I n e
*-=- =-=
*
C eval * inlr = * on
C Return
*-=- =-=
*
*-=- =-=
C * inzsr begsr
*
C read inbox
C Dow not % EOF (inbox)
*
C eval xmlfield = % Xlate (lowercase: uppercase:
C % trim (xsrcdta ))
*
C read inbox
C enddo
*
C ENDSR