ILF (Integrated Language Facility)
I am trying to do a BEG READ/END READ, which nests a BEG READ/END READ on the same file
The way i have it setup is as follows:
BEG AT
END AT
BEG READ
STORE
BEG AT
END AT
BEG READ
END READ
RESTORE
END READ
It will not work because BEG AT/END AT and BEG READ/END READ share the same stream buffer. What will work however, is the following scheme:
BEG AT
AND AT
LABEL: DO SOMETHING
READNEXT
BEG AT
END AT
BEG READ
END READ
GOTO DO SOMETHING
This way, you will have 2 streams open because READNEXT opens up a second stream buffer and you can BEG AT/END AT and BEG/READ/END READ on the same file.