added LSL2 stored procedures
This commit is contained in:
21
LSL2/STPROC/PSTEST.txt
Normal file
21
LSL2/STPROC/PSTEST.txt
Normal file
@ -0,0 +1,21 @@
|
||||
compile Subroutine PSTEST(void)
|
||||
|
||||
|
||||
Val1 = Oconv(Oconv(1.0E+20, "MS21"), "MS21")
|
||||
Val2 = Oconv(1.5E20, "MS21")
|
||||
Val3 = Iconv("2.0E+20", "MS")
|
||||
|
||||
debug
|
||||
|
||||
return
|
||||
|
||||
* call Set_MFS("WO_MAST_SCHED", "SQL_MFS*LSL2", 1)
|
||||
* If Get_Status(ErrorCodes) then
|
||||
* Debug
|
||||
* end
|
||||
|
||||
Dim Rec(53)
|
||||
A = Rec(1)
|
||||
B = Rec(UnassignedVar$)
|
||||
|
||||
return
|
Reference in New Issue
Block a user