Hi all,
I have a display only subfile and a footer format which is a option entry.
I do the following steps:
WRITE DISPLAY-REC
FROM control-output-buffer
FORMAT IS "control"
INDICATORS ARE WS-INDIC-AREA
END-WRITE
WRITE DISPLAY-REC
FROM footer-output-buffer
FORMAT IS "footer"
INDICATORS ARE WS-INDIC-AREA
END-WRITE
READ DISPLAY-FILE
INTO footer-input-buffer
FORMAT IS "footer"
INDICATORS ARE WS-INDIC-AREA
END-READ
READ DISPLAY-FILE
INTO control-input-buffer
FORMAT IS "control"
INDICATORS ARE WS-INDIC-AREA
END-READ
Usually when the first 'READ DISPLAY-FILE' command is executed, the subfile is thrown to the screen.
However, at some peculiar conditions, even after the execution of 'READ DISPLAY-FILE' command, the subfile is not thrown to the screen. Instead the session signs off.
I checked the SFLRRN, SFLRCDNBR and SFLPAGENO. They are all > 0.
Please let me know how to overcome this problem.
Thanks and Regards,
Manty
I have a display only subfile and a footer format which is a option entry.
I do the following steps:
WRITE DISPLAY-REC
FROM control-output-buffer
FORMAT IS "control"
INDICATORS ARE WS-INDIC-AREA
END-WRITE
WRITE DISPLAY-REC
FROM footer-output-buffer
FORMAT IS "footer"
INDICATORS ARE WS-INDIC-AREA
END-WRITE
READ DISPLAY-FILE
INTO footer-input-buffer
FORMAT IS "footer"
INDICATORS ARE WS-INDIC-AREA
END-READ
READ DISPLAY-FILE
INTO control-input-buffer
FORMAT IS "control"
INDICATORS ARE WS-INDIC-AREA
END-READ
Usually when the first 'READ DISPLAY-FILE' command is executed, the subfile is thrown to the screen.
However, at some peculiar conditions, even after the execution of 'READ DISPLAY-FILE' command, the subfile is not thrown to the screen. Instead the session signs off.
I checked the SFLRRN, SFLRCDNBR and SFLPAGENO. They are all > 0.
Please let me know how to overcome this problem.
Thanks and Regards,
Manty