|
SSUB
|
|
| SET VAR vtext = 'reports,yearend'
|
| SET VAR vssub = (SSUB(.vtext,2))
|
|
|
| SET VAR vtext = 'reports yearend'
|
| SET VAR vssub2 = (SSUB(.vtext,-2))
|
|
|
| CHOOSE vtwodim FROM twodim
|
| SET VARIABLE vbar = (SSUB(.vtwodim,1))
|
| SET VARIABLE vpull = (SSUB(.vtwodim,2))
|
| IF vbar = '1' THEN
|
| EDIT USING .vpull
|
| ELSE
|
| ENTER .vpull
|
| ENDIF
|