Re: Tilde delimited fields in a PC file - how to upload & convertfields to AS/400 physical file

  A quick look at my Klingon Dictionary (also known as a C Programmers
Reference) would indicate to me that the functions accomplished by the scary
code below would not be taken care of by a quick strtok.  I'm sure C can
accomplish anything done in any other language and maybe in less lines of code. 
I was hoping to share something I had learned with someone else (the purpose of
this list), not start a language contest.  Still, if we're comparing languages,
we should at least be sure the same results are achieved.

   Given a record with the following contents (not terminated by a null
character by the way):

   Now is the time   for all "good men" to come   together.

My scary code below:

1. Puts each word into a separate indexable field except for the two words
enclosed in quotes, which will stay together, and extra blanks will be ignored
(like between time and for).

2. Counts the number of characters (not delimiting blanks) for each separated
string and stores the count in the same indexable table.

3. Stores the delimiting character which caused the separation to occur also in
the same indexable table.

4. Does not create any blank table entries.

Tim McCarthy wrote:
> 
>         Ohhhh that makes me shiver...and you guys think C is scary. A
> quick strtok would take care of this baby for you.
> >        01  WS-UNSTRING-TABLE.
> >            05  WS-UNSTRING-ENTRIES  OCCURS 30 TIMES INDEXED BY
> >                                                     WUT-NDX.
> >                10  WS-RECEIVE-FIELD     PIC X(30).
> >                10  WS-DELIMITER         PIC X.
> >                10  WS-CHAR-COUNT        PIC 999 COMP-3.
> >        01  WS-POINTER                   PIC 999 COMP-3.
> >        PROCEDURE DIVISION.
> >            INITIALIZE WS-UNSTRING-TABLE
> >            MOVE 1 TO WS-POINTER
> >            PERFORM VARYING WUT-NDX FROM 1 BY 1
> >              UNTIL WUT-NDX = 30 OR WS-POINTER > 80
> >                    IF INPUT-RECORD(WS-POINTER:1) = QUOTE OR '"'
> >                       MOVE INPUT-RECORD(WS-POINTER:1)
> >                         TO SC-DELIMITER
> >                        ADD 1 TO WS-POINTER
> >                    ELSE
> >                       MOVE SPACE TO SC-DELIMITER
> >                    END-IF
> >                    UNSTRING INPUT-RECORD DELIMITED BY
> >                             ALL SC-DELIMITER
> >                        INTO WS-RECEIVE-FIELD (WUT-NDX)
> >                             DELIMITER IN WS-DELIMITER (WUT-NDX)
> >                             COUNT IN WS-CHAR-COUNT (WUT-NDX)
> >                        WITH POINTER WS-POINTER
> >                    END-UNSTRING
> >                    IF WS-CHAR-COUNT(WUT-NDX) = ZERO
> >                       SET WUT-NDX DOWN BY 1
> >                    END-IF
> >            END-PERFORM
> >
> > --
> > Terry Grider
> > tgrider@arkansas.net
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---