Any help would be appreciated.
Code: Select all
FUNCTION dukWriteFile(fileName,dynArray,delim)
DEFFUN dukOpenFile(fileName, OpenMode, WriteMode, Logging) CALLING "DSU.dukOpenFile"
LF=char(10)
myName="dukWriteFile"
$INCLUDE UNIVERSE.INCLUDE FILEINFO.H
$UNDEFINE TESTING
ErrorCode = 0
ReadCount = 0
LineCount = 0
SeparatorCount = 0
if delim = "" then del=@FM else del=delim
Call DSLogInfo("file=":fileName, myName)
hTarget = dukOpenFile(fileName, "W", "O", "Y")
numlin=DCOUNT(dynArray, del)
For LinePtr = 1 to numlin
Line = dynArray<LinePtr> : LF
WriteSeq Line To hTarget else stop
Next LinePtr
CloseSeq hTarget
$IFDEF TESTING
Message = "Rows read by routine = " : RowCount
Message<-1> = "Separators found = " : SeparatorCount
Message<-1> = "Lines written by routine = " : LineCount
Message<-1> = "Number of output files = " : Counter
Call DSLogInfo(Message, "Testing ManyOutputFiles routine")
$ENDIF
Ans=ErrorCode
Compiling: Source = 'DSU_BP/DSU.dukWriteFile', Object = 'DSU_BP.O/DSU.dukWriteFile'
**************
0022 WriteSeq Line To hTarget else stop
^
' ' unexpected, Was expecting: FOR control (WHILE/UNTIL/NEXT) or statement,
"GETX", "PRINTERRX", "TRANSACTION", "SETIT", "SEND", "UPRINT",
"AUXMAP"
WARNING: Variable 'Line' never assigned a value.
1 Errors detected, No Object Code Produced.