RE: A little RPG and a little CGI/Net.Data question.

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

We have something similar here, but instead of breaking down to lines, we
opt for a varying length field with a reserved length equal to a couple of
lines.  Now if you want to parse to separate lines, try this:
c                   Eval      StrPos = 1
c                   Eval      EndStr = StrPos + MaxLen
c     ' '           CheckR    String:EndStr  EndPos
c                   Eval      Len = EndPos - StrPos + 1
c                   Eval      FileFld = %Subst(String:StrPos:Len)


This will find the first logical break in the line.  You can then
recalculate the start/end/len until you reach the end of the data.

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000


-----Original Message-----
From: dmosley@dancik.com [mailto:dmosley@dancik.com]
Sent: Friday, April 14, 2000 6:27 AM
To: RPG400-L@midrange.com
Cc: terry@dancik.com
Subject: A little RPG and a little CGI/Net.Data question.




Alright Mr. Stone, let's see you shine.

Here's my situation.  I am creating a <TEXTAREA COLS=50 ROWS=10>, in HTML
obviously,  to allow users to enter comments in.  Once the user has
submitted
his/her entree, and continues to the next URL, which is accessed via
Net.Data, I
do a @DTW_directcall function that passes the users comments and the
comments
length to an RPGLE program, using simple parameter pass.  The program
should
read the comments entered and break them down and written to a physical
file.
The file layout is as such.  SEQ#- 3,0 & TEXT - 50a.  The comments should be
broken  so that each row entered would be considered a SEQ# increment.  My
problem is breaking down the comments, once it is passed to the RPGLE
program.
I created a procedure that I thought would break it down properly, BUT, the
comments value being passed to the program does not appear to have Carriage
Returns (\n)(x'15'), so I can't figure out were to %subst the comments to a
new
record.


Ex) TEXTAREA :                                PHYSICAL FILE RECORDS (What
records should be written)
            COMMENTS                               SEQ#      TEXT
     ROW 1 :  This is were the comments would go.            1    This is
were
the comments would go
     ROW 2 :
     ROW 3 : This would be considered SEQ# 3.                3    This would
be
considered SEQ# 3.
     ROW 4:
     ROW 5: And this would be considered SEQ# 5.             5    And this
would
be considered SEQ# 5.


I hope that this explained it well enough for you all.  Any suggestions
would be
greatful.
thanks
dave
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---