Trailing-Edge
-
PDP-10 Archives
-
bb-r775e-bm_tops20_ks_upd_5
-
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.