Google
 

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - new-subsys/dil.lib
There are 20 other files named dil.lib in the archive. Click here to see a list.
I&`@I&`CI' I'@@
* 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, 1986.
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*
T* new_version (2, 1)
^* 
h* Edit (%O'141', '1-Jun-86', 'Sandy Clemens')
r*   %( Add DIL sources to DL21: directory. )%
|*
* **EDIT**
*
  02  STS-K-WARNING PIC S9(10) COMP VALUE 0.
$  02  STS-K-SUCCESS PIC S9(10) COMP VALUE 1.
.  02  STS-K-ERROR PIC S9(10) COMP VALUE 2.
8  02  STS-K-INFO PIC S9(10) COMP VALUE 3.
B  02  STS-K-SEVERE PIC S9(10) COMP VALUE 4.
L  02  DIX-SYS-10-20 PIC S9(10) COMP VALUE 1.
V  02  DIX-SYS-VAX PIC S9(10) COMP VALUE 2.
`  02  SS-C-NORMAL PIC S9(10) COMP VALUE 0.
j*	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, 1986.
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')
@*   %( Add new format of COPYRIGHT notice.  FILES:  ALL )%
J*
T* new_version (2, 1)
^*
h* Edit (%O'112', '1-Jun-86', 'Sandy Clemens')
r*   %( Add sources for version 2.1.  Update copyright notices. )%
|*
* End of edit history
*

$02 DIT-C-HORRIBLE PIC S9(10) COMP VALUE 61210632.
.*	Internal or system error
802 DIT-C-TOOMANY PIC S9(10) COMP VALUE 61210640.
B*	Attempt to open too many files or links
L02 DIT-C-INVARG PIC S9(10) COMP VALUE 61210648.
V*	Invalid argument
`02 DIT-C-NETOPRFAIL PIC S9(10) COMP VALUE 61210656.
j*	Network operation failed
t02 DIT-C-CHECKSUM PIC S9(10) COMP VALUE 61210664.
~*	Network checksum error.
02 DIT-C-UNSFILETYPE PIC S9(10) COMP VALUE 61210672.
*	Unsupported file type
02 DIT-C-FILEINUSE PIC S9(10) COMP VALUE 61210680.
&*	File activity precludes operation
002 DIT-C-NOFILE PIC S9(10) COMP VALUE 61210688.
:*	File not found
D02 DIT-C-EOF PIC S9(10) COMP VALUE 61210696.
N*	End of file
X02 DIT-C-OVERRUN PIC S9(10) COMP VALUE 61210704.
b*	Data overrun
l02 DIT-C-NOMOREFILES PIC S9(10) COMP VALUE 61210712.
v*	No more files
02 DIT-C-CONNECTEVENT PIC S9(10) COMP VALUE 61211432.

