Trailing-Edge
-
PDP-10 Archives
-
BB-5372C-BM
-
demo/truptr.cbl
There is 1 other file named truptr.cbl in the archive. Click here to see a list.
00100 IDENTIFICATION DIVISION.
00200 PROGRAM-ID. TRUPTR.
00300 *
00400 * THIS PROGRAM IS THE RECEIVER HALF OF THE TWO PROGRAMS WHICH MEASURE THE
00500 * THROUGH-PUT OF THE COBOL INTERPROGRAM COMMUNICATION ROUTINES. IT RECEIVES
00600 * A CONTINUOUS STREAM OF FULL LENGTH SIXBIT MESSAGES FROM THE SENDER PROGRAM.
00700 * IT STOPS RECEIVING WHEN TERMINAL INPUT IS DETECTED AND COMPUTES THE
00800 * APPROXIMATE THROUGH-PUT VALUE IN MESSAGES PER SECOND.
00900 *
01000 DATA DIVISION.
01100 WORKING-STORAGE SECTION.
01200 77 ERROR-CODE PIC S9(10) COMP.
01300 77 FUNCTION-CODE PIC S9(10) COMP.
01400 77 RESUME-CONDITIONS PIC S9(10) COMP VALUE 3.
01500 77 MY-ID PIC X(29) DISPLAY-7 VALUE "THRUPUT-RECEIVER".
01600 77 TTY-MSG PIC X(10) DISPLAY-7.
01700 77 START-TIME PIC 9(10) COMP.
01800 77 TIME-INTERVAL PIC 9(5) COMP.
01900 77 THRU-PUT PIC 999V99.
02000 77 MSG-COUNT PIC 9(9) COMP VALUE 0.
02100 77 STIME PIC 9(10) COMP.
02200 01 TODAY-FIELDS.
02300