Gold Fish 2/goldfish_vol2_cd1.bin/files/biz/dbase/db/examples/arexxdemos/expand.db

Text File | 1994-09-02 | 241b | 10 lines

/* Rexxprogram for db that expands some shortcuts  */
Options Results
GETFIELD
select
    when result = '1' then PUTFIELD 'First'
    when result = '2' then PUTFIELD 'Second'
    when result = '3' then PUTFIELD 'Third'
    otherwise PUTFIELD result
end