Guardian Programmer's Guide

Table Of Contents
Using Nowait Input/Output
Guardian Programmer’s Guide 421922-014
4 - 22
Nowait I/O: An Example
IF ERROR <> 0 THEN CALL PROCESS_STOP_;
! Open the log file with a sync depth of 1:
LOGNAME ':=' "$ADMIN.OPERATOR.LOGFILE" -> @S^PTR;
LOGLEN := @S^PTR '-' @LOGNAME;
ERROR := FILE_OPEN_(LOGNAME:LOGLEN,
LOGNUM,
!access!,
!exclusion!,
!nowait^depth!,
1);
IF ERROR <> 0 THEN
CALL FILE^ERRORS^NAME(LOGNAME:LOGLEN, ERROR);
! Clear the LOGGED^ON flag:
LOGGED^ON := 0;
END;