Kbase 15089: Output to 2 streams ( files ) simultaneously
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
Output to 2 streams ( files ) simultaneously
The following is sample code that allows you to output to 2 files and
the terminal simultaneously.
def var xxx as character format "x(10)".
def var zzz as character format "x(10)".
def stream str1.
def stream str2.
form xxx label "enter xxx"
zzz label "enter zzz"
with frame iframe side-labels centered overlay.
output stream str1 to "stream1.str".
output stream str2 to "stream2.str".
MAIN-LOOP:
do while true on error undo, retry on endkey undo, leave:
update xxx zzz with frame iframe.
display stream str1 xxx with frame f1 no-box no-labels down.
down with frame f1.
display stream str2 zzz with frame f2 no-box no-labels down.
down with frame f2.
end.
Progress Software Technical Support Note # 15089