Trailing-Edge
-
PDP-10 Archives
-
BB-R775A-BM
-
subsys/dil.lib
There are 20 other files named dil.lib in the archive. Click here to see a list.
I&` @I&` CI' ~I'@ 2
* DIL OF DIL
* COBOL 10/20 DIL interface file
*
(* COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983
2*
<* The information contained in this document is subject to change
F* without notice and should not be construed as a commitment by Digital
P* Equipment Corporation. Digital assumes no responsibility for any
Z* errors that may appear in this document.
d*
n* The software described in this document is furnished under a license
x* and may only be used or copied in accordance with the terms of such
* license. Title to and ownership of the software will at all times
* remain in DEC.
*
* Digital assumes no responsibility for the use or reliability of its
** software on equipment which is not supplied by DEC.
4*
>* Facility: DIL
H*
R* Edit History:
\*
f* Edit (%O'23', '22-Oct-82', 'David Dyer-Bennet')
p* Add copyright and edit history to DILC36.INT (how did this get missed?)
z* Edit (%O'37', '24-Nov-82', 'David Dyer-Bennet')
* %( Change values of ANSI-COBOL names for ss-normal to 0. The value 1
* is the severity, which is supposed to have been stripped from these!!
* )%
"* Edit (%O'46', '19-Jan-83', 'David Dyer-Bennet')
,* %( Update copyright notice, mark end of edit histories.
6* )%
@* **EDIT**
J*
T 02 STS-K-WARNING PIC S9(10) COMP VALUE 0.
^ 02 STS-K-SUCCESS PIC S9(10) COMP VALUE 1.
h 02 STS-K-ERROR PIC S9(10) COMP VALUE 2.
r 02 STS-K-INFO PIC S9(10) COMP VALUE 3.
| 02 STS-K-SEVERE PIC S9(10) COMP VALUE 4.
02 DIX-SYS-10-20 PIC S9(10) COMP VALUE 1.
02 DIX-SYS-VAX PIC S9(10) COMP VALUE 2.
02 SS-C-NORMAL PIC S9(10) COMP VALUE 0.
$* Success
*
* Copyright (C) 1982, 1983 by
* Digital Equipment Corporation, Marlboro, Mass.
(*
2* This software is furnished under a license and may be used and
<* copied only in accordance with the terms of such license and with
F* the inclusion of the above copyright notice. This software or any
P* other copies thereof may not be provided or otherwise made available
Z* to any other person. No title to and ownership of the software is
d* hereby transferred.
n*
x* 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.
4*
>* Facility: DIT
H*
R* Edit History:
\*
f* EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson')
p* %( Change version and revision standards everywhere. )%
z*
* EDIT (%O'24', '17-Nov-82', 'Charlotte L. Richardson')
* %( COBOL-20 interface files should use only facility code, facility-specific
* bit, and message code, but not severity code. DITC36.INT QAR 8 )%
"*
,* EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson')
6* %( Update copyright notices. DITC36.INT )%
@*
J* End of edit history
T
^02 DIT-C-HORRIBLE PIC S9(10) COMP VALUE 61210632.
h* Internal or system error
r02 DIT-C-TOOMANY PIC S9(10) COMP VALUE 61210640.
|* Attempt to open too many files or links
02 DIT-C-INVARG PIC S9(10) COMP VALUE 61210648.
* Invalid argument
02 DIT-C-NETOPRFAIL PIC S9(10) COMP VALUE 61210656.
$* Network operation failed
.02 DIT-C-CHECKSUM PIC S9(10) COMP VALUE 61210664.
8* Network checksum error.
B02 DIT-C-UNSFILETYPE PIC S9(10) COMP VALUE 61210672.
L* Unsupported file type
V02 DIT-C-FILEINUSE PIC S9(10) COMP VALUE 61210680.
`* File activity precludes operation
j02 DIT-C-NOFILE PIC S9(10) COMP VALUE 61210688.
t* File not found
~02 DIT-C-EOF PIC S9(10) COMP VALUE 61210696.
* End of file
02 DIT-C-OVERRUN PIC S9(10) COMP VALUE 61210704.
* Data overrun
&02 DIT-C-NOMOREFILES PIC S9(10) COMP VALUE 61210712.
0* No more files
:02 DIT-C-CONNECTEVENT PIC S9(10) COMP VALUE 61211432.
D* Connect event
N02 DIT-C-ABREJEVENT PIC S9(10) COMP VALUE 61211440.
X* Abort/reject event
b02 DIT-C-INTDATAEVENT PIC S9(10) COMP VALUE 61211448.
l* Interrupt data event
v02 DIT-C-DATAEVENT PIC S9(10) COMP VALUE 61211456.
* Data event
02 DIT-C-DISCONNECTEVENT PIC S9(10) COMP VALUE 61211464.
* Disconnect event
02 DIT-C-ABORTREJECT PIC S9(10) COMP VALUE 61211832.
(* Abort/reject
202 DIT-C-INTERRUPT PIC S9(10) COMP VALUE 61211840.
<* Interrupt
F02 DIT-C-NOTENOUGH PIC S9(10) COMP VALUE 61211848.
P* Not enough data available
Z02 DIT-C-NODATAAVAILABLE PIC S9(10) COMP VALUE 61211856.
d* No data available
n02 DIT-C-INFONOTAVAIL PIC S9(10) COMP VALUE 61211864.
x* Information not available
02 DIT-C-INFOOUTOFRANGE PIC S9(10) COMP VALUE 61211872.
* Information out of range
02 DIT-TYPE-UNDEFINED PIC S9(10) COMP VALUE 0.
* Undefined data type
*02 DIT-TYPE-ASCII PIC S9(10) COMP VALUE 1.
4* ASCII data type
>02 DIT-TYPE-IMAGE PIC S9(10) COMP VALUE 2.
H* Image data type
R02 DIT-MODE-READ PIC S9(10) COMP VALUE 1.
\* Open mode to read
f02 DIT-MODE-WRITE PIC S9(10) COMP VALUE 2.
p* Open mode to write
z02 DIT-MODE-APPEND PIC S9(10) COMP VALUE 3.
* Open mode to append
02 DIT-RFM-UNDEFINED PIC S9(10) COMP VALUE 0.
* Record format undefined
"02 DIT-RFM-FIXED PIC S9(10) COMP VALUE 1.
,* Record format fixed
602 DIT-RFM-VARIABLE PIC S9(10) COMP VALUE 2.
@* Record format variable
J02 DIT-RFM-VFC PIC S9(10) COMP VALUE 3.
T* Record format VFC
^02 DIT-RFM-STREAM PIC S9(10) COMP VALUE 4.
h* Record format ASCII stream
r02 DIT-RAT-UNSPECIFIED PIC S9(10) COMP VALUE 0.
|* Record attributes unspecified
02 DIT-RAT-ENVELOPE PIC S9(10) COMP VALUE 1.
* Record attributes implied <LF><CR> envelope
02 DIT-RAT-PRINT PIC S9(10) COMP VALUE 2.
$* Record attributes VMS printer carriage control
.02 DIT-RAT-FORTRAN PIC S9(10) COMP VALUE 3.
8* Record attributes Fortran carriage control
B02 DIT-RAT-MACY11 PIC S9(10) COMP VALUE 4.
L* Record attributes MACY11
V02 DIT-OPT-NOTHING PIC S9(10) COMP VALUE 0.
`* Close option: do nothing
j02 DIT-OPT-SUBMIT PIC S9(10) COMP VALUE 1.
t* Close option: submit for batch processing
~02 DIT-OPT-PRINT PIC S9(10) COMP VALUE 2.
* Close option: submit for remote printing
02 DIT-OPT-DELETE PIC S9(10) COMP VALUE 4.
* Close option: delete
&02 DIT-OPT-SUB-DEL PIC S9(10) COMP VALUE 5.
0* Close option: submit and delete
:02 DIT-OPT-PRINT-DEL PIC S9(10) COMP VALUE 6.
D* Close option: print and delete
N02 DIT-WAIT-YES PIC S9(10) COMP VALUE 1.
X* Wait for link
b02 DIT-WAIT-NO PIC S9(10) COMP VALUE 0.
l* Do not wait for link
v02 DIT-LTYPE-ASCII PIC S9(10) COMP VALUE 0.
* ASCII link type (for NFACC)
02 DIT-LTYPE-BINARY PIC S9(10) COMP VALUE 1.
* Binary link type (for NFACC)
02 DIT-LTYPE-8BIT PIC S9(10) COMP VALUE 2.
(* 8-bit link type (for NFACC)
202 DIT-MSG-MSG PIC S9(10) COMP VALUE 1.
<* Message mode transfer
F02 DIT-MSG-STM PIC S9(10) COMP VALUE 0.
P* Stream mode transfer
Z02 DIT-INF-NODE PIC S9(10) COMP VALUE 1.
d* Remote node name
n02 DIT-INF-OBJECT PIC S9(10) COMP VALUE 2.
x* Remote object type
02 DIT-INF-DESCF PIC S9(10) COMP VALUE 3.
* Remote object descriptor format
02 DIT-INF-DESC PIC S9(10) COMP VALUE 4.
* Remote object descriptor
*02 DIT-INF-USERID PIC S9(10) COMP VALUE 5.
4* Remote process userid
>02 DIT-INF-PASSWD PIC S9(10) COMP VALUE 6.
H* Remote process password
R02 DIT-INF-ACCT PIC S9(10) COMP VALUE 7.
\* Remote process account
f02 DIT-INF-OPT PIC S9(10) COMP VALUE 8.
p* Remote process optional data
z02 DIT-INF-SEG PIC S9(10) COMP VALUE 9.
* Maximum segment size for the link
02 DIT-INF-ABTCODE PIC S9(10) COMP VALUE 10.
* Abort code
"02 DIT-PAS-FIREUP PIC S9(10) COMP VALUE 0.
,* Fire up VAX passive task
602 DIT-PAS-NFIREUP PIC S9(10) COMP VALUE 1.
@* Do not fire up VAX passive task
* COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983
02 DIX-C-ROUNDED PIC S9(10) COMP VALUE 60948488.
* Result is rounded
( 02 DIX-C-TOOBIG PIC S9(10) COMP VALUE 60948496.
2* Converted source field too large for destination field
< 02 DIX-C-INVDATTYP PIC S9(10) COMP VALUE 60948504.
F* Invalid data type code
P 02 DIX-C-UNKARGTYP PIC S9(10) COMP VALUE 60948512.
Z* Argument passed by descriptor is unknown type
d 02 DIX-C-UNKSYS PIC S9(10) COMP VALUE 60948520.
n* Unknown system of origin specified
x 02 DIX-C-INVLNG PIC S9(10) COMP VALUE 60948528.
* Length invalid or unspecified
02 DIX-C-INVSCAL PIC S9(10) COMP VALUE 60948536.
* Scale factor invalid or unspecified
02 DIX-C-GRAPHIC PIC S9(10) COMP VALUE 60948544.
** Graphic character changed in conversion
4 02 DIX-C-FMTLOST PIC S9(10) COMP VALUE 60948552.
>* Format effector gained or lost in conversion
H 02 DIX-C-NONPRINT PIC S9(10) COMP VALUE 60948560.
R* Non-printing character gained or lost in conversion
\ 02 DIX-C-TRUNC PIC S9(10) COMP VALUE 60948568.
f* String too long for destination -- truncated
p 02 DIX-C-UNIMP PIC S9(10) COMP VALUE 60948576.
z* Unimplemented conversion
02 DIX-C-INVALCHAR PIC S9(10) COMP VALUE 60948584.
* Invalid character in source field or conversion table
02 DIX-C-ALIGN PIC S9(10) COMP VALUE 60948592.
"* Invalid alignment for data type
, 02 DIX-C-UNNORM PIC S9(10) COMP VALUE 60948600.
6* Floating point number improperly normalized
@ 02 DIX-C-IMPOSSIBLE PIC S9(10) COMP VALUE 60948608.
J* Severe internal error
T 02 DIX-C-UNSIGNED PIC S9(10) COMP VALUE 60948616.
^* Negative value moved to unsigned field
h 02 DIX-C-INVBYTSIZ PIC S9(10) COMP VALUE 60948624.
r* Invalid byte size specified
| 02 DIX-DT-ASCII-7 PIC S9(10) COMP VALUE 257.
02 DIX-DT-ASCII-8 PIC S9(10) COMP VALUE 258.
02 DIX-DT-ASCIZ PIC S9(10) COMP VALUE 259.
02 DIX-DT-EBCDIC-8 PIC S9(10) COMP VALUE 260.
$ 02 DIX-DT-EBCDIC-9 PIC S9(10) COMP VALUE 261.
. 02 DIX-DT-SIXBIT PIC S9(10) COMP VALUE 262.
8 02 DIX-DT-SBF128 PIC S9(10) COMP VALUE 513.
B 02 DIX-DT-SBF16 PIC S9(10) COMP VALUE 514.
L 02 DIX-DT-SBF32 PIC S9(10) COMP VALUE 515.
V 02 DIX-DT-SBF36 PIC S9(10) COMP VALUE 516.
` 02 DIX-DT-SBF48 PIC S9(10) COMP VALUE 517.
j 02 DIX-DT-SBF64 PIC S9(10) COMP VALUE 518.
t 02 DIX-DT-SBF72 PIC S9(10) COMP VALUE 519.
~ 02 DIX-DT-SBF8 PIC S9(10) COMP VALUE 520.
02 DIX-DT-SBFVAR PIC S9(10) COMP VALUE 521.
02 DIX-DT-UBF16 PIC S9(10) COMP VALUE 522.
02 DIX-DT-UBF32 PIC S9(10) COMP VALUE 523.
& 02 DIX-DT-UBF8 PIC S9(10) COMP VALUE 524.
0 02 DIX-DT-UBFVAR PIC S9(10) COMP VALUE 525.
: 02 DIX-DT-D-FLOAT PIC S9(10) COMP VALUE 769.
D 02 DIX-DT-F-FLOAT PIC S9(10) COMP VALUE 770.
N 02 DIX-DT-FLOAT-36 PIC S9(10) COMP VALUE 771.
X 02 DIX-DT-FLOAT-72 PIC S9(10) COMP VALUE 772.
b 02 DIX-DT-G-FLOAT PIC S9(10) COMP VALUE 773.
l 02 DIX-DT-G-FLOAT72 PIC S9(10) COMP VALUE 774.
v 02 DIX-DT-H-FLOAT PIC S9(10) COMP VALUE 775.