Google
 

Trailing-Edge - PDP-10 Archives - BB-R775B-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.