|
|
The RPG to translate a field's characters to some other character
* ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
* : PROGRAM PROPERTY OF: :
* : DATE PROGRAMMER ACTION :
* : 4/98 Booth Martin Create program :
* :............................................................:
* : TO TRANSLATE LOWER TO UPPER CASE. :
* :............................................................:
FXLATEFM CF E WORKSTN
D*
D UP C CONST('ABCDEFGHIJKLMNOPQRST-
D UVWXYZ ')
D LO C CONST('abcdefghijklmnopqrst-
D uvwxyz,')
* .. .. .. .. .. .. .. .. ..
* raise lower case A/R names to UPPER CASE.
C *INKC DOWEQ *OFF
C EXFMT FMT01
C LO:UP XLATE FIELD1 FIELD2
C END
C* .. .. .. .. .. .. .. .. ..
C SETON LR
|
The DDS for the Translate Characters display screen
A*%%TS SD 20000703 151812 BOOTH REL-V4R4M0 5769-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 :'
|
|
|
|
|
