SvlTest.java
1 |
package com.goldencode.testcases; |
---|---|
2 |
|
3 |
import com.goldencode.p2j.util.*; |
4 |
import com.goldencode.p2j.persist.*; |
5 |
import com.goldencode.p2j.ui.*; |
6 |
|
7 |
import static com.goldencode.p2j.util.BlockManager.*; |
8 |
import static com.goldencode.p2j.ui.LogicalTerminal.*; |
9 |
|
10 |
/**
|
11 |
* Business logic (converted to Java from the 4GL source code
|
12 |
* in svl-test.p).
|
13 |
*/
|
14 |
public class SvlTest |
15 |
{ |
16 |
/**
|
17 |
* External procedure (converted to Java from the 4GL source code
|
18 |
* in svl-test.p).
|
19 |
*/
|
20 |
public void execute(final TableParameter _tableHandle1) |
21 |
{ |
22 |
handle tableHandle1 = new handle();
|
23 |
|
24 |
externalProcedure(SvlTest.this, new Block((Body) () ->
|
25 |
{ |
26 |
TemporaryBuffer.createDynamicTable(_tableHandle1, tableHandle1, true, false); |
27 |
message("test1");
|
28 |
})); |
29 |
} |
30 |
} |