Project

General

Profile

SvlTest.java

Greg Shah, 07/10/2019 04:13 PM

Download (781 Bytes)

 
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
}