Guardian Programmer's Guide

Table Of Contents
Communicating With Processes
Guardian Programmer’s Guide 421922-014
6 - 62
Programming the Server
ERROR := FILE_OPEN_(RECV^NAME:RECVLEN,RECV^NUM,
!access!,
!exclusion!,
!nowait^depth!,
RECV^DEPTH,OPTIONS);
IF ERROR <> 0 THEN
CALL FILE^ERRORS^NAME(RECV^NAME:RECV^NUM,ERROR);
! Open the part file with a sync depth of 1:
PARTFILE^NAME ':=' "=PARTFILE" -> @S^PTR;
PARTFILE^LEN := @S^PTR '-' @PARTFILE^NAME;
SYNCH^DEPTH := 1;
ERROR := FILE_OPEN_(PARTFILE^NAME:PARTFILE^LEN,
PARTFILE^NUM,
!access!,
!exclusion!,
!nowait^depth!,
SYNCH^DEPTH);
IF ERROR <> 0 THEN
CALL FILE^ERRORS^NAME(PARTFILE^NAME:PARTFILE^LEN,
ERROR);
END;