*	Connect event
02 DIT-C-ABREJEVENT PIC S9(10) COMP VALUE 61211440.
*	Abort/reject event
(02 DIT-C-INTDATAEVENT PIC S9(10) COMP VALUE 61211448.
2*	Interrupt data event
<02 DIT-C-DATAEVENT PIC S9(10) COMP VALUE 61211456.
F*	Data event
P02 DIT-C-DISCONNECTEVENT PIC S9(10) COMP VALUE 61211464.
Z*	Disconnect event
d02 DIT-C-ABORTREJECT PIC S9(10) COMP VALUE 61211832.
n*	Abort/reject
x02 DIT-C-INTERRUPT PIC S9(10) COMP VALUE 61211840.
*	Interrupt

02 DIT-C-NOTENOUGH PIC S9(10) COMP VALUE 61211848.
*	Not enough data available
 02 DIT-C-NODATAAVAILABLE PIC S9(10) COMP VALUE 61211856.
**	No data available
402 DIT-C-INFONOTAVAIL PIC S9(10) COMP VALUE 61211864.
>*	Information not available
H02 DIT-C-INFOOUTOFRANGE PIC S9(10) COMP VALUE 61211872.
R*	Information out of range
\02 DIT-TYPE-UNDEFINED PIC S9(10) COMP VALUE 0.
f*	Undefined data type
p02 DIT-TYPE-ASCII PIC S9(10) COMP VALUE 1.
z*	ASCII data type
02 DIT-TYPE-IMAGE PIC S9(10) COMP VALUE 2.
*	Image data type
02 DIT-MODE-READ PIC S9(10) COMP VALUE 1.
"*	Open mode to read
,02 DIT-MODE-WRITE PIC S9(10) COMP VALUE 2.
6*	Open mode to write
@02 DIT-MODE-APPEND PIC S9(10) COMP VALUE 3.
J*	Open mode to append
T02 DIT-RFM-UNDEFINED PIC S9(10) COMP VALUE 0.
^*	Record format undefined
h02 DIT-RFM-FIXED PIC S9(10) COMP VALUE 1.
r*	Record format fixed
|02 DIT-RFM-VARIABLE PIC S9(10) COMP VALUE 2.
*	Record format variable
02 DIT-RFM-VFC PIC S9(10) COMP VALUE 3.
*	Record format VFC
$02 DIT-RFM-STREAM PIC S9(10) COMP VALUE 4.
.*	Record format ASCII stream
802 DIT-RAT-UNSPECIFIED PIC S9(10) COMP VALUE 0.
B*	Record attributes unspecified
L02 DIT-RAT-ENVELOPE PIC S9(10) COMP VALUE 1.
V*	Record attributes implied <LF><CR> envelope
`02 DIT-RAT-PRINT PIC S9(10) COMP VALUE 2.
j*	Record attributes VMS printer carriage control
t02 DIT-RAT-FORTRAN PIC S9(10) COMP VALUE 3.
~*	Record attributes Fortran carriage control
	02 DIT-RAT-MACY11 PIC S9(10) COMP VALUE 4.
	*	Record attributes MACY11
	02 DIT-OPT-NOTHING PIC S9(10) COMP VALUE 0.
	&*	Close option: do nothing
	002 DIT-OPT-SUBMIT PIC S9(10) COMP VALUE 1.
	:*	Close option: submit for batch processing
	D02 DIT-OPT-PRINT PIC S9(10) COMP VALUE 2.
	N*	Close option: submit for remote printing
	X02 DIT-OPT-DELETE PIC S9(10) COMP VALUE 4.
	b*	Close option: delete
	l02 DIT-OPT-SUB-DEL PIC S9(10) COMP VALUE 5.
	v*	Close option: submit and delete

02 DIT-OPT-PRINT-DEL PIC S9(10) COMP VALUE 6.


*	Close option: print and delete

02 DIT-WAIT-YES PIC S9(10) COMP VALUE 1.

*	Wait for link

(02 DIT-WAIT-NO PIC S9(10) COMP VALUE 0.

2*	Do not wait for link

<02 DIT-LTYPE-ASCII PIC S9(10) COMP VALUE 0.

F*	ASCII link type (for NFACC)

P02 DIT-LTYPE-BINARY PIC S9(10) COMP VALUE 1.

Z*	Binary link type (for NFACC)

d02 DIT-LTYPE-8BIT PIC S9(10) COMP VALUE 2.

n*	8-bit link type (for NFACC)

x02 DIT-MSG-MSG PIC S9(10) COMP VALUE 1.
*	Message mode transfer

02 DIT-MSG-STM PIC S9(10) COMP VALUE 0.
*	Stream mode transfer
 02 DIT-INF-NODE PIC S9(10) COMP VALUE 1.
**	Remote node name
402 DIT-INF-OBJECT PIC S9(10) COMP VALUE 2.
>*	Remote object type
H02 DIT-INF-DESCF PIC S9(10) COMP VALUE 3.
R*	Remote object descriptor format
\02 DIT-INF-DESC PIC S9(10) COMP VALUE 4.
f*	Remote object descriptor
p02 DIT-INF-USERID PIC S9(10) COMP VALUE 5.
z*	Remote process userid

02 DIT-INF-PASSWD PIC S9(10) COMP VALUE 6.

*	Remote process password

02 DIT-INF-ACCT PIC S9(10) COMP VALUE 7.

"*	Remote process account

,02 DIT-INF-OPT PIC S9(10) COMP VALUE 8.

6*	Remote process optional data

@02 DIT-INF-SEG PIC S9(10) COMP VALUE 9.

J*	Maximum segment size for the link

T02 DIT-INF-ABTCODE PIC S9(10) COMP VALUE 10.

^*	Abort code

h02 DIT-PAS-FIREUP PIC S9(10) COMP VALUE 0.

r*	Fire up VAX passive task

|02 DIT-PAS-NFIREUP PIC S9(10) COMP VALUE 1.
o not fire up VAX passive task

*      COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983, 1986
*      ALL RIGHTS RESERVED
    02  DIX-C-ROUNDED PIC S9(10) COMP VALUE 60948488.
(*      Result is rounded
2    02  DIX-C-TOOBIG PIC S9(10) COMP VALUE 60948496.
<*      Converted source field too large for destination field
F    02  DIX-C-INVDATTYP PIC S9(10) COMP VALUE 60948504.
P*      Invalid data type code
Z    02  DIX-C-UNKARGTYP PIC S9(10) COMP VALUE 60948512.
d*      Argument passed by descriptor is unknown type
n    02  DIX-C-UNKSYS PIC S9(10) COMP VALUE 60948520.
x*      Unknown system of origin specified
    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.
4*      Graphic character changed in conversion
>    02  DIX-C-FMTLOST PIC S9(10) COMP VALUE 60948552.
H*      Format effector gained or lost in conversion
R    02  DIX-C-NONPRINT PIC S9(10) COMP VALUE 60948560.
\*      Non-printing character gained or lost in conversion
f    02  DIX-C-TRUNC PIC S9(10) COMP VALUE 60948568.
p*      String too long for destination -- truncated
z    02  DIX-C-UNIMP PIC S9(10) COMP VALUE 60948576.
*      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
6    02  DIX-C-UNNORM PIC S9(10) COMP VALUE 60948600.
@*      Floating point number improperly normalized
J    02  DIX-C-IMPOSSIBLE PIC S9(10) COMP VALUE 60948608.
T*      Severe internal error
^    02  DIX-C-UNSIGNED PIC S9(10) COMP VALUE 60948616.
h*      Negative value moved to unsigned field
r    02  DIX-C-INVBYTSIZ PIC S9(10) COMP VALUE 60948624.
|*      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.
8*      Invalid source packed decimal digit
B    02  DIX-C-INVPDSGN PIC S9(10) COMP VALUE 60948656.
L*      Invalid source packed decimal sign
V    02  DIX-DT-ASCII-7 PIC S9(10) COMP VALUE 257.
`    02  DIX-DT-ASCII-8 PIC S9(10) COMP VALUE 258.
j    02  DIX-DT-ASCIZ PIC S9(10) COMP VALUE 259.
t    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.
    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.
0    02  DIX-DT-SBF36 PIC S9(10) COMP VALUE 516.
:    02  DIX-DT-SBF48 PIC S9(10) COMP VALUE 517.
D    02  DIX-DT-SBF64 PIC S9(10) COMP VALUE 518.
N    02  DIX-DT-SBF72 PIC S9(10) COMP VALUE 519.
X    02  DIX-DT-SBF8 PIC S9(10) COMP VALUE 520.
b    02  DIX-DT-SBFVAR PIC S9(10) COMP VALUE 521.
l    02  DIX-DT-UBF16 PIC S9(10) COMP VALUE 522.
v    02  DIX-DT-UBF32 PIC S9(10) COMP VALUE 523.
    02  DIX-DT-UBF8 PIC S9(10) COMP VALUE 524.

    02  DIX-DT-UBFVAR PIC S9(10) COMP VALUE 525.
    02  DIX-DT-UBF128 PIC S9(10) COMP VALUE 526.
    02  DIX-DT-UBF36 PIC S9(10) COMP VALUE 527.
(    02  DIX-DT-UBF64 PIC S9(10) COMP VALUE 528.
2    02  DIX-DT-UBF72 PIC S9(10) COMP VALUE 529.
<    02  DIX-DT-D-FLOAT PIC S9(10) COMP VALUE 769.
F    02  DIX-DT-F-FLOAT PIC S9(10) COMP VALUE 770.
P    02  DIX-DT-FLOAT-36 PIC S9(10) COMP VALUE 771.
Z    02  DIX-DT-FLOAT-72 PIC S9(10) COMP VALUE 772.
d    02  DIX-DT-G-FLOAT PIC S9(10) COMP VALUE 773.
n    02  DIX-DT-G-FLOAT72 PIC S9(10) COMP VALUE 774.
x    02  DIX-DT-H-FLOAT PIC S9(10) COMP VALUE 775.
    02  DIX-DT-D-CMPLX PIC S9(10) COMP VALUE 776.

    02  DIX-DT-F-CMPLX PIC S9(10) COMP VALUE 777.
    02  DIX-DT-F-CMPLX36 PIC S9(10) COMP VALUE 778.
     02  DIX-DT-G-CMPLX PIC S9(10) COMP VALUE 779.
*    02  DIX-DT-H-CMPLX PIC S9(10) COMP VALUE 780.
4    02  DIX-DT-DN6LO PIC S9(10) COMP VALUE 1025.
>    02  DIX-DT-DN6LS PIC S9(10) COMP VALUE 1026.
H    02  DIX-DT-DN6TO PIC S9(10) COMP VALUE 1027.
R    02  DIX-DT-DN6TS PIC S9(10) COMP VALUE 1028.
\    02  DIX-DT-DN6U PIC S9(10) COMP VALUE 1029.
f    02  DIX-DT-DN7LO PIC S9(10) COMP VALUE 1030.
p    02  DIX-DT-DN7LS PIC S9(10) COMP VALUE 1031.
z    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.
    02  DIX-DT-DN8LO PIC S9(10) COMP VALUE 1035.
"    02  DIX-DT-DN8LS PIC S9(10) COMP VALUE 1036.
,    02  DIX-DT-DN8TO PIC S9(10) COMP VALUE 1037.
6    02  DIX-DT-DN8TS PIC S9(10) COMP VALUE 1038.
@    02  DIX-DT-DN8U PIC S9(10) COMP VALUE 1039.
J    02  DIX-DT-DN9LO PIC S9(10) COMP VALUE 1040.
T    02  DIX-DT-DN9LS PIC S9(10) COMP VALUE 1041.
^    02  DIX-DT-DN9TO PIC S9(10) COMP VALUE 1042.
h    02  DIX-DT-DN9TS PIC S9(10) COMP VALUE 1043.
r    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.