GnuCOBOL  2.0
A free COBOL compiler
isaudit.c
Go to the documentation of this file.
1 /*
2  * Copyright (C) 2003 Trevor van Bremen
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public License
6  * as published by the Free Software Foundation; either version 2.1,
7  * or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12  * GNU Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; see the file COPYING.LIB. If
16  * not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor
17  * Boston, MA 02110-1301 USA
18  */
19 
20 #include "isinternal.h"
21 
22 int
23 isaudit (const int ihandle, char *pcfilename, int imode)
24 {
25  /* BUG - Write isaudit */
26  if (ihandle < 0 || ihandle > ivbmaxusedhandle) {
27  iserrno = EBADARG;
28  return -1;
29  }
30  return 0;
31 }
int isaudit(const int ihandle, char *pcfilename, int imode)
Definition: isaudit.c:23
int ivbmaxusedhandle
Definition: vblocking.c:26
int iserrno
Definition: vbmemio.c:27