No proper output while running routine

[hhh]

While running following routine
$INCLUDE DSINCLUDE JOBCONTROL.H
InfoMessage = Arg1
PathName = Arg2
Output =''
OpenSeq PathName To FileVar Else ; * Open the sequential file or if not exist then create seq file
CREATE FileVar ELSE ABORT
WriteSeq InfoMessage TO FileVar ELSE STOP ; * writing input argument(Arg1) to FileVar
End
Ans = ''
Loop
ReadSeq FileLine From FileVar ; * Read sequential file through Fileline
On Error
Call DSLogWarn("Error from ":PathName:" status=":Status(),"MyRoutine")
End
Then
Cmd = 'grep ':'_':' ':FileLine ; * Text for searching the "_" character in InfoMessage
Call DSExecute('UNIX',Cmd,Output,SystemReturnCode) ; * Call DSExecute command to run in Unix
Ans = Output ; * Assign the Output of grep command in Ans variable
End Else
Exit
End
repeat
CloseSeq FileVar
===================
Test Output
TEST #1
*******

Arg1 = sequential_file_12345
Arg2 = /abc.txt

Test completed.


Result = grep: can't open sequential_file_12345

===============

Here i provide Arg1 = sequential_file_12345, so my result should be same as Arg1 however in this case i am gettng Output :

Result = grep: can't open sequential_file_12345

Pls look into this and advice me for same

Regards,
Hiten

[kduke]

Please edit your post and put code tags around your program so we can see the indentation.

[ray.wurlod]

Your code is confused. For example, consider what this code fragment does if the pathname exists. What did you want it to do?

Code: Select all

OpenSeq PathName To FileVar Else 
   CREATE FileVar ELSE ABORT 
   WriteSeq InfoMessage TO FileVar ELSE STOP 
End 
CloseSeq FileVar 

Do you REALLY want to work with files in the root directory (/abc.txt)? Do you have sufficient permission to do so?

[hhh]

Have updated my code with code tags and comments.


[quote="kduke"]Please edit your post and put code tags around your program so we can see the indentation.[/quote]

[ray.wurlod]

Have updated my code with code tags and comments.

Oh, no you haven't!