Code:
D Up C 'ABCDEFGHIJKLMNOPQRS- D 'TUVWXYZ' D Lo C 'abcdefghijklmnopqrs- 'tuvwxyz' C MOVE 'rpg dept' String 8 C Lo:Up XLATE String Result
and Why??
regards,
SWARUP
D ABC C 'SNGRATE' D XYZ C [EMAIL="'SRBPEU@'"]'SRBPEU@'[/EMAIL] C MOVE 'STRANGE' String 7 C ABC:XYZ XLATE String Result 7 * display the value of field 'RESULT' to the screen C RESULT DSPLY * end this silly little thing C eval *inlr = *on
Comment