Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (O)
Guardian Procedure Calls Reference Manual—522629-013
11-55
OPENINFO Procedure
(Superseded by FILE_GETOPENINFO_ Procedure )
OSS Considerations
It is often necessary to run OSS processes at high PINs. See “Considerations,” earlier,
for more information.
Example
DEVICE^NAME^PADDED ':=' ["$DEVICE ",8*[" "]];
NUM := 0;
DO -- Get OPENINFO for the device
BEGIN
ERROR := OPENINFO( DEVICE^NAME^PADDED,
NUM,
PCRTPID,
BCRTPID,
ACCESSMODE,
EXCLUSION,
SYNC,
FILENAME,
ACCESSID );
IF ERROR = 0 !SUCCESS! THEN
BEGIN
-- Process (filter/sort) OPEN-record
END;
END -- Get OPENINFO for the device
UNTIL ERROR <> 0 !SUCCESS!;
IF ERROR = 2 !INVALID OPERATION! THEN
BEGIN
-- Device doesn't support OPENINFO
END
ELSE IF ERROR <> 1 !END OF FILE! THEN
BEGIN
-- File-system error/resource problem
END;