Booth Martin; Contract Programming, Inc.
28 Delmont Avenue
Barre, Vermont 05641
802-476-7942
boothm@ibm.net

Screen shot of xlate program
An RPG program to demonstrate a technique to translate upper/lower case text


The RPG code: 
      * ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      * : PROGRAM PROPERTY OF:                                       :
      * :     DATE      PROGRAMMER          ACTION                   :
      * :      4/98     Booth Martin        Create program           :     
      * :............................................................:
      * :     TO TRANSLATE LOWER TO UPPER CASE.                      :
      * :............................................................:
     FXLATEFM CF  E                    WORKSTN
     I*
     I              'ABCDEFGHIJKLMNOPQRST-C         UP
     I              'UVWXYZ '
     I              'abcdefghijklmnopqrst-C         LO
     I              'uvwxyz,'
      *  ..  ..  ..  ..  ..  ..  ..  ..  ..
      * raise lower case names to UPPER CASE.
     C           *INKC     DOWEQ*OFF
     C                     EXFMTFMT01
     C           LO:UP     XLATEFIELD1    FIELD2
     C                     END
     C*  ..  ..  ..  ..  ..  ..  ..  ..  ..
     C                     SETON                     LR



The DDS code: 

     A*%%TS  SD  19980423  201902  BOOTH       REL-V3R7M0  5716-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CHGINPDFT(HI UL LC)
     A                                      CSRINPONLY
     A*
     A          R FMT01
     A*%%TS  SD  19980423  201902  BOOTH       REL-V3R7M0  5716-PW1
     A                                      TEXT('XLATE TEXT')
     A                                      CA03(03 'EXIT')
     A                                      BLINK
     A                                      OVERLAY
     A                                  1 23'Translating a field    '        
     A                                  1 66'Date:'
     A                                  1 72DATE
     A                                      EDTCDE(Y)
     A                                      COLOR(WHT)
     A                                  2  4'(FMT01)   '
     A                                  2 66'Time:'
     A                                  2 72TIME
     A                                      COLOR(WHT)
     A                                  4 29'Translate a field:'
     A                                      COLOR(WHT)
     A                                  7  5'Text to be translated:'
     A            FIELD1        30A  B  7 29
     A            FIELD2        30A  O  9 29
     A                                 16 29'F3=exit'
     A                                      COLOR(BLU)
     A  41                              8 33'Can''t leave field blank'
     A                                      COLOR(RED)
     A                                  9  5'Text as translated   :'


For comments or questions, leave e-mail
A series of code for FTP of AS/400 files.
A date verification/formatting program
Review a sample of my coding work
Return to my home page
Top of page