|
Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
|
Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Classes | |
| struct | keypart |
| struct | keydesc |
| struct | dictinfo |
| struct | audhead |
Defines | |
| #define | CHARTYPE 0 |
| #define | DECIMALTYPE 0 |
| #define | CHARSIZE 1 |
| #define | INTTYPE 1 |
| #define | INTSIZE 2 |
| #define | LONGTYPE 2 |
| #define | LONGSIZE 4 |
| #define | DOUBLETYPE 3 |
| #define | DOUBLESIZE (sizeof(double)) |
| #define | FLOATTYPE 4 |
| #define | FLOATSIZE (sizeof(float)) |
| #define | PACKTYPE 100 |
| #define | PACKSIZE 0 |
| #define | USERCOLL(x) ((x)) |
| #define | COLLATE1 0x10 |
| #define | COLLATE2 0x20 |
| #define | COLLATE3 0x30 |
| #define | COLLATE4 0x40 |
| #define | COLLATE5 0x50 |
| #define | COLLATE6 0x60 |
| #define | COLLATE7 0x70 |
| #define | MAXTYPE 5 |
| #define | ISDESC 0x80 /* add to make descending type */ |
| #define | TYPEMASK 0x7F /* type mask */ |
| #define | BYTEMASK 0xFF /* mask for one byte */ |
| #define | BYTESHFT 8 /* shift for one byte */ |
| #define | ldint(p) ((short)(((p)[0]<<BYTESHFT)+((p)[1]&BYTEMASK))) |
| #define | stint(i, p) ((p)[0]=(i)>>BYTESHFT,(p)[1]=(i)) |
| #define | ISFIRST 0 /* position to first record */ |
| #define | ISLAST 1 /* position to last record */ |
| #define | ISNEXT 2 /* position to next record */ |
| #define | ISPREV 3 /* position to previous record */ |
| #define | ISCURR 4 /* position to current record */ |
| #define | ISEQUAL 5 /* position to equal value */ |
| #define | ISGREAT 6 /* position to greater value */ |
| #define | ISGTEQ 7 /* position to >= value */ |
| #define | ISLOCK 0x100 /* record lock */ |
| #define | ISWAIT 0x400 /* wait for record lock */ |
| #define | ISLCKW 0x500 /* ISLOCK + ISWAIT */ |
| #define | ISSLEEPLOCK 0x1000 /* IAG */ |
| #define | ISAUTOLOCK 0x200 /* automatic record lock */ |
| #define | ISMANULOCK 0x400 /* manual record lock */ |
| #define | ISEXCLLOCK 0x800 /* exclusive isam file lock */ |
| #define | ISINPUT 0 /* open for input only */ |
| #define | ISOUTPUT 1 /* open for output only */ |
| #define | ISINOUT 2 /* open for input and output */ |
| #define | ISTRANS 4 /* open for transaction proc */ |
| #define | ISNOLOG 8 /* no loggin for this file */ |
| #define | AUDSETNAME 0 /* set new audit trail name */ |
| #define | AUDGETNAME 1 /* get audit trail name */ |
| #define | AUDSTART 2 /* start audit trail */ |
| #define | AUDSTOP 3 /* stop audit trail */ |
| #define | AUDINFO 4 /* audit trail running ? */ |
| #define | MAXKEYSIZE 120 /* max number of bytes in key */ |
| #define | NPARTS 8 /* max number of key parts */ |
| #define | k_start k_part[0].kp_start |
| #define | k_leng k_part[0].kp_leng |
| #define | k_type k_part[0].kp_type |
| #define | ISNODUPS 000 /* no duplicates allowed */ |
| #define | ISDUPS 001 /* duplicates allowed */ |
| #define | DCOMPRESS 002 /* duplicate compression */ |
| #define | LCOMPRESS 004 /* leading compression */ |
| #define | TCOMPRESS 010 /* trailing compression */ |
| #define | COMPRESS 016 /* all compression */ |
| #define | ISCLUSTER 020 /* index is a cluster one */ |
| #define | ISAM_ERR_OFFSET 31 |
| #define | EDUPL 100+ISAM_ERR_OFFSET /* Duplicate record */ |
| #define | ENOTOPEN 101+ISAM_ERR_OFFSET /* File not open */ |
| #define | EBADARG 102+ISAM_ERR_OFFSET /* Illegal argument */ |
| #define | EBADKEY 103+ISAM_ERR_OFFSET /* Illegal key desc */ |
| #define | ETOOMANY 104+ISAM_ERR_OFFSET /* Too many files open */ |
| #define | EBADFILE 105+ISAM_ERR_OFFSET /* Bad isam file format */ |
| #define | ENOTEXCL 106+ISAM_ERR_OFFSET /* Non-exclusive access */ |
| #define | ELOCKED 107+ISAM_ERR_OFFSET /* Record locked */ |
| #define | EKEXISTS 108+ISAM_ERR_OFFSET /* Key already exists */ |
| #define | EPRIMKEY 109+ISAM_ERR_OFFSET /* Is primary key */ |
| #define | EENDFILE 110+ISAM_ERR_OFFSET /* End/begin of file */ |
| #define | ENOREC 111+ISAM_ERR_OFFSET /* No record found */ |
| #define | ENOCURR 112+ISAM_ERR_OFFSET /* No current record */ |
| #define | EFLOCKED 113+ISAM_ERR_OFFSET /* File locked */ |
| #define | EFNAME 114+ISAM_ERR_OFFSET /* File name too long */ |
| #define | ENOLOK 115+ISAM_ERR_OFFSET /* Can't create lock file */ |
| #define | EDUPWARN 116+ISAM_ERR_OFFSET /* Duplicate record (warning) */ |
| #define | ENOCRP 117+ISAM_ERR_OFFSET /* Current record pointer undefined */ |
| #define | EBADMEM 118+ISAM_ERR_OFFSET /* Can't alloc memory */ |
| #define | EBADCOLL 119+ISAM_ERR_OFFSET /* Bad custom collating */ |
| #define | EINVOP 120+ISAM_ERR_OFFSET /* Invalid operation */ |
| #define | EBOUNDARY 121+ISAM_ERR_OFFSET /* Boundary violation on write */ |
| #define | EBOUNDSQ 122+ISAM_ERR_OFFSET /* Boundary violation on sq file */ |
| #define | EFNOTAVL 123+ISAM_ERR_OFFSET /* Not available, closed w/ lock */ |
| #define | EINVOPN 124+ISAM_ERR_OFFSET /* Inconsistent attributes */ |
| #define | EOPKYAPP 125+ISAM_ERR_OFFSET /* Open -APPEND on KEYED file */ |
| #define | EOPILDAM 126+ISAM_ERR_OFFSET /* Open -DAM on non-IDRECT file */ |
| #define | EOPKYSAM 127+ISAM_ERR_OFFSET /* Open -SAM on KEYED file */ |
| #define | EILLREAD 128+ISAM_ERR_OFFSET /* Read on output file */ |
| #define | EILLWRITE 129+ISAM_ERR_OFFSET /* Write on input file */ |
| #define | ENOTCLOS 130+ISAM_ERR_OFFSET /* Open on file not yet closed */ |
| #define | EKEYSEQ 131+ISAM_ERR_OFFSET /* KEY specified on sequential file */ |
| #define | EKEYSTR 132+ISAM_ERR_OFFSET /* KEY specified on stream file */ |
| #define | ENKYKEY 133+ISAM_ERR_OFFSET /* No KEY specified on KEYED file */ |
| #define | ENPRINT 134+ISAM_ERR_OFFSET /* Not a PRINT file */ |
| #define | ENSTREAM 135+ISAM_ERR_OFFSET /* Not a STREAM file */ |
| #define | ECALLNF 136+ISAM_ERR_OFFSET /* CALL dataname name not found */ |
| #define | EBFORMAT 137+ISAM_ERR_OFFSET /* B-format error (35) */ |
| #define | EBIFORMAT 138+ISAM_ERR_OFFSET /* BI format error (36) */ |
| #define | ECFORMAT 139+ISAM_ERR_OFFSET /* C format error (32) */ |
| #define | EEFORMAT 140+ISAM_ERR_OFFSET /* E format error (34) */ |
| #define | EIOSTACK 141+ISAM_ERR_OFFSET /* I/O stack overflow */ |
| #define | ECONVERT 142+ISAM_ERR_OFFSET /* Conversion error */ |
| #define | ELISTOVF 143+ISAM_ERR_OFFSET /* LIST input item too long */ |
| #define | EIMPOPEN 144+ISAM_ERR_OFFSET /* Implicit open failed */ |
| #define | EEOFFMT 145+ISAM_ERR_OFFSET /* EOF found while parsing edited input */ |
| #define | EENDSTR 146+ISAM_ERR_OFFSET /* End of string on GET/PUT STRING */ |
| #define | EINVSFMT 147+ISAM_ERR_OFFSET /* Invalid format item for GET/PUT STRING */ |
| #define | EINVIFMT 148+ISAM_ERR_OFFSET /* Invalid format for GET */ |
| #define | ERPGSCR 149+ISAM_ERR_OFFSET /* Cannot initialize RPG screens */ |
| #define | ENOTOPRD 150+ISAM_ERR_OFFSET /* Not open for read */ |
| #define | EILLREW 151+ISAM_ERR_OFFSET /* REWRITE on input file */ |
| #define | ENOPOPEN 152+ISAM_ERR_OFFSET /* File not OPEN on NON-OPTIONAL */ |
| #define | EOPOPEN 153+ISAM_ERR_OFFSET /* File OPEN on OPTIONAL */ |
| #define | ESEQERR 154+ISAM_ERR_OFFSET /* Sequential error on REW or DELE COBOL85 */ |
| #define | ESEQERNR 155+ISAM_ERR_OFFSET /* Sequential error no next record COBOL85 */ |
| #define | EBADSIZE 156+ISAM_ERR_OFFSET /* Bad record size on variable length record */ |
| #define | ELOGREAD 157+ISAM_ERR_OFFSET /* Cannot read log rec */ |
| #define | EBADLOG 158+ISAM_ERR_OFFSET /* Bad log record */ |
| #define | ELOGOPEN 159+ISAM_ERR_OFFSET /* Cannot open log file */ |
| #define | ELOGWRIT 160+ISAM_ERR_OFFSET /* Cannot write log rec */ |
| #define | ENOTRANS 161+ISAM_ERR_OFFSET /* No transaction */ |
| #define | ENOSHMEM 162+ISAM_ERR_OFFSET /* No shared memory */ |
| #define | ENOBEGIN 163+ISAM_ERR_OFFSET /* No begin work yet */ |
| #define | ENONFS 164+ISAM_ERR_OFFSET /* Can't use nfs */ |
| #define | EAUDIT 165+ISAM_ERR_OFFSET /* Audit trail exists */ |
| #define | EFFORMAT 166+ISAM_ERR_OFFSET /* F format error */ |
| #define | EBIGRECN 167+ISAM_ERR_OFFSET /* Record number tobig for data item */ |
| #define | IO_OPEN 0x10 /* open() */ |
| #define | IO_CREA 0x20 /* creat() */ |
| #define | IO_SEEK 0x30 /* lseek() */ |
| #define | IO_READ 0x40 /* read() */ |
| #define | IO_WRIT 0x50 /* write() */ |
| #define | IO_LOCK 0x60 /* locking() */ |
| #define | IO_IOCTL 0x70 /* ioctl() */ |
| #define | IO_IDX 0x01 /* index file */ |
| #define | IO_DAT 0x02 /* data file */ |
| #define | IO_AUD 0x03 /* audit file */ |
| #define | IO_LOK 0x04 /* lock file */ |
| #define | IO_SEM 0x05 /* semaphore file */ |
| #define | AUDHEADSIZE 14 /* num of bytes in audit header */ |
Functions | |
| int | ldlong (char *) |
| double | ldfloat (char *) |
| double | lddbl (char *) |
| double | ldfltnull (char *, short *) |
| double | lddblnull (char *, short *) |
| int | mkidxname (char *, char *) |
| int | mkdatname (char *, char *) |
| int | mklokname (char *, char *) |
Variables | |
| int | iserrno |
| int | iserrio |
| int | isrecnum |
| char | isstat1 |
| char | isstat2 |
| char * | isversnumber |
| char * | isserial |
| int | issingleuser |
| int | is_nerr |
| char * | is_errlist [] |
| #define AUDGETNAME 1 /* get audit trail name */ |
| #define AUDHEADSIZE 14 /* num of bytes in audit header */ |
| #define AUDSETNAME 0 /* set new audit trail name */ |
| #define DECIMALTYPE 0 |
| #define DOUBLESIZE (sizeof(double)) |
| #define DOUBLETYPE 3 |
| #define EAUDIT 165+ISAM_ERR_OFFSET /* Audit trail exists */ |
| #define EBADARG 102+ISAM_ERR_OFFSET /* Illegal argument */ |
| #define EBADCOLL 119+ISAM_ERR_OFFSET /* Bad custom collating */ |
| #define EBADFILE 105+ISAM_ERR_OFFSET /* Bad isam file format */ |
| #define EBADKEY 103+ISAM_ERR_OFFSET /* Illegal key desc */ |
| #define EBADLOG 158+ISAM_ERR_OFFSET /* Bad log record */ |
| #define EBADMEM 118+ISAM_ERR_OFFSET /* Can't alloc memory */ |
| #define EBADSIZE 156+ISAM_ERR_OFFSET /* Bad record size on variable length record */ |
| #define EBFORMAT 137+ISAM_ERR_OFFSET /* B-format error (35) */ |
| #define EBIFORMAT 138+ISAM_ERR_OFFSET /* BI format error (36) */ |
| #define EBIGRECN 167+ISAM_ERR_OFFSET /* Record number tobig for data item */ |
| #define EBOUNDARY 121+ISAM_ERR_OFFSET /* Boundary violation on write */ |
| #define EBOUNDSQ 122+ISAM_ERR_OFFSET /* Boundary violation on sq file */ |
| #define ECALLNF 136+ISAM_ERR_OFFSET /* CALL dataname name not found */ |
| #define ECFORMAT 139+ISAM_ERR_OFFSET /* C format error (32) */ |
| #define ECONVERT 142+ISAM_ERR_OFFSET /* Conversion error */ |
| #define EDUPL 100+ISAM_ERR_OFFSET /* Duplicate record */ |
| #define EDUPWARN 116+ISAM_ERR_OFFSET /* Duplicate record (warning) */ |
| #define EEFORMAT 140+ISAM_ERR_OFFSET /* E format error (34) */ |
| #define EENDFILE 110+ISAM_ERR_OFFSET /* End/begin of file */ |
| #define EENDSTR 146+ISAM_ERR_OFFSET /* End of string on GET/PUT STRING */ |
| #define EEOFFMT 145+ISAM_ERR_OFFSET /* EOF found while parsing edited input */ |
| #define EFLOCKED 113+ISAM_ERR_OFFSET /* File locked */ |
| #define EFNAME 114+ISAM_ERR_OFFSET /* File name too long */ |
| #define EFNOTAVL 123+ISAM_ERR_OFFSET /* Not available, closed w/ lock */ |
| #define EILLREAD 128+ISAM_ERR_OFFSET /* Read on output file */ |
| #define EILLREW 151+ISAM_ERR_OFFSET /* REWRITE on input file */ |
| #define EILLWRITE 129+ISAM_ERR_OFFSET /* Write on input file */ |
| #define EIMPOPEN 144+ISAM_ERR_OFFSET /* Implicit open failed */ |
| #define EINVIFMT 148+ISAM_ERR_OFFSET /* Invalid format for GET */ |
| #define EINVOP 120+ISAM_ERR_OFFSET /* Invalid operation */ |
| #define EINVOPN 124+ISAM_ERR_OFFSET /* Inconsistent attributes */ |
| #define EINVSFMT 147+ISAM_ERR_OFFSET /* Invalid format item for GET/PUT STRING */ |
| #define EIOSTACK 141+ISAM_ERR_OFFSET /* I/O stack overflow */ |
| #define EKEXISTS 108+ISAM_ERR_OFFSET /* Key already exists */ |
| #define EKEYSEQ 131+ISAM_ERR_OFFSET /* KEY specified on sequential file */ |
| #define EKEYSTR 132+ISAM_ERR_OFFSET /* KEY specified on stream file */ |
| #define ELISTOVF 143+ISAM_ERR_OFFSET /* LIST input item too long */ |
| #define ELOCKED 107+ISAM_ERR_OFFSET /* Record locked */ |
| #define ELOGOPEN 159+ISAM_ERR_OFFSET /* Cannot open log file */ |
| #define ELOGREAD 157+ISAM_ERR_OFFSET /* Cannot read log rec */ |
| #define ELOGWRIT 160+ISAM_ERR_OFFSET /* Cannot write log rec */ |
| #define ENKYKEY 133+ISAM_ERR_OFFSET /* No KEY specified on KEYED file */ |
| #define ENOBEGIN 163+ISAM_ERR_OFFSET /* No begin work yet */ |
| #define ENOCRP 117+ISAM_ERR_OFFSET /* Current record pointer undefined */ |
| #define ENOCURR 112+ISAM_ERR_OFFSET /* No current record */ |
| #define ENOLOK 115+ISAM_ERR_OFFSET /* Can't create lock file */ |
| #define ENONFS 164+ISAM_ERR_OFFSET /* Can't use nfs */ |
| #define ENOPOPEN 152+ISAM_ERR_OFFSET /* File not OPEN on NON-OPTIONAL */ |
| #define ENOREC 111+ISAM_ERR_OFFSET /* No record found */ |
| #define ENOSHMEM 162+ISAM_ERR_OFFSET /* No shared memory */ |
| #define ENOTCLOS 130+ISAM_ERR_OFFSET /* Open on file not yet closed */ |
| #define ENOTEXCL 106+ISAM_ERR_OFFSET /* Non-exclusive access */ |
| #define ENOTOPEN 101+ISAM_ERR_OFFSET /* File not open */ |
| #define ENOTRANS 161+ISAM_ERR_OFFSET /* No transaction */ |
| #define ENPRINT 134+ISAM_ERR_OFFSET /* Not a PRINT file */ |
| #define ENSTREAM 135+ISAM_ERR_OFFSET /* Not a STREAM file */ |
| #define EOPILDAM 126+ISAM_ERR_OFFSET /* Open -DAM on non-IDRECT file */ |
| #define EOPKYAPP 125+ISAM_ERR_OFFSET /* Open -APPEND on KEYED file */ |
| #define EOPKYSAM 127+ISAM_ERR_OFFSET /* Open -SAM on KEYED file */ |
| #define EOPOPEN 153+ISAM_ERR_OFFSET /* File OPEN on OPTIONAL */ |
| #define EPRIMKEY 109+ISAM_ERR_OFFSET /* Is primary key */ |
| #define ERPGSCR 149+ISAM_ERR_OFFSET /* Cannot initialize RPG screens */ |
| #define ESEQERNR 155+ISAM_ERR_OFFSET /* Sequential error no next record COBOL85 */ |
| #define ESEQERR 154+ISAM_ERR_OFFSET /* Sequential error on REW or DELE COBOL85 */ |
| #define ETOOMANY 104+ISAM_ERR_OFFSET /* Too many files open */ |
| #define ISAM_ERR_OFFSET 31 |
| #define ISAUTOLOCK 0x200 /* automatic record lock */ |
| #define ISEXCLLOCK 0x800 /* exclusive isam file lock */ |
| #define ISMANULOCK 0x400 /* manual record lock */ |
| #define ISSLEEPLOCK 0x1000 /* IAG */ |
| #define MAXKEYSIZE 120 /* max number of bytes in key */ |
| double lddbl | ( | char * | ) |
| double lddblnull | ( | char * | , |
| short * | |||
| ) |
| double ldfloat | ( | char * | ) |
| double ldfltnull | ( | char * | , |
| short * | |||
| ) |
| int ldlong | ( | char * | ) |
| int mkdatname | ( | char * | , |
| char * | |||
| ) |
| int mkidxname | ( | char * | , |
| char * | |||
| ) |
| int mklokname | ( | char * | , |
| char * | |||
| ) |
| char* is_errlist[] |
| int is_nerr |
| int iserrio |
| int iserrno |
| int isrecnum |
| char* isserial |
| int issingleuser |
| char isstat1 |
| char isstat2 |
| char* isversnumber |
1.7.6.1 
