Specifications

29/201
' LogFile Log file name
'output JobNo Received job No.
'return value TRUE Completion of sending
' FALSE Cancel or error occurrence
Dim rc As Integer
Dim rc0 As Integer
'Declaring return value of BscDciGetPos.
ReDim axis6(5) As Double
Dim datatype As Integer
Dim RConf As Integer
rc = False
rc0 = -1
'Request for receiving is repeated until Cancel button is pressed (F_QUIT flag becomes true) or
work No. is received.
Do While Not F_QUIT
rc0 = BscDCIGetPos(nCid, datatype, RConf, axis6(0))
If rc0 >= 0 Then Exit Do 'Work No. received.
Loop
If Not F_QUIT Then
If datatype <= 2 Then 'Only byte or integer type accepted.
'Received work No. set.
JobNo = axis6(0)
rc = True
Else
DispLogMsg
lst, "Unexpected data type received. (" + Str$(datatype) + ")", LogFile
End If
Else
DispLogMsg
lst, "Canceled.", ""
End If
DciGetJobNo = rc
End Function
Note: Double underline
indicates transmission functions belonging to the MOTOCOM-H, single
underline indicates functions of which program lists are described below, and dotted underline
indicates the functions which are described below.
Function DciLoadSave
Function DciLoadSave (nCid As Integer, lst As Control, LogFile As String) As Integer
'input nCid Communication handler
' lst List name for message output
' LogFile Log file name
'output None
'return value TRUE Completion of sending
' FALSE Cancel or error occurrence
Dim rc As Integer
Dim rc0 As Integer
rc = False
'Repeated until Cancel button is pressed (F_QUIT flag becomes true) or sending is completed.
Do While Not F_QUIT
rc0 = BscDCILoadSave(nCid, 1)
If rc0 > 0 Then 'Sending completed.
rc = True
Exit Do
ElseIf rc0 = 0 Then 'No request for receiving from YASNAC. Waiting for request for
receiving again