The problem is you are trying to use a 'serial IO extension' on a 'file'. A better way to achieve this is to use:
IOCTL(F.OUT.PTR, JIOCTL_COMMAND_SEQ_NO_DELIMITER, "") and explicitly append CRLF to the end of each line, e.g. WRITESEQ 'TEST':@CR:@LF That is, if that's what you are trying to achieve. Dan "A program should not only work, it should also appear to work." --Carl Hewitty On Fri, Jul 30, 2010 at 9:02 PM, Elixir <[email protected]> wrote: > I follow > http://www.jbase.com/r5/knowledgebase/manuals/3.0/30manpages/man/adv12_SEQUENTIAL.FILE.EXTENSIONS.htm > and try to WRITESEQ with CRLF, but it does not work. > My platform is windows. > There is My pgm as below.Kindly hope someone could tell me what this > problem is. > > INCLUDE JBC.h > FN.FOLDER = 'TEST.BP' > FN.OUT.NAME = 'WRITESEQ.TXT' > EXECUTE 'DELETE ':FN.FOLDER:' ':FN.OUT.NAME > OPENSEQ FN.FOLDER,FN.OUT.NAME TO F.OUT.PTR ELSE > CREATE F.OUT.PTR ELSE > DISPLAY 'ERR.OUT.FILE=':FN.OUT.NAME > RETURN > END > END > IF NOT(IOCTL(F.OUT.PTR, JIOCTL_COMMAND_SERIAL_SET_CRLF,'')) THEN > CRT "SET CRLF FAILED" > END > WRITESEQ 'TEST' APPEND TO F.OUT.PTR ELSE END > CLOSESEQ F.OUT.PTR > > -- > 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 > -- 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
