! ******************************************************************************************************************************** ! Created: 30-AUG-2007 11:30:31 by OpenVMS SDL IA64-2 ! Source: 30-AUG-2007 11:30:31 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]UTIL$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE util$routines IDENT X01-01 *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! *************************************************************************** ! * ! COPYRIGHT (c) 1998 BY * ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! ALL RIGHTS RESERVED. * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! * ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! * ! *************************************************************************** ! ! UTIL$CQUAL_FILE_PARSE ! INTEGER*4 util$cqual_file_parse EXTERNAL util$cqual_file_parse ! ! UTIL$CQUAL_FILE_MATCH ! INTEGER*4 util$cqual_file_match EXTERNAL util$cqual_file_match ! ! UTIL$CQUAL_FILE_END ! INTEGER*4 util$cqual_file_end EXTERNAL util$cqual_file_end ! ! UTIL$CQUAL_CONFIRM_ACT ! INTEGER*4 util$cqual_confirm_act EXTERNAL util$cqual_confirm_act !DEC$ END OPTIONS