Quellcode-Bibliothek cm101m.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         CM1014.2
000200 PROGRAM-ID.                                                      CM1014.2
000300     CM101M.                                                      CM1014.2
000400 AUTHOR.                                                          CM1014.2
000500     FEDERAL COMPILER TESTING CENTER.                             CM1014.2
000600 INSTALLATION.                                                    CM1014.2
000700     GENERAL SERVICES ADMINISTRATION                              CM1014.2
000800     AUTOMATED DATA AND TELECOMMUNICATION SERVICE.                CM1014.2
000900     SOFTWARE DEVELOPMENT OFFICE.                                 CM1014.2
001000     5203 LEESBURG PIKE  SUITE 1100                               CM1014.2
001100     FALLS CHURCH VIRGINIA 22041.                                 CM1014.2
001200                                                                  CM1014.2
001300     PHONE   (703) 756-6153                                       CM1014.2
001400                                                                  CM1014.2
001500     " HIGH ".                                              CM1014.2
001600 DATE-WRITTEN.                                                    CM1014.2
001700     CCVS-74 VERSION 4.0 - 1980 JULY 1.                           CM1014.2
001800     CREATION DATE     /    VALIDATION DATE                       CM1014.2
001900     "4.2 ".                                                      CM1014.2
002000 SECURITY.                                                        CM1014.2
002100     NONE.                                                        CM1014.2
002200 ENVIRONMENT DIVISION.                                            CM1014.2
002300 CONFIGURATION SECTION.                                           CM1014.2
002400 SOURCE-COMPUTER.                                                 CM1014.2
002500     Card0130.                                                    CM1014.2
002600 OBJECT-COMPUTER.                                                 CM1014.2
002700     Card0131.                                                    CM1014.2
002800 INPUT-OUTPUT SECTION.                                            CM1014.2
002900 FILE-CONTROL.                                                    CM1014.2
003000     SELECT PRINT-FILE ASSIGN TO                                  CM1014.2
003100     "C0085" .                                                    CM1014.2
003200 DATA DIVISION.                                                   CM1014.2
003300 FILE SECTION.                                                    CM1014.2
003400 FD  PRINT-FILE                                                   CM1014.2
003500     LABEL RECORDS                                                CM1014.2
003600     Card0132                                                     CM1014.2
003700     DATA RECORD IS PRINT-REC DUMMY-RECORD.                       CM1014.2
003800 01  PRINT-REC PICTURE X(120).                                    CM1014.2
003900 01  DUMMY-RECORD PICTURE X(120).                                 CM1014.2
004000 WORKING-STORAGE SECTION.                                         CM1014.2
004100 77  PASSWORD1 PIC X(10) VALUE                                    CM1014.2
004200     "C0049" .                                                    CM1014.2
004300 77  DISABLE-STATUS PIC XX VALUE "99".                            CM1014.2
004400 77  POLL-COUNT PIC 9(8).                                         CM1014.2
004500 77  INIT-TIME PIC 9(8).                                          CM1014.2
004600 77  COMP-TIME PIC 9(8).                                          CM1014.2
004700 01  SYSTEM-TIME.                                                 CM1014.2
004800     02  SYS-HRS PIC 99.                                          CM1014.2
004900     02  SYS-MINS PIC 99.                                         CM1014.2
005000     02  SYS-SECS PIC 99V99.                                      CM1014.2
005100 01  MSG-TIME.                                                    CM1014.2
005200     02  HOURS PIC 99.                                            CM1014.2
005300     02  MINUTES PIC 99.                                          CM1014.2
005400     02  SECONDS PIC 99V99.                                       CM1014.2
005500 01  SPEC-LINE-1.                                                 CM1014.2
005600     02  FILLER PIC X(40) VALUE                                   CM1014.2
005700     " INITIAL ENABLE RETURNED STATUS CODE OF ".                  CM1014.2
005800     02  INIT-ENABLE-STATUS PIC XX.                               CM1014.2
005900 01  INCOMING-MSG.                                                CM1014.2
006000     02  KILL-FIELD PIC X(4).                                     CM1014.2
006100     02  FILLER PIC X(68).                                        CM1014.2
006200 01  LOG-HDR-1.                                                   CM1014.2
006300     02  FILLER PIC X(48) VALUE SPACES.                           CM1014.2
006400     02  FILLER PIC X(24) VALUE "LOG OF INCOMING MESSAGES".       CM1014.2
006500 01  LOG-HDR-2.                                                   CM1014.2
006600     02  FILLER PIC X VALUE SPACE.                                CM1014.2
006700     02  FILLER PIC X(19) VALUE "SYMBOLIC SOURCE IS ".            CM1014.2
006800     02  SYM-SOURCE PIC X(25).                                    CM1014.2
006900     02  FILLER PIC X(16) VALUE "MESSAGE DATE IS ".               CM1014.2
007000     02  MSG-DATE PIC 9(6) VALUE ZERO.                            CM1014.2
007100 01  LOG-HDR-3.                                                   CM1014.2
007200     02  FILLER PIC X VALUE SPACE.                                CM1014.2
007300     02  FILLER PIC X(12) VALUE "TIME RECVD".                    CM1014.2
007400     02  FILLER PIC X(9) VALUE "LOG LAG".                         CM1014.2
007500     02  FILLER PIC X(7) VALUE "LENGTH".                          CM1014.2
007600     02  FILLER PIC X(4) VALUE "END".                             CM1014.2
007700     02  FILLER PIC X(3) VALUE "QD".                              CM1014.2
007800     02  FILLER PIC X(40) VALUE "POLL COUNT".                     CM1014.2
007900     02  FILLER PIC X(16) VALUE "MESSAGE CONTENTS".               CM1014.2
008000 01  LOG-HDR-4.                                                   CM1014.2
008100     02  FILLER PIC X VALUE SPACE.                                CM1014.2
008200     02  FILLER PIC X(11) VALUE ALL "-".                          CM1014.2
008300     02  FILLER PIC X VALUE SPACES.                               CM1014.2
008400     02  FILLER PIC X(7) VALUE ALL "-".                           CM1014.2
008500     02  FILLER PIC X(2) VALUE SPACES.                            CM1014.2
008600     02  FILLER PIC X(6) VALUE ALL "-".                           CM1014.2
008700     02  FILLER PIC X VALUE SPACE.                                CM1014.2
008800     02  FILLER PIC XXX VALUE "---".                              CM1014.2
008900     02  FILLER PIC X VALUE SPACES.                               CM1014.2
009000     02  FILLER PIC XX VALUE "--".                                CM1014.2
009100     02  FILLER PIC X VALUE SPACES.                               CM1014.2
009200     02  FILLER PIC X(10) VALUE ALL "-".                          CM1014.2
009300     02  FILLER PIC X(2) VALUE SPACES.                            CM1014.2
009400     02  FILLER PIC X(72) VALUE ALL "-".                          CM1014.2
009500 01  LOG-LINE.                                                    CM1014.2
009600     02  FILLER PIC X VALUE SPACE.                                CM1014.2
009700     02  RECEIPT-TIME.                                            CM1014.2
009800         03  HOURS PIC 99.                                        CM1014.2
009900         03  FILLER PIC X VALUE ":".                              CM1014.2
010000         03  MINUTES PIC 99.                                      CM1014.2
010100         03  FILLER PIC X VALUE ":".                              CM1014.2
010200         03  SECONDS PIC 99.99.                                   CM1014.2
010300     02  LAG-TIME PIC -(4)9.99.                                   CM1014.2
010400     02  FILLER PIC XX VALUE SPACES.                              CM1014.2
010500     02  MESSAGE-LENGTH PIC ZZZ9.                                 CM1014.2
010600     02  FILLER PIC XXX VALUE SPACES.                             CM1014.2
010700     02  SENTINEL PIC XXX.                                        CM1014.2
010800     02  FILLER PIC X VALUE SPACES.                               CM1014.2
010900     02  QUEUE-DEPTH PIC 99.                                      CM1014.2
011000     02  FILLER PIC X VALUE SPACES.                               CM1014.2
011100     02  IDLE-COUNT PIC ZZ,ZZZ,ZZ9.                               CM1014.2
011200     02  IDLE-OVERFLOW REDEFINES IDLE-COUNT PIC X(10).            CM1014.2
011300     02  FILLER PIC XX VALUE SPACES.                              CM1014.2
011400     02  MSG PIC X(72).                                           CM1014.2
011500     66  LONG-NARRATIVE RENAMES LAG-TIME THRU MSG.                CM1014.2
011600     66  SHORT-NARRATIVE RENAMES IDLE-COUNT THRU MSG.             CM1014.2
011700 01  TEST-RESULTS.                                                CM1014.2
011800     02 FILLER                    PICTURE X VALUE SPACE.          CM1014.2
011900     02 FEATURE                   PICTURE X(18).                  CM1014.2
012000     02 FILLER                    PICTURE X VALUE SPACE.          CM1014.2
012100     02 P-OR-F                    PICTURE X(5).                   CM1014.2
012200     02 FILLER                    PICTURE X  VALUE SPACE.         CM1014.2
012300     02  PAR-NAME PIC X(20).                                      CM1014.2
012400     02 FILLER                    PICTURE X VALUE SPACE.          CM1014.2
012500     02  COMPUTED-A.                                              CM1014.2
012600         03  FILLER PIC X(9) VALUE SPACES.                        CM1014.2
012700         03  COMPUTED-STATUS PIC XX.                              CM1014.2
012800         03  FILLER PIC X(9) VALUE SPACES.                        CM1014.2
012900     02 FILLER                    PICTURE X VALUE SPACE.          CM1014.2
013000     02  CORRECT-A.                                               CM1014.2
013100         03  FILLER PIC X(9) VALUE SPACES.                        CM1014.2
013200         03  CORRECT-STATUS PIC XX.                               CM1014.2
013300         03  FILLER PIC X(9) VALUE SPACES.                        CM1014.2
013400     02 FILLER                    PICTURE X VALUE SPACE.          CM1014.2
013500     02 RE-MARK                   PICTURE X(30).                  CM1014.2
013600 01  COLUMNS-LINE-1.                                              CM1014.2
013700     02  FILLER PIC X(3) VALUE SPACES.                            CM1014.2
013800     02  FILLER PIC X(17) VALUE "FEATURE TESTED".                 CM1014.2
013900     02  FILLER PIC X(9) VALUE "RESLT".                           CM1014.2
014000     02  FILLER PIC X(21) VALUE "PARAGRAPH NAME".                 CM1014.2
014100     02  FILLER PIC X(22) VALUE "COMPUTED DATA".                  CM1014.2
014200     02  FILLER PIC X(29) VALUE "CORRECT DATA".                   CM1014.2
014300     02  FILLER PIC X(7) VALUE "REMARKS".                         CM1014.2
014400 01  COLUMNS-LINE-2.                                              CM1014.2
014500     02  FILLER PIC X VALUE SPACE.                                CM1014.2
014600     02  FILLER PIC X(18) VALUE ALL "-".                          CM1014.2
014700     02  FILLER PIC X VALUE SPACE.                                CM1014.2
014800     02  FILLER PIC X(5) VALUE ALL "-".                           CM1014.2
014900     02  FILLER PIC X VALUE SPACE.                                CM1014.2
015000     02  FILLER PIC X(20) VALUE ALL "-".                          CM1014.2
015100     02  FILLER PIC X VALUE SPACE.                                CM1014.2
015200     02  FILLER PIC X(20) VALUE ALL "-".                          CM1014.2
015300     02  FILLER PIC X VALUE SPACE.                                CM1014.2
015400     02  FILLER PIC X(20) VALUE ALL "-".                          CM1014.2
015500     02  FILLER PIC X VALUE SPACE.                                CM1014.2
015600     02  FILLER PIC X(31) VALUE ALL "-".                          CM1014.2
015700 01  REC-SKL-SUB PICTURE 9(2) VALUE ZERO.                         CM1014.2
015800 01  REC-CT PICTURE 99 VALUE ZERO.                                CM1014.2
015900 01  DELETE-CNT                   PICTURE 999  VALUE ZERO.        CM1014.2
016000 01  ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO.                  CM1014.2
016100 01  INSPECT-COUNTER PIC 999 VALUE ZERO.                          CM1014.2
016200 01  PASS-COUNTER PIC 999 VALUE ZERO.                             CM1014.2
016300 01  TOTAL-ERROR PIC 999 VALUE ZERO.                              CM1014.2
016400 01  ERROR-HOLD PIC 999 VALUE ZERO.                               CM1014.2
016500 01  DUMMY-HOLD PIC X(120) VALUE SPACE.                           CM1014.2
016600 01  RECORD-COUNT PIC 9(5) VALUE ZERO.                            CM1014.2
016700 01  CCVS-H-1.                                                    CM1014.2
016800     02  FILLER   PICTURE X(27)  VALUE SPACE.                     CM1014.2
016900     02 FILLER PICTURE X(67) VALUE                                CM1014.2
017000     " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION CM1014.2
017100-    " SYSTEM".                                                   CM1014.2
017200     02  FILLER     PICTURE X(26)  VALUE SPACE.                   CM1014.2
017300 01  CCVS-H-2.                                                    CM1014.2
017400     02 FILLER PICTURE X(52) VALUE IS                             CM1014.2
017500     "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.".                   CM1014.2
017600     02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ".   CM1014.2
017700     02 TEST-ID PICTURE IS X(9).                                  CM1014.2
017800     02 FILLER PICTURE IS X(40) VALUE IS SPACE.                   CM1014.2
017900 01  CCVS-H-3.                                                    CM1014.2
018000     02  FILLER PICTURE X(34) VALUE                               CM1014.2
018100     " FOR OFFICIAL USE ONLY ".                                CM1014.2
018200     02  FILLER PICTURE X(58) VALUE                               CM1014.2
018300     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".CM1014.2
018400     02  FILLER PICTURE X(28) VALUE                               CM1014.2
018500     " COPYRIGHT 1974 ".                                       CM1014.2
018600 01  CCVS-E-1.                                                    CM1014.2
018700     02 FILLER PICTURE IS X(52) VALUE IS SPACE.                   CM1014.2
018800     02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ".        CM1014.2
018900     02 ID-AGAIN PICTURE IS X(9).                                 CM1014.2
019000     02 FILLER PICTURE X(45) VALUE IS                             CM1014.2
019100     " NTIS DISTRIBUTION COBOL 74".                               CM1014.2
019200 01  CCVS-E-2.                                                    CM1014.2
019300     02  FILLER                   PICTURE X(31)  VALUE            CM1014.2
019400     SPACE.                                                       CM1014.2
019500     02  FILLER                   PICTURE X(21)  VALUE SPACE.     CM1014.2
019600     02 CCVS-E-2-2.                                               CM1014.2
019700         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            CM1014.2
019800         03 FILLER PICTURE IS X VALUE IS SPACE.                   CM1014.2
019900         03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED".      CM1014.2
020000 01  CCVS-E-3.                                                    CM1014.2
020100     02  FILLER PICTURE X(22) VALUE                               CM1014.2
020200     " FOR OFFICIAL USE ONLY".                                    CM1014.2
020300     02  FILLER PICTURE X(12) VALUE SPACE.                        CM1014.2
020400     02  FILLER PICTURE X(58) VALUE                               CM1014.2
020500     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".CM1014.2
020600     02  FILLER PICTURE X(13) VALUE SPACE.                        CM1014.2
020700     02 FILLER PIC X(15) VALUE " COPYRIGHT 1974".                 CM1014.2
020800 01  CCVS-E-4.                                                    CM1014.2
020900     02 CCVS-E-4-1 PIC XXX VALUE SPACE.                           CM1014.2
021000     02 FILLER PIC XXXX VALUE " OF ".                             CM1014.2
021100     02 CCVS-E-4-2 PIC XXX VALUE SPACE.                           CM1014.2
021200     02 FILLER PIC X(40) VALUE                                    CM1014.2
021300      " TESTS WERE EXECUTED SUCCESSFULLY".                       CM1014.2
021400 01  XXINFO.                                                      CM1014.2
021500     02 FILLER PIC X(30) VALUE " *** INFORMATION ***".    CM1014.2
021600     02 INFO-TEXT.                                                CM1014.2
021700     04 FILLER PIC X(20) VALUE SPACE.                             CM1014.2
021800     04 XXCOMPUTED PIC X(20).                                     CM1014.2
021900     04 FILLER PIC X(5) VALUE SPACE.                              CM1014.2
022000     04 XXCORRECT PIC X(20).                                      CM1014.2
022100 01  HYPHEN-LINE.                                                 CM1014.2
022200     02 FILLER PICTURE IS X VALUE IS SPACE.                       CM1014.2
022300     02 FILLER PICTURE IS X(65) VALUE IS "************************CM1014.2
022400-    "*****************************************".                 CM1014.2
022500     02 FILLER PICTURE IS X(54) VALUE IS "************************CM1014.2
022600-    "******************************".                            CM1014.2
022700 01  CCVS-PGM-ID PIC X(6) VALUE                                   CM1014.2
022800     "CM101M".                                                    CM1014.2
022900*COMMUNICATION SECTION.                                           CM1014.2
023000*CD  CM-INQUE-1 FOR INPUT                                         CM1014.2
023100*    SYMBOLIC QUEUE IS MAIN-QUEUE                                 CM1014.2
023200*    SYMBOLIC SUB-QUEUE-1 IS NO-SPEC-1                            CM1014.2
023300*    SYMBOLIC SUB-QUEUE-2 IS NO-SPEC-2                            CM1014.2
023400*    SYMBOLIC SUB-QUEUE-3 IS NO-SPEC-3                            CM1014.2
023500*    MESSAGE DATE IS DATE-RECEIVED                                CM1014.2
023600*    MESSAGE TIME IS TIME-RECEIVED                                CM1014.2
023700*    SYMBOLIC SOURCE IS WHERE-FROM                                CM1014.2
023800*    TEXT LENGTH IS MSG-LENGTH                                    CM1014.2
023900*    END KEY IS END-KEY                                           CM1014.2
024000*    STATUS KEY IS STATUS-KEY                                     CM1014.2
024100*    MESSAGE COUNT IS MSG-COUNT.                                  CM1014.2
024200 PROCEDURE    DIVISION.                                           CM1014.2
024300 SECT-CM101M-0001 SECTION.                                        CM1014.2
024400 CM101M-INIT.                                                     CM1014.2
024500     OPEN     OUTPUT PRINT-FILE.                                  CM1014.2
024600     MOVE "CM101M " TO TEST-ID.                               CM1014.2
024700     MOVE     TEST-ID TO ID-AGAIN.                                CM1014.2
024800     MOVE    SPACE TO TEST-RESULTS.                               CM1014.2
024900     PERFORM HEAD-ROUTINE.                                        CM1014.2
025000     MOVE                                                         CM1014.2
025100     "C0048"                                                      CM1014.2
025200     TO MAIN-QUEUE.                                               CM1014.2
025300     MOVE SPACES TO NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.                CM1014.2
025400*    ENABLE INPUT  CM-INQUE-1 WITH KEY                            CM1014.2
025500*    "C0049" .                                                    CM1014.2
025600     MOVE STATUS-KEY TO INIT-ENABLE-STATUS.                       CM1014.2
025700     MOVE SPEC-LINE-1 TO PRINT-REC.                               CM1014.2
025800     WRITE PRINT-REC                                              CM1014.2
025900         AFTER 2 LINES.                                           CM1014.2
026000     MOVE HYPHEN-LINE TO PRINT-REC.                               CM1014.2
026100     WRITE PRINT-REC                                              CM1014.2
026200         AFTER 2 LINES.                                           CM1014.2
026300 LOG-INIT.                                                        CM1014.2
026400     MOVE ZERO TO POLL-COUNT.                                     CM1014.2
026500     MOVE ALL "*" TO MSG.                                         CM1014.2
026600 LOG-MSG.                                                         CM1014.2
026700     MOVE   SPACES TO INCOMING-MSG.                               CM1014.2
026800*    RECEIVE CM-INQUE-1 MESSAGE INTO INCOMING-MSG                 CM1014.2
026900*        NO DATA PERFORM INCREMENT-POLL-COUNT GO TO LOG-MSG.      CM1014.2
027000     ACCEPT SYSTEM-TIME FROM TIME.                                CM1014.2
027100     ACCEPT CM-INQUE-1 MESSAGE COUNT.                             CM1014.2
027200     IF STATUS-KEY IS NOT EQUAL TO ZERO                           CM1014.2
027300         DISPLAY "RUN ABORTED - STATUS KEY WAS " STATUS-KEY       CM1014.2
027400         STOP RUN.                                                CM1014.2
027500     IF MSG-DATE IS EQUAL TO ZERO PERFORM LOG-HEADER.             CM1014.2
027600     IF KILL-FIELD IS EQUAL TO "KILL"                             CM1014.2
027700         ACCEPT INIT-TIME FROM TIME                               CM1014.2
027800*        DISABLE INPUT CM-INQUE-1 WITH KEY                        CM1014.2
027900*    "C0049"                                                      CM1014.2
028000*        ACCEPT COMP-TIME FROM TIME                               CM1014.2
028100*        MOVE STATUS-KEY TO DISABLE-STATUS.                       CM1014.2
028200     MOVE TIME-RECEIVED TO MSG-TIME.                              CM1014.2
028300     MOVE CORR MSG-TIME TO RECEIPT-TIME.                          CM1014.2
028400     COMPUTE LAG-TIME =                                           CM1014.2
028500         ((SYS-HRS * 3600) + (SYS-MINS * 60) + SYS-SECS) -        CM1014.2
028600         ((HOURS OF MSG-TIME * 3600) + (MINUTES OF MSG-TIME * 60) CM1014.2
028700         + SECONDS OF MSG-TIME).                                  CM1014.2
028800     IF END-KEY IS EQUAL TO "3"                                   CM1014.2
028900         MOVE "EGI" TO SENTINEL                                   CM1014.2
029000         ELSE IF END-KEY IS EQUAL TO "2"                          CM1014.2
029100         MOVE "EMI" TO SENTINEL                                   CM1014.2
029200             ELSE MOVE END-KEY TO SENTINEL.                       CM1014.2
029300     MOVE MSG-COUNT TO QUEUE-DEPTH.                               CM1014.2
029400     MOVE MSG-LENGTH TO MESSAGE-LENGTH.                           CM1014.2
029500     IF POLL-COUNT IS EQUAL TO 99999999                           CM1014.2
029600         MOVE " OVERFLOW " TO IDLE-OVERFLOW                       CM1014.2
029700         ELSE MOVE POLL-COUNT TO IDLE-COUNT.                      CM1014.2
029800     MOVE INCOMING-MSG TO MSG.                                    CM1014.2
029900     MOVE LOG-LINE TO PRINT-REC.                                  CM1014.2
030000     PERFORM WRITE-LINE.                                          CM1014.2
030100 LOG-MSG-01.                                                      CM1014.2
030200     IF KILL-FIELD IS EQUAL TO "WAIT"                             CM1014.2
030300         PERFORM GET-INITIAL-TIME                                 CM1014.2
030400         PERFORM DELAY-FOR-30-SECS                                CM1014.2
030500         GO TO LOG-INIT.                                          CM1014.2
030600     IF KILL-FIELD IS NOT EQUAL TO "KILL" GO TO LOG-INIT.         CM1014.2
030700 DISABLE-CM-INQUE-1.                                              CM1014.2
030800     MOVE INIT-TIME TO MSG-TIME.                                  CM1014.2
030900     MOVE CORR MSG-TIME TO RECEIPT-TIME.                          CM1014.2
031000     MOVE "-DISABLE COMMAND INITIATED FROM PROGRAM"               CM1014.2
031100         TO LONG-NARRATIVE.                                       CM1014.2
031200     MOVE LOG-LINE TO PRINT-REC.                                  CM1014.2
031300     WRITE PRINT-REC                                              CM1014.2
031400         AFTER 2 LINES.                                           CM1014.2
031500     MOVE COMP-TIME TO MSG-TIME.                                  CM1014.2
031600     MOVE CORR MSG-TIME TO RECEIPT-TIME.                          CM1014.2
031700     MOVE "- STATUS CODE OF" TO LONG-NARRATIVE.                   CM1014.2
031800     MOVE DISABLE-STATUS TO QUEUE-DEPTH.                          CM1014.2
031900     MOVE "AND EXECUTION CONTROL RETURNED FROM MCS"               CM1014.2
032000         TO SHORT-NARRATIVE.                                      CM1014.2
032100     MOVE LOG-LINE TO PRINT-REC.                                  CM1014.2
032200     PERFORM WRITE-LINE.                                          CM1014.2
032300     MOVE SPACES TO PRINT-REC.                                    CM1014.2
032400     PERFORM WRITE-LINE.                                          CM1014.2
032500 GET-INITIAL-TIME.                                                CM1014.2
032600     ACCEPT SYSTEM-TIME FROM TIME.                                CM1014.2
032700     COMPUTE INIT-TIME =                                          CM1014.2
032800         SYS-HRS * 3600 + SYS-MINS * 60 + SYS-SECS.               CM1014.2
032900 LOOK-FOR-LATE-TRANSMISSIONS.                                     CM1014.2
033000     ACCEPT CM-INQUE-1 MESSAGE COUNT.                             CM1014.2
033100     IF MSG-COUNT IS NOT EQUAL TO ZERO                            CM1014.2
033200         PERFORM LOG-INIT THRU LOG-MSG                            CM1014.2
033300         GO TO LOOK-FOR-LATE-TRANSMISSIONS.                       CM1014.2
033400 GET-TIME-DIFFERENCE.                                             CM1014.2
033500     ACCEPT SYSTEM-TIME FROM TIME.                                CM1014.2
033600     COMPUTE COMP-TIME =                                          CM1014.2
033700         SYS-HRS * 3600 + SYS-MINS * 60 + SYS-SECS - INIT-TIME.   CM1014.2
033800 CHECK-FOR-15.                                                    CM1014.2
033900     IF COMP-TIME IS LESS THAN 15                                 CM1014.2
034000         GO TO LOOK-FOR-LATE-TRANSMISSIONS.                       CM1014.2
034100 15-SECONDS-HAVE-ELAPSED.                                         CM1014.2
034200     MOVE HYPHEN-LINE TO PRINT-REC.                               CM1014.2
034300     WRITE PRINT-REC                                              CM1014.2
034400         AFTER 2 LINES.                                           CM1014.2
034500     MOVE HYPHEN-LINE TO PRINT-REC.                               CM1014.2
034600     PERFORM WRITE-LINE.                                          CM1014.2
034700 STATUS-TESTS-INIT.                                               CM1014.2
034800     MOVE " BEGIN INPUT STATUS TESTS" TO PRINT-REC.               CM1014.2
034900     WRITE PRINT-REC                                              CM1014.2
035000         AFTER 2 LINES.                                           CM1014.2
035100     MOVE COLUMNS-LINE-1 TO PRINT-REC.                            CM1014.2
035200     WRITE PRINT-REC                                              CM1014.2
035300         AFTER 2 LINES.                                           CM1014.2
035400     MOVE COLUMNS-LINE-2 TO PRINT-REC.                            CM1014.2
035500     PERFORM WRITE-LINE.                                          CM1014.2
035600     MOVE SPACES TO PRINT-REC.                                    CM1014.2
035700     PERFORM WRITE-LINE.                                          CM1014.2
035800     MOVE "MCS STATUS WORD" TO FEATURE.                           CM1014.2
035900 REC-STATUS-TEST-01.                                              CM1014.2
036000     MOVE "QUEUE NAME NOT SPECIFIED" TO RE-MARK.                  CM1014.2
036100     MOVE "99" TO STATUS-KEY.                                     CM1014.2
036200     MOVE SPACES TO MAIN-QUEUE NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.     CM1014.2
036300*    RECEIVE CM-INQUE-1 MESSAGE INTO INCOMING-MSG                 CM1014.2
036400*        NO DATA ADD 0 TO POLL-COUNT.                             CM1014.2
036500     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
036600         PERFORM PASS GO TO REC-STATUS-WRITE-01.                  CM1014.2
036700     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
036800     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
036900     PERFORM FAIL.                                                CM1014.2
037000     GO TO REC-STATUS-WRITE-01.                                   CM1014.2
037100 REC-STATUS-DELETE-01.                                            CM1014.2
037200     PERFORM DE-LETE.                                             CM1014.2
037300 REC-STATUS-WRITE-01.                                             CM1014.2
037400     MOVE "REC-STATUS-TEST-01" TO PAR-NAME.                       CM1014.2
037500     PERFORM PRINT-DETAIL.                                        CM1014.2
037600 REC-STATUS-TEST-02.                                              CM1014.2
037700     MOVE "UNKNOWN SUB-QUEUE-1 SPECIFIED" TO RE-MARK.             CM1014.2
037800     MOVE "99" TO STATUS-KEY.                                     CM1014.2
037900     MOVE                                                         CM1014.2
038000     "C0048"                                                      CM1014.2
038100         TO MAIN-QUEUE.                                           CM1014.2
038200     MOVE "DUMMYNAME" TO NO-SPEC-1.                               CM1014.2
038300     MOVE SPACES TO NO-SPEC-2 NO-SPEC-3.                          CM1014.2
038400*    RECEIVE CM-INQUE-1 MESSAGE INTO INCOMING-MSG                 CM1014.2
038500*        NO DATA ADD 0 TO POLL-COUNT.                             CM1014.2
038600     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
038700         PERFORM PASS GO TO REC-STATUS-WRITE-02.                  CM1014.2
038800     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
038900     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
039000     PERFORM FAIL.                                                CM1014.2
039100     GO TO REC-STATUS-WRITE-02.                                   CM1014.2
039200 REC-STATUS-DELETE-02.                                            CM1014.2
039300     PERFORM DE-LETE.                                             CM1014.2
039400 REC-STATUS-WRITE-02.                                             CM1014.2
039500     MOVE "REC-STATUS-TEST-02" TO PAR-NAME.                       CM1014.2
039600     PERFORM PRINT-DETAIL.                                        CM1014.2
039700 ACCPT-STATUS-TEST-01.                                            CM1014.2
039800     MOVE "QUEUE NAME NOT SPECIFIED" TO RE-MARK.                  CM1014.2
039900     MOVE "99" TO STATUS-KEY.                                     CM1014.2
040000     MOVE SPACES TO MAIN-QUEUE NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.     CM1014.2
040100     ACCEPT CM-INQUE-1 MESSAGE COUNT.                             CM1014.2
040200     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
040300         PERFORM PASS GO TO ACCPT-STATUS-WRITE-01.                CM1014.2
040400     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
040500     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
040600     PERFORM FAIL.                                                CM1014.2
040700     GO TO ACCPT-STATUS-WRITE-01.                                 CM1014.2
040800 ACCPT-STATUS-DELETE-01.                                          CM1014.2
040900     PERFORM DE-LETE.                                             CM1014.2
041000 ACCPT-STATUS-WRITE-01.                                           CM1014.2
041100     MOVE "ACCPT-STATUS-TEST-01" TO PAR-NAME.                     CM1014.2
041200     PERFORM PRINT-DETAIL.                                        CM1014.2
041300 ACCPT-STATUS-TEST-02.                                            CM1014.2
041400     MOVE "UNKNOWN SUB-QUEUE-1 SPECIFIED" TO RE-MARK.             CM1014.2
041500     MOVE "99" TO STATUS-KEY.                                     CM1014.2
041600     MOVE                                                         CM1014.2
041700     "C0048"                                                      CM1014.2
041800         TO MAIN-QUEUE.                                           CM1014.2
041900     MOVE "DUMMYNAME" TO NO-SPEC-1.                               CM1014.2
042000     MOVE SPACES TO NO-SPEC-2 NO-SPEC-3.                          CM1014.2
042100     ACCEPT CM-INQUE-1 COUNT.                                     CM1014.2
042200     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
042300     PERFORM PASS GO TO ACCPT-STATUS-WRITE-02.                    CM1014.2
042400     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
042500     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
042600     PERFORM FAIL.                                                CM1014.2
042700      GO TO ACCPT-STATUS-WRITE-02.                                CM1014.2
042800 ACCPT-STATUS-DELETE-02.                                          CM1014.2
042900     PERFORM DE-LETE.                                             CM1014.2
043000 ACCPT-STATUS-WRITE-02.                                           CM1014.2
043100     MOVE "ACCPT-STATUS-TEST-02" TO PAR-NAME.                     CM1014.2
043200     PERFORM PRINT-DETAIL.                                        CM1014.2
043300 ENABL-STATUS-TEST-01.                                            CM1014.2
043400     MOVE "QUEUE NAME NOT SPECIFIED" TO RE-MARK.                  CM1014.2
043500     MOVE "99" TO STATUS-KEY.                                     CM1014.2
043600     MOVE SPACES TO MAIN-QUEUE NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.     CM1014.2
043700*    ENABLE INPUT CM-INQUE-1 WITH KEY                             CM1014.2
043800*    "C0049"                                                      CM1014.2
043900*    IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
044000*        PERFORM PASS GO TO ENABL-STATUS-WRITE-01.                CM1014.2
044100     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
044200     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
044300     PERFORM FAIL.                                                CM1014.2
044400     GO TO ENABL-STATUS-WRITE-01.                                 CM1014.2
044500 ENABL-STATUS-DELETE-01.                                          CM1014.2
044600     PERFORM DE-LETE.                                             CM1014.2
044700 ENABL-STATUS-WRITE-01.                                           CM1014.2
044800     MOVE "ENABL-STATUS-TEST-01" TO PAR-NAME.                     CM1014.2
044900     PERFORM PRINT-DETAIL.                                        CM1014.2
045000 ENABL-STATUS-TEST-02.                                            CM1014.2
045100     MOVE "UNKNOWN SUB-QUEUE-1 SPECIFIED" TO RE-MARK.             CM1014.2
045200     MOVE "99" TO STATUS-KEY.                                     CM1014.2
045300     MOVE                                                         CM1014.2
045400     "C0048"                                                      CM1014.2
045500         TO MAIN-QUEUE.                                           CM1014.2
045600     MOVE "DUMMYNAME" TO NO-SPEC-1.                               CM1014.2
045700     MOVE SPACES TO NO-SPEC-2 NO-SPEC-3.                          CM1014.2
045800*    ENABLE INPUT CM-INQUE-1 KEY                                  CM1014.2
045900*        PASSWORD1.                                               CM1014.2
046000     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
046100         PERFORM PASS GO TO ENABL-STATUS-WRITE-02.                CM1014.2
046200     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
046300     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
046400     PERFORM FAIL.                                                CM1014.2
046500     GO TO ENABL-STATUS-WRITE-02.                                 CM1014.2
046600 ENABL-STATUS-DELETE-02.                                          CM1014.2
046700     PERFORM DE-LETE.                                             CM1014.2
046800 ENABL-STATUS-WRITE-02.                                           CM1014.2
046900     MOVE "ENABL-STATUS-TEST-02" TO PAR-NAME.                     CM1014.2
047000     PERFORM PRINT-DETAIL.                                        CM1014.2
047100 ENABL-STATUS-TEST-03.                                            CM1014.2
047200     MOVE "INVALID PASSWORD USED" TO RE-MARK.                     CM1014.2
047300     MOVE "99" TO STATUS-KEY.                                     CM1014.2
047400     MOVE                                                         CM1014.2
047500     "C0048"                                                      CM1014.2
047600         TO MAIN-QUEUE.                                           CM1014.2
047700     MOVE SPACES TO NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.                CM1014.2
047800*    ENABLE INPUT CM-INQUE-1 WITH KEY "LETMEIN".                  CM1014.2
047900     IF STATUS-KEY IS EQUAL TO "40"                               CM1014.2
048000         PERFORM PASS GO TO ENABL-STATUS-WRITE-03.                CM1014.2
048100     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
048200     MOVE "40" TO CORRECT-STATUS.                                 CM1014.2
048300     PERFORM FAIL.                                                CM1014.2
048400     GO TO ENABL-STATUS-WRITE-03.                                 CM1014.2
048500 ENABL-STATUS-DELETE-03.                                          CM1014.2
048600     PERFORM DE-LETE.                                             CM1014.2
048700 ENABL-STATUS-WRITE-03.                                           CM1014.2
048800     MOVE "ENABL-STATUS-TEST-03" TO PAR-NAME.                     CM1014.2
048900     PERFORM PRINT-DETAIL.                                        CM1014.2
049000 ENABL-STATUS-TEST-04.                                            CM1014.2
049100     MOVE "NO QUEUE NAME / WRONG PASSWORD" TO RE-MARK.            CM1014.2
049200     MOVE  "99" TO STATUS-KEY.                                    CM1014.2
049300     MOVE SPACES TO MAIN-QUEUE NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.     CM1014.2
049400*    ENABLE INPUT CM-INQUE-1 WITH KEY                             CM1014.2
049500*        "LETMEIN".                                               CM1014.2
049600     MOVE "INFO" TO P-OR-F.                                       CM1014.2
049700     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
049800     MOVE " INFO TEST FOR BOTH" TO CORRECT-A.                    CM1014.2
049900     GO TO ENABL-STATUS-WRITE-04.                                 CM1014.2
050000 ENABL-STATUS-DELETE-04.                                          CM1014.2
050100     PERFORM DE-LETE.                                             CM1014.2
050200 ENABL-STATUS-WRITE-04.                                           CM1014.2
050300     MOVE "ENABL-STATUS-TEST-04" TO PAR-NAME.                     CM1014.2
050400     PERFORM PRINT-DETAIL.                                        CM1014.2
050500 DISAB-STATUS-TEST-01.                                            CM1014.2
050600     MOVE "QUEUE NAME NOT SPECIFIED" TO RE-MARK.                  CM1014.2
050700     MOVE "99" TO STATUS-KEY.                                     CM1014.2
050800     MOVE SPACES TO MAIN-QUEUE NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.     CM1014.2
050900*    DISABLE INPUT CM-INQUE-1 WITH KEY                            CM1014.2
051000*    "C0049"                                                      CM1014.2
051100*    IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
051200*        PERFORM PASS GO TO DISAB-STATUS-WRITE-01.                CM1014.2
051300     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
051400     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
051500     PERFORM FAIL.                                                CM1014.2
051600     GO TO DISAB-STATUS-WRITE-01.                                 CM1014.2
051700 DISAB-STATUS-DELETE-01.                                          CM1014.2
051800     PERFORM DE-LETE.                                             CM1014.2
051900 DISAB-STATUS-WRITE-01.                                           CM1014.2
052000     MOVE "DISAB-STATUS-TEST-01" TO PAR-NAME.                     CM1014.2
052100     PERFORM PRINT-DETAIL.                                        CM1014.2
052200 DISAB-STATUS-TEST-02.                                            CM1014.2
052300     MOVE "UNKNOWN SUB-QUEUE-1 SPECIFIED" TO RE-MARK.             CM1014.2
052400     MOVE "99" TO STATUS-KEY.                                     CM1014.2
052500     MOVE                                                         CM1014.2
052600     "C0048"                                                      CM1014.2
052700         TO MAIN-QUEUE.                                           CM1014.2
052800     MOVE "DUMMYNAME" TO NO-SPEC-1.                               CM1014.2
052900     MOVE SPACES TO NO-SPEC-2 NO-SPEC-3.                          CM1014.2
053000*    DISABLE INPUT CM-INQUE-1 WITH KEY                            CM1014.2
053100*    PASSWORD1.                                                   CM1014.2
053200     IF STATUS-KEY IS EQUAL TO "20"                               CM1014.2
053300         PERFORM PASS GO TO DISAB-STATUS-WRITE-02.                CM1014.2
053400     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
053500     MOVE "20" TO CORRECT-STATUS.                                 CM1014.2
053600     PERFORM FAIL.                                                CM1014.2
053700      GO TO DISAB-STATUS-WRITE-02.                                CM1014.2
053800 DISAB-STATUS-DELETE-02.                                          CM1014.2
053900     PERFORM DE-LETE.                                             CM1014.2
054000 DISAB-STATUS-WRITE-02.                                           CM1014.2
054100     MOVE "DISAB-STATUS-TEST-02" TO PAR-NAME.                     CM1014.2
054200     PERFORM PRINT-DETAIL.                                        CM1014.2
054300 DISAB-STATUS-TEST-03.                                            CM1014.2
054400     MOVE "INVALID PASSWORD USED" TO RE-MARK.                     CM1014.2
054500     MOVE "99" TO STATUS-KEY.                                     CM1014.2
054600     MOVE                                                         CM1014.2
054700     "C0048"                                                      CM1014.2
054800         TO MAIN-QUEUE.                                           CM1014.2
054900     MOVE SPACES TO NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.                CM1014.2
055000*    DISABLE INPUT CM-INQUE-1 WITH KEY                            CM1014.2
055100*    "KILLITNOW".                                                 CM1014.2
055200     IF STATUS-KEY IS EQUAL TO "40"                               CM1014.2
055300         PERFORM PASS GO TO DISAB-STATUS-WRITE-03.                CM1014.2
055400     MOVE STATUS-KEY TO COMPUTED-STATUS.                          CM1014.2
055500     MOVE "40" TO CORRECT-STATUS.                                 CM1014.2
055600     PERFORM FAIL.                                                CM1014.2
055700     GO TO DISAB-STATUS-WRITE-03.                                 CM1014.2
055800 DISAB-STATUS-DELETE-03.                                          CM1014.2
055900     PERFORM DE-LETE.                                             CM1014.2
056000 DISAB-STATUS-WRITE-03.                                           CM1014.2
056100     MOVE "DISAB-STATUS-TEST-03" TO PAR-NAME.                     CM1014.2
056200     PERFORM PRINT-DETAIL.                                        CM1014.2
056300 RENAB-STATUS-TEST-01.                                            CM1014.2
056400     MOVE "RE-ENABLE PREVIOUSLY DISABLED" TO RE-MARK.             CM1014.2
056500     MOVE "99" TO STATUS-KEY.                                     CM1014.2
056600     MOVE                                                         CM1014.2
056700     "C0048"                                                      CM1014.2
056800         TO MAIN-QUEUE.                                           CM1014.2
056900     MOVE SPACES TO NO-SPEC-1 NO-SPEC-2 NO-SPEC-3.                CM1014.2
057000*    ENABLE INPUT CM-INQUE-1 KEY                                  CM1014.2
057100*    PASSWORD1.                                                   CM1014.2
057200     IF STATUS-KEY IS EQUAL TO ZERO                               CM1014.2
057300         PERFORM PASS GO TO RENAB-STATUS-WRITE-01.                CM1014.2
057400     MOVE STATUS-KEY TO COMPUTED-STATUS                           CM1014.2
057500     MOVE ZERO TO CORRECT-STATUS.                                 CM1014.2
057600     PERFORM FAIL.                                                CM1014.2
057700     GO TO RENAB-STATUS-WRITE-01.                                 CM1014.2
057800 RENAB-STATUS-DELETE-01.                                          CM1014.2
057900     PERFORM DE-LETE.                                             CM1014.2
058000 RENAB-STATUS-WRITE-01.                                           CM1014.2
058100     MOVE "RENAB-STATUS-TEST-01" TO PAR-NAME.                     CM1014.2
058200     PERFORM PRINT-DETAIL.                                        CM1014.2
058300 CLOSE-FILES.                                                     CM1014.2
058400     PERFORM END-ROUTINE THRU END-ROUTINE-3.                      CM1014.2
058500     CLOSE    PRINT-FILE.                                         CM1014.2
058600     STOP     RUN.                                                CM1014.2
058700 PASS.                                                            CM1014.2
058800     MOVE "PASS" TO P-OR-F.                                       CM1014.2
058900 FAIL.                                                            CM1014.2
059000     ADD      1 TO ERROR-COUNTER.                                 CM1014.2
059100     MOVE "FAIL*" TO P-OR-F.                                      CM1014.2
059200 DE-LETE.                                                         CM1014.2
059300     MOVE     SPACE TO P-OR-F.                                    CM1014.2
059400     MOVE     " ************ " TO COMPUTED-A.               CM1014.2
059500     MOVE     " ************ " TO CORRECT-A.                CM1014.2
059600     MOVE "****TEST DELETED****" TO RE-MARK.                      CM1014.2
059700     ADD 1 TO DELETE-CNT.                                         CM1014.2
059800 PRINT-DETAIL.                                                    CM1014.2
059900     MOVE     TEST-RESULTS TO PRINT-REC.                          CM1014.2
060000     PERFORM WRITE-LINE.                                          CM1014.2
060100     MOVE     SPACE TO P-OR-F.                                    CM1014.2
060200     MOVE     SPACE TO COMPUTED-A.                                CM1014.2
060300     MOVE SPACE TO CORRECT-A.                                     CM1014.2
060400 END-ROUTINE.                                                     CM1014.2
060500     MOVE     HYPHEN-LINE TO DUMMY-RECORD.                        CM1014.2
060600     PERFORM WRITE-LINE.                                          CM1014.2
060700 PARA-Z.                                                          CM1014.2
060800     PERFORM  BLANK-LINE-PRINT 4 TIMES.                           CM1014.2
060900     MOVE     CCVS-E-1 TO DUMMY-RECORD.                           CM1014.2
061000     PERFORM WRITE-LINE.                                          CM1014.2
061100 END-ROUTINE-1.                                                   CM1014.2
061200     PERFORM  BLANK-LINE-PRINT.                                   CM1014.2
061300     IF       ERROR-COUNTER IS EQUAL TO ZERO                      CM1014.2
061400              GO TO END-ROUTINE-2.                                CM1014.2
061500     MOVE     ERROR-COUNTER TO ERROR-TOTAL.                       CM1014.2
061600     GO TO    END-ROUTINE-3.                                      CM1014.2
061700 END-ROUTINE-2.                                                   CM1014.2
061800     MOVE " NO" TO ERROR-TOTAL.                                   CM1014.2
061900 END-ROUTINE-3.                                                   CM1014.2
062000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           CM1014.2
062100     PERFORM WRITE-LINE.                                          CM1014.2
062200     IF DELETE-CNT IS EQUAL TO ZERO                               CM1014.2
062300         MOVE " NO" TO ERROR-TOTAL  ELSE                          CM1014.2
062400     MOVE DELETE-CNT TO ERROR-TOTAL.                              CM1014.2
062500     MOVE "TESTS DELETED " TO ENDER-DESC.                     CM1014.2
062600     MOVE CCVS-E-2 TO DUMMY-RECORD.                               CM1014.2
062700     PERFORM WRITE-LINE.                                          CM1014.2
062800 END-ROUTINE-4.                                                   CM1014.2
062900     MOVE CCVS-E-3 TO DUMMY-RECORD.                               CM1014.2
063000     PERFORM WRITE-LINE.                                          CM1014.2
063100 BLANK-LINE-PRINT.                                                CM1014.2
063200     MOVE     SPACE TO DUMMY-RECORD.                              CM1014.2
063300     PERFORM WRITE-LINE.                                          CM1014.2
063400 WRITE-LINE.                                                      CM1014.2
063500     WRITE DUMMY-RECORD AFTER ADVANCING 1 LINE.                   CM1014.2
063600 INCREMENT-POLL-COUNT.                                            CM1014.2
063700     ADD 1 TO POLL-COUNT ON SIZE ERROR ADD 0 TO POLL-COUNT.       CM1014.2
063800 DELAY-FOR-30-SECS.                                               CM1014.2
063900     PERFORM GET-TIME-DIFFERENCE.                                 CM1014.2
064000     IF COMP-TIME IS LESS THAN 30                                 CM1014.2
064100         GO TO DELAY-FOR-30-SECS.                                 CM1014.2
064200 LOG-HEADER.                                                      CM1014.2
064300     MOVE LOG-HDR-1 TO PRINT-REC                                  CM1014.2
064400     WRITE PRINT-REC                                              CM1014.2
064500         AFTER 3 LINES.                                           CM1014.2
064600     MOVE DATE-RECEIVED TO MSG-DATE.                              CM1014.2
064700     MOVE WHERE-FROM TO SYM-SOURCE.                               CM1014.2
064800     MOVE LOG-HDR-2 TO PRINT-REC.                                 CM1014.2
064900     WRITE PRINT-REC                                              CM1014.2
065000         AFTER 3 LINES.                                           CM1014.2
065100     MOVE LOG-HDR-3 TO PRINT-REC.                                 CM1014.2
065200     WRITE PRINT-REC                                              CM1014.2
065300         AFTER 2 LINES.                                           CM1014.2
065400     MOVE LOG-HDR-4 TO PRINT-REC.                                 CM1014.2
065500     PERFORM WRITE-LINE.                                          CM1014.2
065600     MOVE SPACES TO PRINT-REC.                                    CM1014.2
065700     PERFORM WRITE-LINE.                                          CM1014.2
065800 HEAD-ROUTINE.                                                    CM1014.2
065900     MOVE CCVS-H-1 TO PRINT-REC                                   CM1014.2
066000     WRITE PRINT-REC                                              CM1014.2
066100         AFTER ADVANCING PAGE.                                    CM1014.2
066200     MOVE CCVS-H-2 TO PRINT-REC.                                  CM1014.2
066300     WRITE PRINT-REC                                              CM1014.2
066400         AFTER 2 LINES.                                           CM1014.2
066500     MOVE CCVS-H-3 TO PRINT-REC.                                  CM1014.2
066600     WRITE PRINT-REC                                              CM1014.2
066700         AFTER 5 LINES.                                           CM1014.2
066800     MOVE HYPHEN-LINE TO PRINT-REC.                               CM1014.2
066900     PERFORM WRITE-LINE.                                          CM1014.2

quality96%

¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.21Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.