Visual Basic developers can design their own forms to call the above alias functions. Here is an example of code:
Option Explicit
Private Sub ExitBut_Click()
End
End Sub
Private Sub INBOUNDRunCmdBut_Click(
)'call INBOUNDRunCmd () in owrm32c.dll
Dim ret As Integer
Dim inString As String
’user’s mapping commandline
inString = "c:\maps\MapTestings\850in\s-850.x12 -dt
c:\maps\MapTestings\850in -dg c:\maps\MapTestings\850in -du c:\maps\MapTestings\850in -eo c:\maps\MapTestings\850in\850udf.txt -b -z -l -it -c"
ret = inBound(inString)
MsgBox " The return value is " & ret
End Sub
Private Sub OUTBOUNDRunCmdBut_Click()
Dim ret As Integer
Dim outString As String
‘user’s mapping commandline
outString = "c:\maps\MapTestings\850out\850o.x12
850OUT XX -t 850 -dt c:\maps\MapTestings\850out -dg
c:\maps\MapTestings\850out -du
c:\maps\MapTestings\850out -ei
c:\maps\MapTestings\850out\s-850.udf -z -it -l"
ret = outBound(outString)
MsgBox "The return value is " & ret
End Sub
Private Sub OUTRUNBut_Click()
Dim ret As Integer 'return value from INRUN/OUTRUN
Dim memBuf_in As String 'input buffer
Dim memBytes_in As Long 'size of input buffer
Dim memBuflen_in As Long 'length of input buffer
Dim memBuf_out As String 'output buffer
Dim memBytes_out As Long '0
Dim memBuflen_out As Long 'size of buffer
Dim myStruct_in As MEMIOSTRUCT 'input memiostruct
Dim myStruct_out As MEMIOSTRUCT 'output memiostruct
Dim map_switches As String
'open a file and load data into input buffer (memory)
Dim myfile_in As String 'for test purpose
Dim myfile_out As String 'for test purpose
memBuf_in = String(1000, vbNullChar)
‘input disk file
myfile_in = "L:\WINDOWS\dbase\t850out\ver221\normal.x12"
Open myfile_in For Input As #1
memBuf_in = Input(LOF(1), #1)
memBytes_in = Len(memBuf_in)
memBuflen_in = 1000
Close #1
myStruct_in.filename = myfile_in
myStruct_in.paddr = memBuf_in
myStruct_in.pbuflen = memBuflen_in
myStruct_in.pbytes = memBytes_in
'define output buffer and enough buffer size
'rtp engine will reallocate memory space and it is illegal in VB
‘out put disk file
myfile_out = "I:\TEST\850BP\DATA\PO_HEADI.SEQ"
memBuflen_out = 2000 'define 2000 here
memBuf_out = String(2000, vbNullChar) 'clear string
memBytes_out = 0 'no appending
myStruct_out.filename = myfile_out
myStruct_out.paddr = memBuf_out
myStruct_out.pbuflen = memBuflen_out
myStruct_out.pbytes = memBytes_out
'set map switches
map_switches = String(255, vbNullChar)
‘user’s mapping commandline
map_switches = "L:\WINDOWS\dbase\t850in\ver221\normal.x12 -dg
L:\WINDOWS\dbase\t850in\ver221 -dt
L:\WINDOWS\dbase\t850in\ver221 -n -it -o -w -l -b -wx
0 -du L:\WINDOWS\dbase\t850in\ver221"
'call vb_OUTRUN() in rtpdll.dll
ret = vb_OUTRUN(map_switches, myStruct_in,
myStruct_out)
MsgBox "The return value is " & ret
Dim final_out As String
'output
final_out =
"L:\WINDOWS\dbase\t850in\ver221\PO_HEADI.SEQ"
Open final_out For Binary As #2
Put #2, , myStruct_out.paddr
Close #2
End Sub
Private Sub INRUN1_Click()
Dim ret As Integer 'return value from
INRUN/OUTRUN
Dim memBuf_in As String 'input buffer
Dim memBytes_in As Long 'size of input buffer
Dim memBuflen_in As Long 'length of input buffer
Dim memBuf_out As String 'output buffer
Dim memBytes_out As Long 'size of data already in buffer
Dim memBuflen_out As Long 'size of output buffer
Dim myStruct_in As MEMIOSTRUCT 'input struct
Dim myStruct_out As MEMIOSTRUCT 'output struct
Dim map_switches As String
Dim myfile_in As String 'test purpose
Dim myfile_out As String 'test purpose
Dim final_out As String 'test purpose
'open a file and load all data into memory
memBuf_in = String(1000, vbNullChar)
myfile_in = "L:\WINDOWS\dbase\t850in\ver221\normal.x12"
Open myfile_in For Input As #1
memBuf_in = Input(LOF(1), #1)
memBytes_in = Len(memBuf_in)
memBuflen_in = 1000
Close #1
myStruct_in.filename = myfile_in
myStruct_in.paddr = memBuf_in
myStruct_in.pbuflen = memBuflen_in
myStruct_in.pbytes = memBytes_in
'output buffer myfile_out = "I:\TEST\850BP\DATA\PO_HEADI.SEQ"
memBuflen_out = 2000
memBuf_out = String(2000, vbNullChar)
memBytes_out = 0
myStruct_out.filename = myfile_out
myStruct_out.paddr = memBuf_out
myStruct_out.pbuflen = memBuflen_out
myStruct_out.pbytes = memBytes_out
map_switches = String(255, vbNullChar)
‘user’s mapping commandline
map_switches = "L:\WINDOWS\dbase\t850in\ver221\normal.x12 -dg L:\WINDOWS\dbase\t850in\ver221 -dt L:\WINDOWS\dbase\t850in\ver221 -du L:\WINDOWS\dbase\t850in\ver221 -n -it -o -w -l -b -wx 0 "
'call vb_OUTRUN() in rtpdll.dll
ret = vb_INRUN(map_switches, myStruct_in, myStruct_out)
MsgBox "The return value is " & ret
final_out = "L:\WINDOWS\dbase\t850in\ver221\PO_HEADI.SEQ"
Open final_out For Binary As #2
Put #2, , myStruct_out.paddr
Close #2
End Sub
