DSXchange

I have a file TestFile.
It has 10 records in it.
Using WRITESEQ I want to append 10 more lines in the file TestFile.
How is this possible??

Search the forum for a routine called OpenSequentialFile. It covers all the possibilities.

Basically, you have to position to end-of-file using a Seek statement (or a loop of ReadSeq statements) before attempting a WriteSeq statement. This is managed within the OpenSequentialFile routine.

Thanks !!!
I tried the loop one.
I am getting the desired output with the following code:
$INCLUDE DSINCLUDE JOBCONTROL.H
$INCLUDE DSINCLUDE DSR_UVCONST.H
$INCLUDE DSINCLUDE DSR_COMCONST.H

PRINT 'FIRST LINE OF ROUTINE'
RDT=RECDT
HOUR=HR
PRINT 'SECOND LINE OF ROUTINE'

OPENSEQ'/u04/PRODDSS/data2/srcfiles/test/ramya/server/inrich/abcin':"_":RDT:"_":HOUR TO SrcFile ELSE PRINT 'FILE NOT FOUND'
OPENSEQ'/u04/PRODDSS/data2/srcfiles/test/ramya/server/inrich/fileop':"_":RDT:"_":HOUR TO SeqFile ELSE PRINT 'HIII'
FOR N=1 to 407467 +1
READSEQ A from SrcFile ELSE PRINT'CAN Not Read'

A1=Field(A,',',1); *MDN
A2=Field(A,',',2); *MIN
A3=Field(A,',',3); *BUCKET ID with TILDE
A4=Field(A,',',4); *BUCKET VAL with TILDE
A5=Field(A,',',5); *COSID with TILDE
B=DCount(A3,'~'); *Count i.e. no of times the for loop will execute
For Outer = 1 To B Step +1 ;* outer B no of repetitions
C1=Field(A3,'~',Outer);
D1=Field(A4,'~',Outer);
E1=Field(A5,'~',Outer);
Final=A1:'|':A2:'|':C1:'|':D1:'|':E1;
WRITESEQF Final TO SeqFile ELSE STOP
Next Outer
Next N
CLOSESEQ SeqFile
CLOSESEQ SrcFile
Ans=1


But when Iam executing it in a job,job is getting finished with see log.
The warning message is:
DataStage Job 130 Phantom 9784
FIRST LINE OF ROUTINE
SECOND LINE OF ROUTINE
DataStage Phantom Finished

Kindly help.

That is purely because of the PRINT statements in your code. DataStage logs a warning if anything "unexpected" appears in the output. Comment out the PRINT statements, or change them to DSLogInfo() calls, and the warning will vanish.