A*--+--------------------------------------------------------+--*
     A*--+      FILE ID : FTPIP                                   +--*
     A*--+    FILE NAME : IP ADDRESS DATA OF REXIT_FTP            +--*
     A*--+--------------------------------------------------------+--*
     A*--+      VERSION : 1.0 (98/12/21)                          +--*
     A*--+--------------------------------------------------------+--*
     A                                      UNIQUE
     A          R IPREC
     A            IPIP          15A         COLHDG(' IP ADDRESS ')
     A            IPCMT         50O         COLHDG(' COMMENT ')
     A
     A          K IPIP