xwb,
Thanks!
I did not know that eventhough an INQUIRE said the file was Sequential, I could open it as Direct!
Opening it as DIRECT with RECL 250
and then reading it as you suggested in a loop:
Do I =1 , 50
read(10,fmt=50,rec=I)line2(I)
if(line2(i)(1:3).ne."405") then
goto 100
end if
end...
I am trying to read a Sequential file from a disk with one big physical record. Using INQUIRE I know it is a sequential file with a recl of 2147483647. The disk file is uploaded to an old mainframe system that apparently 'thinks' it is a tape file.
The record contains formatted...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.