🚀 go-pugleaf

92 tabelvullen.
    93     return sortf at end display "sortfile corrupt"
    94     end-return
    95     perform until sortf-eof
    96       move s-postcode to postcode
    97       add 1 to i
    98       string s-naam delimited by space
    99              ", " delimited by size
   100              s-voornaam delimited by size
   101             into lijn (1 i)
*   5-S*********************                                           (
0)**
**    User-name  not unique
   102       end-string
   103       string s-straat delimited by space
   104              " " delimited by size
   105              s-straatnr delimited by size
   106              into lijn (2 i)
*   5-S**********************                                          (
2)**
**    User-name  not unique
   107       end-string
   108       string s-postcode delimited by space
   109              " " delimited by size
   110              s-gemeente delimited by size
   111              into lijn (3 i)

* Microsoft COBOL Version 4.5        L2.4 revision 002 02-Dec-02 18:30 Page
3
*                                     LIJST2A.CBL
*   5-S**********************                                          (
2)**
**    User-name  not unique
   112       end-string
   113       if i >= 3 or not postcode = s-postcode
   114         if not postcode = s-postcode
   115           move 3 to j
   116           perform drukken
   117         else
   118         perform drukken
   119         end-if
   120       end-if
   121       return sortf at end display "tabel(len) opgevuld."
   122       end-return
   123     end-perform.

en i en j zijn gedeclareerd in de ws en staan ge�nitialiseerd op 0, heb al
met komma ertussen ook geprobeerd maar het werkt nie
lijn is onderddel van tweedimensionale tabel (twee keer occurs 3)


--
stijn.verspeet@pandora[delete.this].be