22 lines
332 B
Plaintext
22 lines
332 B
Plaintext
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
|