6.3.1 VB Example

Call program PROG001, passing a 4 character alpha parameter and receiving back an 80 character parameter.

     Sub cmdCall_Click ()
         Dim Prog as String
         Dim Value as String
         Prog$ = "PROG001"
         Value$ = Text1.Text
    
         ' Define the parameters to pass
         Ret% = Lce3GLDefineParameter(SessId%, 0, 0, "P", "A", 4, 0, Value$)
         Ret% = Lce3GLDefineParameter(SessId%, 1, 0, "R", "A", 80, 0, RetData$)
    
         ' Call the 3GL program
         Ret% = Lce3GLCall(SessId%, Prog$, "*LIBL", 1)
    
         ' Retrieve the parameter returned from the 3GL program
         RetData$ = String(256, 0)
         Ret% = Lce3GLGetValue(SessId%, 1, 0, RetData$)
         Label2.Caption = RetData$
     End Sub