I have a routine which opens a file if it exists else it creates one.
Note: This is only a part of actual routine
Code: Select all
If NOT(Initialized) Then
* Not initialized. Attempt to open the file.
Initialized = 1
Open "EndDateFile" TO StopDateFile Else
* Open failed. Create the sequence file.
EXECUTE "CREATE.FILE EndDateFile"
Open "EndDateFile" TO StopDateFile Else Ans = -1
End
End
I get the error:
Subroutine failed to complete successfully (30107)
Please help me to solve the issue.
Thanks,
dxk9