Trailing-Edge
-
PDP-10 Archives
-
BB-AE97A-BM
-
uetp/lib/ct36t1.cbl
There are 20 other files named ct36t1.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID.
CT36T1.
AUTHOR.
DIGITAL EQUIPMENT CORPORATION.
This is a test program for the DIT. It opens a passive link
and then connects to itself creating an active link. User
specified messages are sent both directions across the link,
and then the link is closed.
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983.
This software is furnished under a license and may be used and
copied only in accordance with the terms of such license and
with the inclusion of the above copyright notice. This
software or any other copies thereof may not be provided or
otherwise made available to any other person. No title to and
ownership of the software is hereby transferred.
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.
*
* Facility: DIT-TEST
*
* Edit History:
*
* new_version (1, 0)
*
* Edit (%O'1', '15-Dec-82', 'Sandy Clemens')
* %( Add the DIT (Dap and Task-to-task) Installation Verification tests
* for the VAX and DECSYSTEM-20 to the library.
* Files: DITTHST.TXT (NEW), CD32T1.VAX-COB (NEW),
* CT32T1.VAX-COB (NEW), FD32T1.VAX-FOR (NEW),
* FT32T1.VAX-FOR (NEW), CD36T1.CBL (NEW), CT36T1.CBL (NEW),
* FD6T1.FOR (NEW), FD7T1.FOR (NEW), FT6T1.FOR (NEW),
* FT7T1.FOR (NEW) )%
*
* Edit (%O'2', '14-Jan-83', 'Sandy Clemens')
* %( Many edits to the Installation Verification system (ICS) files.
* Add SYS: to all the 10/20 programs in the COPY or INCLUDE
* statement for the interface files. Add SYS$LIBRARY to the VAX
* programs in the COPY or INCLUDE statement for the interface
* files. Add check for INFO or SUCCESS status return in all ICS
* programs. Remove node names from all DIT programs so that local
* node is used. Change directory used by 20 DAP programs to be
* PS:<DIL-TEST> with password DIL-TEST. Remove all directory
* specifications from VMS programs so they use the default
* connected directory. Add Lib$Match_Cond to VMS programs for
* status checking. Change some of the symbolic variable names for
* clarification. Change use of numeric parameter values to
* symbolic variable names. Get rid of use of "IMPLICIT INTEGER"
* in FORTRAN test programs. Add copyright notice to everything.
*
* Files: CD32T1.VAX-COB, CD36T1.CBL, CT32T1.VAX-COB, CT36T1.CBL,
* FD32T1.VAX-FOR, FD6T1.FOR, FD7T1.FOR, FT32T1.VAX-FOR, FT6T1.FOR,
* FT7T1.FOR, DITTHST.TXT )%
*
* Edit (%O'6', '25-Jan-83', 'Sandy Clemens')
* %( Add copyright and liability waiver to whatever needs it.
* FILES: CD32T1.VAX-COB, CD36T1.CBL, CT32T1.VAX-COB, CT36T1.CBL,
* FD32T1.VAX-FOR, FD6T1.FOR, FD7T1.FOR, FT32T1.VAX-FOR, FT6T1.FOR,
* FT7T1.FOR, SUB6D1.FOR, SUB6T1.FOR, SUB7D1.FOR, SUB7T1.FOR )%
*
* Edit (%O'7', '25-Jan-83', 'Sandy Clemens')
* %( Standardize "Author" entry in ICS Cobol programs.
* FILES: CD32T1.VAX-COB, CD36T1.CBL, CT32T1.VAX-COB, CT36T1.CBL )%
INSTALLATION.
DEC-MARLBORO.
DATE-WRITTEN.
NOVEMBER 5, 1982.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.
DECSYSTEM-20.
OBJECT-COMPUTER.
DECSYSTEM-20.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INTERFACE-FILES.
COPY DIT OF "SYS:DIL.LIB".
COPY DIL OF "SYS:DIL.LIB".
* Dilini is necessary for DECsystem-10 and DECSYSTEM-20 Cobol only
01 DILINI-PARAMS.
05 DIL-INIT-STATUS PIC S9(10) COMP.
05 DIL-STATUS PIC S9(10) COMP.
05 DIL-MESSAGE PIC S9(10) COMP.
05 DIL-SEVERITY PIC S9(10) COMP.
01 DIL-DATA-FLDS.
05 SEND-DATA PIC X(100) USAGE DISPLAY-7.
05 RECEIVE-DATA PIC X(100) USAGE DISPLAY-7.
01 COUNT-OPT-DATA PIC S9(10) COMP.
01 OPT-DATA PIC X(16) DISPLAY-7 VALUE SPACES.
01 PNETLN PIC S9(10) COMP.
01 ANETLN PIC S9(10) COMP.
01 HOSTN PIC X(06) DISPLAY-7 VALUE SPACES.
01 OBJID PIC X(16) DISPLAY-7.
01 DESCR PIC X(16) DISPLAY-7.
01 TASKNAME PIC X(16) DISPLAY-7.
01 USERID PIC X(39) DISPLAY-7 VALUE SPACES.
01 PASSWD PIC X(39) DISPLAY-7 VALUE SPACES.
01 ACCT PIC X(39) DISPLAY-7 VALUE SPACES.
01 MESSAGE-SIZE PIC S9(10) COMP VALUE 100.
01 MESSAGE-SIZE-UNITS PIC S9(10) COMP VALUE 7.
01 SYNCH-DISCONN PIC S9(10) COMP VALUE 0.
PROCEDURE DIVISION.
SETUP-RETURN-CODES.
* Set up for return code values, using DILINI routine
ENTER MACRO DILINI USING DIL-INIT-STATUS, DIL-STATUS,
DIL-MESSAGE, DIL-SEVERITY.
IF DIL-INIT-STATUS NOT = 1
DISPLAY "? Invalid return code from DILINI routine = " DIL-INIT-STATUS.
OPEN-PASSIVE.
* Open a passive link.
MOVE SPACES TO OBJID.
MOVE SPACES TO DESCR.
MOVE "SERVER" TO TASKNAME.
ENTER MACRO NFOPP USING PNETLN, OBJID, DESCR, TASKNAME, DIT-WAIT-NO.
DISPLAY " NFOPP Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFOPP: unsuccessful status return "
STOP RUN.
CONNECT-TO-SELF.
* Ask for a connection to the passive link
MOVE "TASK" TO OBJID.
MOVE "SERVER" TO DESCR.
MOVE SPACES TO TASKNAME.
ENTER MACRO NFOPA USING ANETLN, HOSTN, OBJID, DESCR, TASKNAME,
USERID, PASSWD, ACCT, OPT-DATA, DIT-WAIT-NO.
DISPLAY " NFOPA Status return: ", DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFOPA: Invalid status returned. "
STOP RUN.
CHECK-THE-LINK.
* Wait for confirmation of the link request
ENTER MACRO NFGND USING PNETLN, DIT-WAIT-YES.
DISPLAY " NFGND Status return: ", DIL-STATUS.
IF DIL-MESSAGE = DIT-C-CONNECTEVENT NEXT SENTENCE
ELSE DISPLAY "? NFGND: Invalid status returned: "
STOP RUN.
ACCEPT-LINK.
* Accept link from self
ENTER MACRO NFACC USING PNETLN, DIT-LTYPE-ASCII, COUNT-OPT-DATA, OPT-DATA.
DISPLAY " NFACC Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFACC: unsuccessful status return "
STOP RUN.
SEND-SOME-DATA.
* Send some data over the link to self
DISPLAY " Enter some data to be sent over the link: ".
ACCEPT SEND-DATA.
ENTER MACRO NFSND USING ANETLN, MESSAGE-SIZE-UNITS, MESSAGE-SIZE,
SEND-DATA, DIT-MSG-MSG.
DISPLAY " NFSND Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFSND: unsuccessful status return "
STOP RUN.
READ-THE-DATA.
* Read the data sent over the link
ENTER MACRO NFRCV USING PNETLN, MESSAGE-SIZE-UNITS, MESSAGE-SIZE,
RECEIVE-DATA, DIT-MSG-MSG, DIT-WAIT-YES.
DISPLAY " NFRCV Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFRCV: unsuccessful status return "
STOP RUN.
DISPLAY " Data received: ".
DISPLAY RECEIVE-DATA.
SEND-SOME-DATA-BACK.
* Send some data over the link in the opposite direction.
MOVE SPACES TO SEND-DATA RECEIVE-DATA.
DISPLAY " Enter some data to be sent back over the link: ".
ACCEPT SEND-DATA.
ENTER MACRO NFSND USING PNETLN, MESSAGE-SIZE-UNITS, MESSAGE-SIZE,
SEND-DATA, DIT-MSG-MSG.
DISPLAY " NFSND Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFSND: unsuccessful status return "
STOP RUN.
READ-THE-2ND-DATA.
* Read the data sent over the link the second time
ENTER MACRO NFRCV USING ANETLN, MESSAGE-SIZE-UNITS, MESSAGE-SIZE,
RECEIVE-DATA, DIT-MSG-MSG, DIT-WAIT-YES.
DISPLAY " NFRCV Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFRCV: unsuccessful status return "
STOP RUN.
DISPLAY " Data received: ".
DISPLAY RECEIVE-DATA.
CLOSE-LINK.
* Close the link to self
ENTER MACRO NFCLS USING ANETLN, SYNCH-DISCONN, COUNT-OPT-DATA, OPT-DATA.
DISPLAY " NFCLS Status return: " DIL-STATUS.
IF DIL-SEVERITY NOT = STS-K-SUCCESS
AND DIL-SEVERITY NOT = STS-K-INFO
DISPLAY "? NFCLS: unsuccessful status return "
STOP RUN.
ENTER MACRO NFGND USING PNETLN, DIT-WAIT-YES.
DISPLAY " NFGND Status return: " DIL-STATUS.
IF DIL-MESSAGE NOT = DIT-C-ABREJEVENT AND
DIL-MESSAGE NOT = DIT-C-DISCONNECTEVENT AND
DIL-SEVERITY NOT = STS-K-SUCCESS
DISPLAY "? NFGND: Invalid status returned"
STOP RUN.
DISPLAY " ".
DISPLAY " CT36T1 test successful. ".
STOP RUN.