2 Solutions: (You can follow either one ) 1. Create CBSL1.TXT under ETC.BP manually from your jbase prompt and execute the program it will write properly 2. In your program Change the OPENSEQ with the following:
OPENSEQ 'ETC.BP/CBSL1.TXT' TO TEXT.FILE ELSE CREATE TEXT.FILE ELSE PRINT "ERROR" I suggest to go with 2nd option. So that manually you need not do anything. Now you can check after fixing this. On Tue, Apr 26, 2011 at 7:20 AM, hareendra seneviratne <[email protected] > wrote: > Hi, > > I have following set of coding > > GOSUB INIT > GOSUB PROCESS > > INIT: > ***** > ... > EXECUTE 'SH -c "rm ETC.BP/CBSL1.TXT"' > OPENSEQ 'ETC.BP/CBSL1.TXT' TO TEXT.FILE ELSE PRINT "ERROR" > ... > > PROCESS: > ******** > ... > WHILE DRID:MORE > CALL F.READ(FN.DRAWINGS,DRID,R.DR,F.DRAWINGS,ERR) > Y.TMP.LINE = LINE > *Y.TMP.LINE* := R.DR<TF.DR.DRAW.CURRENCY> > :"|":R.DR<TF.DR.DOCUMENT.AMOUNT> > WRITESEQ Y.TMP.LINE TO TEXT.FILE ELSE PRINT "ERROR" > REPEAT > ... > > On the DEBUG data comes to *Y.TMP.LINE *and the line is created as > required. > But it does not generate the text file in *ETC.BP/CBSL1.TXT *as expected. > What might've gone wrong? > > Thanks for ur replies. > > > -- > Please read the posting guidelines at: > http://groups.google.com/group/jBASE/web/Posting%20Guidelines > > IMPORTANT: Type T24: at the start of the subject line for questions > specific to Globus/T24 > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > For more options, visit this group at > http://groups.google.com/group/jBASE?hl=en > -- Mobile: 973-39406098 "Nobody can go back and start a new beginning, but anyone can start today and make a new ending" -- Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24 To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
