Writing in to a sequential file trhru routine

[shrinivas]

Hi guys ,
I am writing a file thru a sequence. This is basicly a control routine which accepts list of job names and write output in a sequential file . The problem I am facing is whenever I write the target sequential file , Every time the last character of the sequentail file is appended with a junk character and the ascii value of it I found is 0D. dont know what is the problem. Following is the code

Code: Select all

 Dest := JobName : "," : JobStartTime : ",": JobEndTime : "," : JobStat : "," : RejEntrWarn : ";": RejEntrFatal :"," : SrcRowCount : "," : DstRowCount: '^'  

var1 =  char(10):char(13)
Dest = Trim(Dest,'^',"T")
Status = EREPLACE(Dest,'^',var1) 

          WRITESEQ Status TO FileVar1 ELSE STOP
          
          WEOFSEQ FileVar1

          CloseSeq FileVar

      END ELSE
          Call DSLogFatal('File open error on ':paramset:'. Status = ':Status(),SetParams)
      END 

Above is my code where JobName , JobStartTime ,JobEndTime , JobStat , RejEntrWarn ,RejEntrFatal , SrcRowCount ,DstRowCount are diffrent varaibles containing Jobs status appended with '^'. I am replacing ^ this to New line character to get each job details in new line and then writng it to file

[shrinivas]

Hi guys ,
I am writing a file thru a sequence

In th eabove message I have written I am writing a file thru a sequence.
Its a typo and the correct sentence is "I am writing a file thru a routine."

[WoMaWil]

you have still more typing errors. The word is written "through" and not "thru"!

[chulett]

You do realize your 'junk character' of 0D is a carriage return - a char(13), yes? Where exactly is this showing up?

[shrinivas]

Ya Chulett I just got to know its the ASCII value of "CR" from DS documents ..
I write the Ascii values into a sequential file.There its returning 0D.

[chulett]

We know it's in the sequential file. I asked where exactly is it? How about an example of your problem?

[shrinivas]

Its coming in the last row of the file and it is the last character of the row.
For example ........
The file structure looks like ....

JobName , SrcRowCount, DestRowCount
A,10,10
B,10,10
C,20,11
So the Carraiage Return is concatenated with the number 11[Last row Last Character]
When I see the Ascii value its comes as 31310D

[chulett]

Not knowing everything that's going on, first suggestion would be to comment out the WEOFSEQ function in your routine and see if that 'fixes' it.

[DSguru2B]

This is'nt the entire code is it? WHere are you opening the file (OPENSEQ) for writing. Plus, I dont think you need a WEOFSEQ. All you need to do is

Code: Select all

OPENSEQ 'myfilename' to FILE ELSE ABORT
LOOP 
      
        WRITESEQ .....

END LOOP
CLOSESEQ FILE

This is just to give you a general idea. Its not complete code. Does not even have any error handling.

[shrinivas]

I removed it but , no change , I am getting the CR at same place

[shrinivas]

even for the simple transform routine I am getting the same problem

Code: Select all

      #Include DSINCLUDE DSD_STAGE.H
      #Include DSINCLUDE JOBCONTROL.H
      #Include DSINCLUDE DSD.H
      #Include DSINCLUDE DSD_RTSTATUS.H

ErrorCode=0
set=''



destset= Arg1

  Status =  "abcd,122,11"
  
      OPENSEQ destset TO FileVar1 THEN

          WRITESEQ Status TO FileVar1 ELSE STOP
               
          CloseSeq FileVar1

      END ELSE
          Call DSLogFatal('File open error ',SetParams)
      END 
Ans = 0

[ray.wurlod]

There's a whole lot wrong with all the code in this thread. For example, the ELSE clause on OpenSeq can be taken even if the file is opened for writing.

For the moment forget WriteSeq and try the

Code: Select all

echo 

command.

Code: Select all

filename = "myfilename"
Cmd = "echo " : Dest : " >> " : filename
Call DSExecute("UNIX", Cmd, Output, ExitStatus)

[shrinivas]

I tried every thing(in my view)..
I can tell you guys my requirments ..
I have a variable having a string and I would like to write in to a file .
The string looks like
a,b,10,11Char(10):Char(13)c,d,12,93Char(10):Char(13)d,e,20,12Char(10):Char(13)

I am appending Char(10):Char(13) to get the values in next line .
Can any body give me the proper syntax to write it in to a file .

[sb_akarmarkar]

Shrinivas,

Instead of CHAR(10):CHAR(13) use and try CHAR(13):CHAR(10).


Thanks,
Anupam

[shrinivas]

I tried ur sugegstion but no improvement ,The problem is what ever I write in to a sequntial file it append the CR in to the last character of the last record .
Can u get me the syntax with an example . from which I can match it my code