Converting a program from CVF 6.6 to IVF 11.1

Hello everybody,

I am converting a program from CVF 6.6 to IVF 11.1 and I am looking for an equivalent to this part of the code below :

1. What library should I call instead of MSFLIB ? Should I modify the functions used in the program FULLPATHQQ, ... ?

2. This program is used to open a data file named "inputData.txt", if this file does not exist in the correct directory, the line 15 (err=9001) call a window which allow to search fo a file manually (the same "open with" window that we have generally in all programs).

3. How can I change lines 15,16 ?

Thank you

1.     USE msflib
2.     CHARACTER($MAXPATH) pathin
3.     CHARACTER($MAXPATH) filein
4.     CHARACTER(2) drive
5.     CHARACTER($MAXPATH) dir,workdir
6.     CHARACTER($MAXPATH) namein
7.     CHARACTER(4) ext
8.     INTEGER*4 leng1,leng2,leng3
9.     LOGICAl(4) result
10.     ienter=1  
11.     OPEN (ienter,FILE='inputData.txt',status='old',err=9001)
12.     call Function
13.     goto 1
14.         
15. 9001    open(ienter,file='',status='old',err=9000)
16.     INQUIRE(ienter,name=filein)
17.     leng1=FULLPATHQQ(filein,pathin)
18.     IF(leng1.EQ.0)STOP
19.     IF(leng1.GT.0)THEN
20.         leng2=SPLITPATHQQ(pathin,drive,dir,namein,ext)
21.         IF(leng2.EQ.0)THEN
22.               WRITE(*,*) 'Can''t split path'
23.             STOP
24.         ENDIF
25.     ELSE
26.         WRITE(*,*)'Can''t get full path'
27.         STOP
28.     ENDIF
29.     
30.     RETURN
31. 9000    WRITE(*,*) 'Reading error'