Lower case an entire source member

[jamief]

Just because you can

     FQPRCSRC   uf   e             Disk    Extfile(FileName) ExtMbr(MemberName)
     f                                     usropn rename(QPRCSRC:NewFormat)
     Ã?*
     Ã?* Entry Plist
     Ã?*
     d LOWER           pr
     d  InFile                       10
     d  InMember                     10
      *
     d LOWER           pi
     d  InFile                       10
     d  InMember                     10
     Ã?*
     Ã?* Program Info
     Ã?*
     d                SDS
     d  @PGM                 001    010
     d  @PARMS               037    039  0
     d  @MSGID                40     46
     d  @MSGDTA               91    170
     d  @JOB                 244    253
     d  @USER                254    263
     d  @JOB#                264    269  0
     Ã?*
     Ã?*  Field Definitions.
     Ã?*
     d FileName        S             10
     d Lo              c                   CONST('abcdefghijklmnopqrstuvwxyz')
     d MemberName      S             10
     d Up              c                   CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
     Ã?*
       //Ã?*-----------------------------------------------
       //Ã?*           M A I N      L I N E
       //Ã?*-----------------------------------------------
      /free

             filename = Infile;
             membername = InMember;

             if  not%open(QPRCSRC);
               open QPRCSRC;
             endif;


             setll *start  Qprcsrc;
             read Qprcsrc;

             dow not%eof(Qprcsrc);
               srcdta = %xlate(up:lo:srcdta);
               update Newformat;
               read Qprcsrc;
             enddo;

             *inlr = *On;
      /End-free