APPX Software Library

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.