12 lines
289 B
Plaintext
12 lines
289 B
Plaintext
compile function det_table_suff()
|
|
* determines the table suffix i.e. srl
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
declare function entid, repository
|
|
TableSuffPopup = entid( @appid<1>, 'POPUP', '', 'DET_TABLE_SUFF' )
|
|
return repository( 'EXECUTE', TableSuffPopup, @window, '' )
|
|
|
|
|