User`s guide

3: File Transfer Interface (BSCFTI)
DC 900-1406E 71
The following FORTRAN example program calls BSCRECV (the
SYS$ASCTIM call
applies to VMS only.):
program recv
implicit none
character*20 name_of_file /‘filetest.dat’/
integer*4 status
integer*4 sys_stat, bsc_stat, BSCRECV
integer*4 SYS$ASCTIM
character*23 current_time
C Argument list for BSCRECV
C____________________________________________________________________
character*20 fname
byte bfname(20)! enable null termination
integer*4 lnum, fixed
character*10 server
character*13 dtime
integer*4 recl
integer*4 binary
integer*4 forms
integer*4 display
equivalence (fname,bfname)
C____________________________________________________________________
1010 format ( ‘ ’)
1012 format ( 10x, ‘---------------------1--------------------’ )
1014 format ( 10x, a23)
1018 format ( 10x, a )
1 format( 10x, ‘BSC return code = ’ z8.8 )
2 format( 10x, ‘Name of file:’ )
3 format( 10x, a )
character*60 recvfilemsg /‘File received to port 3 spot’/