added LSL2 stored procedures
This commit is contained in:
11
LSL2/STPROC/DET_TABLE_SUFF.txt
Normal file
11
LSL2/STPROC/DET_TABLE_SUFF.txt
Normal file
@ -0,0 +1,11 @@
|
||||
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, '' )
|
||||
|
||||
|
Reference in New Issue
Block a user