What's wrong with this RUNSQLSTM?

Create table GDWEB/FTPUSER
       (
       LOGIN character varying(100) not null
        constraint FTPUSER_NonUpperLogin check((LOGIN<>' ') and
                                               (LOGIN=UPPER(LOGIN))),
       LOGINPWD character varying(100) not null
        constraint FTPUSER_NonUpperPassword check((LOGINPWD<>' ' ) and
 (LOGINPWD=UPPER(LOGINPWD))),
       INITCOMPANY char (2) not null
        constraint FTPUSER_InvalidCompany
         Foreign key (COMPANY)
         References GDWEB/FTPCOMPANY (COMPANY),

       IPADDRESS character varying(30) not null
        constraint FTPUSER_BlankIPAddress check(IPADDRESS<>' '),
       );

>From the printout:
...
 9        INITCOMPANY char (2) not null 
10         constraint FTPUSER_InvalidCompany 
11          Foreign key (COMPANY) 
12          References GDWEB/FTPCOMPANY (COMPANY),
...
MSG ID  SEV  RECORD  TEXT  
SQL0199  30      11  Position 10 Keyword FOREIGN not expected. Valid 
tokens:
                     CHECK UNIQUE PRIMARY REFERENCES.  


Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin