User`s guide

72 DC 900-1406E
BSCTRAN Programmer’s Guide
!------------------------------------------------------------------
! START OF CODE
!------------------------------------------------------------------
!
!
C Receive file from ICP
C------------------------------------------------------------------
fname = name_of_file
bfname(13) = 0 ! null terminate string
lnum = 3
server = ‘spot’
dtime = ‘0000 00:05:00’
recl = 80 ! record length
binary = 0 ! include rec separators
forms = 0 ! no forms control
display = 1 ! display of state of changes
bsc_stat = BSCRECV ( fname, lnum, server, dtime, fixed, recl,
1 binary, forms, display )
sys_stat = SYS$ASCTIM( , current_time,, )
write( unit=5, fmt=1010 )
write( unit=5, fmt=1012 )
write( unit=5, fmt=1014 ) current_time
write( unit=5, fmt=1010 )
write( unit=5, fmt=1018 ) recvfilemsg
write( unit=5, fmt=1010 )
write( unit=5, fmt=1 ) bsc_stat
write( unit=5, fmt=2 )
write( unit=5, fmt=3 ) name_of_file
write( unit=5, fmt=1012 )
end