User`s guide

70 DC 900-1406E
BSCTRAN Programmer’s Guide
3.9 Example Programs
The following BASIC example program calls BSCSEND:
10 %TITLE ‘SEND’
20 external long FUNCTION BSCSEND( string BY DESC, &
long BY REF, &
string BY DESC, &
string BY DESC, &
long BY REF, &
long BY REF, &
long BY REF, &
long BY REF, &
long BY REF, &
long BY VALUE )
30 declare long bsc_stat
40 declare long lnum
50 declare long trans, bin, card, noteof, display, dak
60 input “Enter TEXT file to send”; f$
70 input “Enter server name”; sv$
80 dt$ = “0 00:00:10”
90 input “Enter SEND link number”; lnum
100 trans = 0 ! non-transparent
110 bin = 0 ! include rec separators
120 card = 0 ! no IBM card image
150 noteof = 0 ! send ETX
160 display = 1 ! display of state of changes
170 dak = 0 ! dak node OFF
200 bsc_stat = BSCSEND( f$, lnum, sv$, dt$, trans, bin, &
card, noteof, display, dak )
210 print “BSCSEND return status = ”; bsc_stat
end