Code: Select all
Equate TransformName To "rtnXmlChange"
VarCount = DCount(InitialValue,',')
For i=1 To 2
GoTo Read
Next i
Read:
OpenSeq SourceFile To SrcFileVar
On Error Call DSLogFatal('Error ' , TransformName )
Locked Call DSLogFatal('Locked ' , TransformName )
Else Call DSLogFatal('Cannot open ' , TransformName )
Loop
While ReadSeq Record From SrcFileVar
NewData=NewData: Char(10) :Record
Repeat
CloseSeq SrcFileVar
Return
Ans = New_Data
Compiling: Source = 'DSU_BP/DSU.rtnXmlChange', Object = 'DSU_BP.O/DSU.rtnXmlChange'
******?
0054 Return
^
WARNING: no RETURN value specified, null used.
0069 Return
^
WARNING: no RETURN value specified, null used.
Compilation Complete.
I would be happy if you can respond to this as soon as possible.
Thanks in advance