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.