Google
 

Trailing-Edge - PDP-10 Archives - bb-h137e-bm_tops20_v6_1_instl - new-subsys/dil.lib
There are 20 other files named dil.lib in the archive. Click here to see a list.
I&`@I&`CI' zI'@
* DIL OF DIL
* COBOL 10/20 DIL interface file
*
(* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
2* OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
<*
F* COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION 1983, 1985.
P* ALL RIGHTS RESERVED.
Z*
d* Facility: DIL
n*
x* Edit History:
*

* Edit (%O'23', '22-Oct-82', 'David Dyer-Bennet')
*     Add copyright and edit history to DILC36.INT (how did this get missed?)
 * Edit (%O'37', '24-Nov-82', 'David Dyer-Bennet')
** %(  Change values of ANSI-COBOL names for ss-normal to 0.  The value 1
4*     is the severity, which is supposed to have been stripped from these!!
>* )%
H* Edit (%O'46', '19-Jan-83', 'David Dyer-Bennet')
R* %(  Update copyright notice, mark end of edit histories.
\* )%
f* Edit (%O'73', '10-Mar-83', 'Charlotte L. Richardson')
p* %( Declare version 1.  All modules.
z* )%
* new_version (2, 0)
* Edit (%O'105', '18-May-84', 'Sandy Clemens')
*  %(  Add the following files to the V2 area.  FILES:  DILDOC.INI,
"*      DILBWR.RNO, DILC36.INT, INTR10.10-CTL, DILHST.BLI.
,*  )%
6* Edit (%O'134', '8-Oct-84', 'Sandy Clemens')
@*   %( Add new format of COPYRIGHT notice.  FILES:  ALL )%
J* **EDIT**
T*
^  02  STS-K-WARNING PIC S9(10) COMP VALUE 0.
h  02  STS-K-SUCCESS PIC S9(10) COMP VALUE 1.
r  02  STS-K-ERROR PIC S9(10) COMP VALUE 2.
|  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

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
* OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
*
(* COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION 1983, 1985.
2* ALL RIGHTS RESERVED.
<*
F* Facility: DIT
P*
Z* Edit History:
d*
n* EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson')
x* %( Change version and revision standards everywhere.  )%
*

* 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 )%
**
4* EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson')
>* %( Update copyright notices.  DITC36.INT )%
H*
R* EDIT (%O'61', '9-Mar-83', 'Charlotte L. Richardson')
\* %( Declare version 1.  All modules. )%
f*
p* new_version (2, 0)
z*
* Edit (%O'73', '18-May-84', 'Sandy Clemens')
* %( Add the following files to the V2 area.
*    FILES: DITC36.INT, DITV7.FOR
"* )%
,*
6*
@* Edit (%O'104', '8-Oct-84', 'Sandy Clemens')
J*   %( Add new format of COPYRIGHT notice.  FILES:  ALL )%
T* End of edit history
^
h02 DIT-C-HORRIBLE PIC S9(10) COMP VALUE 61210632.
r*	Internal or system error
|02 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
802 DIT-C-CHECKSUM PIC S9(10) COMP VALUE 61210664.
B*	Network checksum error.
L02 DIT-C-UNSFILETYPE PIC S9(10) COMP VALUE 61210672.
V*	Unsupported file type
`02 DIT-C-FILEINUSE PIC S9(10) COMP VALUE 61210680.
j*	File activity precludes operation
t02 DIT-C-NOFILE PIC S9(10) COMP VALUE 61210688.
~*	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
002 DIT-C-NOMOREFILES PIC S9(10) COMP VALUE 61210712.
:*	No more files
D02 DIT-C-CONNECTEVENT PIC S9(10) COMP VALUE 61211432.
N*	Connect event
X02 DIT-C-ABREJEVENT PIC S9(10) COMP VALUE 61211440.
b*	Abort/reject event
l02 DIT-C-INTDATAEVENT PIC S9(10) COMP VALUE 61211448.
v*	Interrupt data event
02 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.
2*	Abort/reject
<02 DIT-C-INTERRUPT PIC S9(10) COMP VALUE 61211840.
F*	Interrupt
P02 DIT-C-NOTENOUGH PIC S9(10) COMP VALUE 61211848.
Z*	Not enough data available
d02 DIT-C-NODATAAVAILABLE PIC S9(10) COMP VALUE 61211856.
n*	No data available
x02 DIT-C-INFONOTAVAIL PIC S9(10) COMP VALUE 61211864.
*	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
402 DIT-TYPE-ASCII PIC S9(10) COMP VALUE 1.
>*	ASCII data type
H02 DIT-TYPE-IMAGE PIC S9(10) COMP VALUE 2.
R*	Image data type
\02 DIT-MODE-READ PIC S9(10) COMP VALUE 1.
f*	Open mode to read
p02 DIT-MODE-WRITE PIC S9(10) COMP VALUE 2.
z*	Open mode to write
02 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.
6*	Record format fixed
@02 DIT-RFM-VARIABLE PIC S9(10) COMP VALUE 2.
J*	Record format variable
T02 DIT-RFM-VFC PIC S9(10) COMP VALUE 3.
^*	Record format VFC
h02 DIT-RFM-STREAM PIC S9(10) COMP VALUE 4.
r*	Record format ASCII stream
|02 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
802 DIT-RAT-FORTRAN PIC S9(10) COMP VALUE 3.
B*	Record attributes Fortran carriage control
L02 DIT-RAT-MACY11 PIC S9(10) COMP VALUE 4.
V*	Record attributes MACY11
`02 DIT-OPT-NOTHING PIC S9(10) COMP VALUE 0.
j*	Close option: do nothing
t02 DIT-OPT-SUBMIT PIC S9(10) COMP VALUE 1.
~*	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
	002 DIT-OPT-SUB-DEL PIC S9(10) COMP VALUE 5.
	:*	Close option: submit and delete
	D02 DIT-OPT-PRINT-DEL PIC S9(10) COMP VALUE 6.
	N*	Close option: print and delete
	X02 DIT-WAIT-YES PIC S9(10) COMP VALUE 1.
	b*	Wait for link
	l02 DIT-WAIT-NO PIC S9(10) COMP VALUE 0.
	v*	Do not wait for link

02 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.

2*	8-bit link type (for NFACC)

<02 DIT-MSG-MSG PIC S9(10) COMP VALUE 1.

F*	Message mode transfer

P02 DIT-MSG-STM PIC S9(10) COMP VALUE 0.

Z*	Stream mode transfer

d02 DIT-INF-NODE PIC S9(10) COMP VALUE 1.

n*	Remote node name

x02 DIT-INF-OBJECT PIC S9(10) COMP VALUE 2.
*	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
402 DIT-INF-USERID PIC S9(10) COMP VALUE 5.
>*	Remote process userid
H02 DIT-INF-PASSWD PIC S9(10) COMP VALUE 6.
R*	Remote process password
\02 DIT-INF-ACCT PIC S9(10) COMP VALUE 7.
f*	Remote process account
p02 DIT-INF-OPT PIC S9(10) COMP VALUE 8.
z*	Remote process optional data

02 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.

6*	Fire up VAX passive task

@02 DIT-PAS-NFIREUP PIC S9(10) COMP VALUE 1.

J*	Do not fire up VAX passive task

*      COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983  ALL RIGHTS RESERVED
    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-C-INVDNUMCHR PIC S9(10) COMP VALUE 60948632.
*      Invalid source display numeric character
    02  DIX-C-INVDNUMSGN PIC S9(10) COMP VALUE 60948640.
*      Invalid source display numeric sign character
$    02  DIX-C-INVPDDGT PIC S9(10) COMP VALUE 60948648.
.*      Invalid source packed decimal digit
8    02  DIX-C-INVPDSGN PIC S9(10) COMP VALUE 60948656.
B*      Invalid source packed decimal sign
L    02  DIX-DT-ASCII-7 PIC S9(10) COMP VALUE 257.
V    02  DIX-DT-ASCII-8 PIC S9(10) COMP VALUE 258.
`    02  DIX-DT-ASCIZ PIC S9(10) COMP VALUE 259.
j    02  DIX-DT-EBCDIC-8 PIC S9(10) COMP VALUE 260.
t    02  DIX-DT-EBCDIC-9 PIC S9(10) COMP VALUE 261.
~    02  DIX-DT-SIXBIT PIC S9(10) COMP VALUE 262.
    02  DIX-DT-SBF128 PIC S9(10) COMP VALUE 513.
    02  DIX-DT-SBF16 PIC S9(10) COMP VALUE 514.
    02  DIX-DT-SBF32 PIC S9(10) COMP VALUE 515.
&    02  DIX-DT-SBF36 PIC S9(10) COMP VALUE 516.
0    02  DIX-DT-SBF48 PIC S9(10) COMP VALUE 517.
:    02  DIX-DT-SBF64 PIC S9(10) COMP VALUE 518.
D    02  DIX-DT-SBF72 PIC S9(10) COMP VALUE 519.
N    02  DIX-DT-SBF8 PIC S9(10) COMP VALUE 520.
X    02  DIX-DT-SBFVAR PIC S9(10) COMP VALUE 521.
b    02  DIX-DT-UBF16 PIC S9(10) COMP VALUE 522.
l    02  DIX-DT-UBF32 PIC S9(10) COMP VALUE 523.
v    02  DIX-DT-UBF8 PIC S9(10) COMP VALUE 524.
    02  DIX-DT-UBFVAR PIC S9(10) COMP VALUE 525.

    02  DIX-DT-D-FLOAT PIC S9(10) COMP VALUE 769.
    02  DIX-DT-F-FLOAT PIC S9(10) COMP VALUE 770.
    02  DIX-DT-FLOAT-36 PIC S9(10) COMP VALUE 771.
(    02  DIX-DT-FLOAT-72 PIC S9(10) COMP VALUE 772.
2    02  DIX-DT-G-FLOAT PIC S9(10) COMP VALUE 773.
<    02  DIX-DT-G-FLOAT72 PIC S9(10) COMP VALUE 774.
F    02  DIX-DT-H-FLOAT PIC S9(10) COMP VALUE 775.
P    02  DIX-DT-DN6LO PIC S9(10) COMP VALUE 1025.
Z    02  DIX-DT-DN6LS PIC S9(10) COMP VALUE 1026.
d    02  DIX-DT-DN6TO PIC S9(10) COMP VALUE 1027.
n    02  DIX-DT-DN6TS PIC S9(10) COMP VALUE 1028.
x    02  DIX-DT-DN6U PIC S9(10) COMP VALUE 1029.
    02  DIX-DT-DN7LO PIC S9(10) COMP VALUE 1030.

    02  DIX-DT-DN7LS PIC S9(10) COMP VALUE 1031.
    02  DIX-DT-DN7TO PIC S9(10) COMP VALUE 1032.
     02  DIX-DT-DN7TS PIC S9(10) COMP VALUE 1033.
*    02  DIX-DT-DN7U PIC S9(10) COMP VALUE 1034.
4    02  DIX-DT-DN8LO PIC S9(10) COMP VALUE 1035.
>    02  DIX-DT-DN8LS PIC S9(10) COMP VALUE 1036.
H    02  DIX-DT-DN8TO PIC S9(10) COMP VALUE 1037.
R    02  DIX-DT-DN8TS PIC S9(10) COMP VALUE 1038.
\    02  DIX-DT-DN8U PIC S9(10) COMP VALUE 1039.
f    02  DIX-DT-DN9LO PIC S9(10) COMP VALUE 1040.
p    02  DIX-DT-DN9LS PIC S9(10) COMP VALUE 1041.
z    02  DIX-DT-DN9TO PIC S9(10) COMP VALUE 1042.
    02  DIX-DT-DN9TS PIC S9(10) COMP VALUE 1043.
    02  DIX-DT-DN9U PIC S9(10) COMP VALUE 1044.
    02  DIX-DT-PD8 PIC S9(10) COMP VALUE 1281.
"    02  DIX-DT-PD9 PIC S9(10) COMP VALUE 1282.