Hello everybody. I need some VAX expert's help. I am trying
to port a code from VAX VMS 5.1 . I do have DECFUSE. AS I am
not conversant with VAX VMS operating system, I need to know
as to
HOW DO I GET THE EQUIVALENT FOR THE SYSTEM CALLS
( WHICH INCIDENTALLY WERE FORTRAN CALLABLE ON VAX) IN DIGITAL
UNIX FOR THE FOLLOWING CODE SEGMENT. A BRIEF EXPLANATION
OF THE SYSTEM CALLS WOULD BE GREATELY APPRECIATED.
----------------CODE STARTS-------------------------------
integer*4 function usopen_nlk(fab,rab,lun)
include '($syssrvnam)'
include '($fabdef)'
include '($rabdef)'
record /fabdef/ fab
record /rabdef/ rab
integer*4 status, lun
external lib$signal
rab.rab$1_rop=ibset(rab.rab$1_rop,rab$v_nlk)
status=sys$open (fab)
if(status)then
status=sys$connect(rab)
if( .not.status) call lib$signal(%val(status))
endif
usopen_nlk=status
return
end
----------------------- code ends----------------------
Thanking you all in advance and
with best regards,
Yours sincerely
R.S. MUNDADA
Received on Fri Jul 03 1998 - 08:25:26 NZST