program
string*1016 output
compute output = pad("","X",1016,1016)
open big dsn="2gbfile.txt" write lrecl=1024
for line = 1,2100000
write (big) [format(line,-7)] 1x output (a1016)
end for
end program
program
string*1016 input
open big dsn="2gbfile.txt" read lrecl=1024
for line = 1,2093060
read (big) linen (a7)
end for
for line = 1,10
read (big) linen (a7) text (a20)
write linen TEXT
end for
end program
|
