Question How Pass Stream As Parameter

define stream sBranchA.
define stream sBranchB.
define var cFile as char extent 20 no-undo.
define var cName as char extent 2 no-undo.
define var i as int no-undo.
define var j as int no-undo.

/* I calculate and switch the output stream to different files */

do i = 5 to 15:
     j = (i - 5) * 2.
     vFile[1 + j]  = "BranchA_20" + string(i,"99") + ".txt".   /* file name will be as BranchA_2005.txt */
     vFile[2 + j] = "BranchB_20" + string(i,"99") + ".txt".
end.

/* now loop through data */
data_loop:
for each ....:
     /* now calculate the output file name for data */
     j = if branchA then 1 else 2.
     i = (year(record_date) - 2005) * 2 + j.

     if vFile[i] <> vName[j] then do: /* switch output file, as data is indexed by date so the switch only occur once for each year */
           if branch = "A" then do:
                  output stream sBranchA close.
                  output stream sBranchA to value (vFile[i])
           end.
           else do: /* do the same for branch B */
                  output stream sBranchB close.
                  output stream sBranchB to value (vFile[i])
           end.

          vName[j] = vFile[i]
     end.

end. /* data loop */

define stream str1.
define variable hstr as handle no-undo.
hstr = stream str1:handle.
output stream str1 to "teststream.txt".
export stream str1 "in main 1".
run teststream.p(input hstr ).
export stream str1 "in main 2".
output stream str1 close.

teststream.p:
define input parameter iphstr as handle no-undo.
export stream-handle iphstr " in sub 1".