|
Lim, VT100FormatScreenData returns an array of 24 elements. You want to code it as D My_VT100FormatScreenData ... D S 80 Dim(24) My_VT100FormatScreenData = VT100FormatScreenData(myRecvData); Lim Hock-Chai <Lim.Hock-Chai@xxxxxxxxxxxxxxx> wrote: I'm getting old, can somebody tell me why compiler does like my "callp VT100FormatScreenData(myRecvData)" D VT100ClearScreen... D pr D VT100FormatScreenData... D pr 80 dim(24) D piRecvData 32766 varying C eval *inlr = *on *=============================================================== * clear screen *=============================================================== P VT100ClearScreen... P B export D pi D myRecvData s 32766 varying C eval myRecvData = x'27D1' C callp VT100FormatScreenData(myRecvData) P VT100ClearScreen... P E *=============================================================== * format the screen data *=============================================================== P VT100FormatScreenData... P B export D pi 80 dim(24) D piRecvData 32766 varying D prRecvData s 80 dim(24) C return prRecvData P VT100FormatScreenData... P E
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
