TEXTFILE = "D:\IBM\UV\accounts\insappdev\textdata\"
SUCCESS = ''
OPENPATH TEXTFILE TO ITEXT ELSE
SUCCESS = STATUS()
SUCCESS = SUCCESS:" Path ":TEXTFILE:" Not Found"
CRT SUCCESS
STOP
END
OPEN 'TBLPAYER' TO PAYER ELSE
SUCCESS = STATUS()
SUCCESS = SUCCESS:" Unable to open TBLPAYER"
RETURN
END
OPEN 'TBLCLAIMUSERS' TO USERS ELSE
SUCCESS = STATUS()
SUCCESS = SUCCESS:"Failed to Open Table TBLCLAIMUSERS"
RETURN
END
GOSUB CREATE.PROVIDER.TABLES
RETURN
*----
CREATE.PROVIDER.TABLES:
*----
FOR II = 1 TO NLINES
FDATA = TEXTDATA<II>
CONVERT "|" TO @VM IN FDATA
CONVERT "~" TO "," IN FDATA
GOSUB PARSE.DATA
GOSUB LOAD.INITIAL
*---- WRITE PROVIDER
IF TRIM(ID) = '' THEN
NULL
END ELSE
WRITE FREC ON PAYER, ID ELSE
SUCCESS = STATUS()
CRT SUCCESS:" Failed to Write TBLPAYER"
STOP
END
END
NEXT II
RETURN