|
000100 IDENTIFICATION DIVISION. CM1024.2
000200 PROGRAM-ID. CM1024.2
000300 CM102M. CM1024.2
000400 AUTHOR. CM1024.2
000500 FEDERAL COMPILER TESTING CENTER. CM1024.2
000600 INSTALLATION. CM1024.2
000700 GENERAL SERVICES ADMINISTRATION CM1024.2
000800 AUTOMATED DATA AND TELECOMMUNICATION SERVICE. CM1024.2
000900 SOFTWARE DEVELOPMENT OFFICE. CM1024.2
001000 5203 LEESBURG PIKE SUITE 1100 CM1024.2
001100 FALLS CHURCH VIRGINIA 22041. CM1024.2
001200 CM1024.2
001300 PHONE (703) 756-6153 CM1024.2
001400 CM1024.2
001500 " HIGH ". CM1024.2
001600 DATE-WRITTEN. CM1024.2
001700 CCVS-74 VERSION 4.0 - 1980 JULY 1. CM1024.2
001800 CREATION DATE / VALIDATION DATE CM1024.2
001900 "4.2 ". CM1024.2
002000 SECURITY. CM1024.2
002100 NONE. CM1024.2
002200 ENVIRONMENT DIVISION. CM1024.2
002300 CONFIGURATION SECTION. CM1024.2
002400 SOURCE-COMPUTER. CM1024.2
002500 Card0130. CM1024.2
002600 OBJECT-COMPUTER. CM1024.2
002700 Card0131. CM1024.2
002800 INPUT-OUTPUT SECTION. CM1024.2
002900 FILE-CONTROL. CM1024.2
003000 SELECT PRINT-FILE ASSIGN TO CM1024.2
003100 "C0085" . CM1024.2
003200 DATA DIVISION. CM1024.2
003300 FILE SECTION. CM1024.2
003400 FD PRINT-FILE CM1024.2
003500 LABEL RECORDS CM1024.2
003600 Card0132 CM1024.2
003700 DATA RECORD IS PRINT-REC DUMMY-RECORD. CM1024.2
003800 01 PRINT-REC PICTURE X(120). CM1024.2
003900 01 DUMMY-RECORD PICTURE X(120). CM1024.2
004000 WORKING-STORAGE SECTION. CM1024.2
004100 77 COMP-TWO PIC 9 COMP VALUE 2. CM1024.2
004200 77 TWO PIC 9 VALUE 2. CM1024.2
004300 77 COMP-THREE PIC 9 VALUE 3. CM1024.2
004400 77 THREE PIC 9 VALUE 3. CM1024.2
004500 77 SEND-SWITCH PIC 99 COMP. CM1024.2
004600 77 MSG-NUM PIC 9(4). CM1024.2
004700 77 MSG-70 PIC X(70). CM1024.2
004800 77 PASSWORD1 PIC X(10) VALUE CM1024.2
004900 "C0051" . CM1024.2
005000 01 ERR-MSG. CM1024.2
005100 02 FILLER PIC X(33) VALUE CM1024.2
005200 "THIS MESSAGE SHOULD NOT APPEAR - ". CM1024.2
005300 02 TEST-IND PIC X(4). CM1024.2
005400 01 LOG-HDR-1. CM1024.2
005500 02 FILLER PIC X(48) VALUE SPACES. CM1024.2
005600 02 FILLER PIC X(24) VALUE "LOG OF OUTGOING MESSAGES". CM1024.2
005700 01 LOG-HDR-2. CM1024.2
005800 02 FILLER PIC X VALUE SPACE. CM1024.2
005900 02 FILLER PIC X(14) VALUE "START TIME". CM1024.2
006000 02 FILLER PIC X(10) VALUE "ELAPSED". CM1024.2
006100 02 FILLER PIC X(13) VALUE "STATUS/ERR". CM1024.2
006200 02 FILLER PIC X(41) VALUE "LENGTH". CM1024.2
006300 02 FILLER PIC X(7) VALUE "MESSAGE". CM1024.2
006400 01 LOG-HDR-3. CM1024.2
006500 02 FILLER PIC X VALUE SPACES. CM1024.2
006600 02 FILLER PIC X(11) VALUE ALL "-". CM1024.2
006700 02 FILLER PIC XXX VALUE SPACES. CM1024.2
006800 02 FILLER PIC X(7) VALUE ALL "-". CM1024.2
006900 02 FILLER PIC XXX VALUE SPACES. CM1024.2
007000 02 FILLER PIC X(10) VALUE ALL "-". CM1024.2
007100 02 FILLER PIC XXX VALUE SPACES. CM1024.2
007200 02 FILLER PIC X(6) VALUE ALL "-". CM1024.2
007300 02 FILLER PIC XXX VALUE SPACES. CM1024.2
007400 02 FILLER PIC X(72) VALUE ALL "-". CM1024.2
007500 01 LOG-LINE. CM1024.2
007600 02 FILLER PIC X VALUE SPACE. CM1024.2
007700 02 START-TIME. CM1024.2
007800 03 HOURS PIC 99. CM1024.2
007900 03 FILLER PIC X VALUE ":". CM1024.2
008000 03 MINUTES PIC 99. CM1024.2
008100 03 FILLER PIC X VALUE ":". CM1024.2
008200 03 SECONDS PIC 99.99. CM1024.2
008300 02 FILLER PIC XX VALUE SPACES. CM1024.2
008400 02 ELAPSED PIC -(4)9.99. CM1024.2
008500 02 FILLER PIC X(7) VALUE SPACES. CM1024.2
008600 02 STAT PIC 99. CM1024.2
008700 02 FILLER PIC X VALUE "/". CM1024.2
008800 02 ERR PIC 9. CM1024.2
008900 02 FILLER PIC X(5) VALUE SPACES. CM1024.2
009000 02 LNTH PIC ZZZ9. CM1024.2
009100 02 FILLER PIC X(5) VALUE SPACES. CM1024.2
009200 02 MSG-OUT PIC X(72). CM1024.2
009300 01 LOG-LINE-1. CM1024.2
009400 02 FILLER PIC X(39) VALUE SPACES. CM1024.2
009500 02 FILLER PIC X(8) VALUE "CONT". CM1024.2
009600 02 MSG-FLD PIC X(72). CM1024.2
009700 01 SUPERIMPOSITION. CM1024.2
009800 02 S-ALL PIC X(4). CM1024.2
009900 02 S-WORDS PIC X(6). CM1024.2
010000 02 S-IN PIC X(3). CM1024.2
010100 02 S-THIS PIC X(5). CM1024.2
010200 02 S-MESSAGE PIC X(8). CM1024.2
010300 02 S-SHOULD PIC X(7). CM1024.2
010400 02 S-COME PIC X(5). CM1024.2
010500 02 S-OUT PIC X(4). CM1024.2
010600 02 S-ON PIC XXX. CM1024.2
010700 02 S-THE PIC X(4). CM1024.2
010800 02 S-SAME PIC X(5). CM1024.2
010900 02 S-LINE PIC X(5). CM1024.2
011000 01 MSG-A. CM1024.2
011100 02 FILLER PIC X VALUE SPACE. CM1024.2
011200 02 MSG-B. CM1024.2
011300 03 FILLER PIC X VALUE SPACE. CM1024.2
011400 03 MSG-C. CM1024.2
011500 04 FILLER PIC X VALUE SPACE. CM1024.2
011600 04 MSG-D. CM1024.2
011700 05 FILLER PIC X VALUE SPACE. CM1024.2
011800 05 MSG-E. CM1024.2
011900 06 FILLER PIC X(19) VALUE CM1024.2
012000 "THIS IS MESSAGE NO.". CM1024.2
012100 06 MSG-NO PIC ZZZZ. CM1024.2
012200 06 FILLER PIC X(35) VALUE CM1024.2
012300 ".--THIS SENTENCE MUST NOT APPEAR.". CM1024.2
012400 01 SYSTEM-TIME. CM1024.2
012500 02 HOURS PIC 99. CM1024.2
012600 02 MINUTES PIC 99. CM1024.2
012700 02 SECONDS PIC 99V99. CM1024.2
012800 01 COMP-TIME. CM1024.2
012900 02 COMP-HRS PIC 99. CM1024.2
013000 02 COMP-MINS PIC 99. CM1024.2
013100 02 COMP-SECS PIC 99V99. CM1024.2
013200 01 MSG-F. CM1024.2
013300 02 FILLER PIC X(19) VALUE "THIS IS MESSAGE NO.". CM1024.2
013400 02 MSG-F-NO PIC ZZZZ. CM1024.2
013500 02 FILLER PIC X(40) VALUE CM1024.2
013600 " AND SHOULD APPEAR AT THE TOP OF A PAGE.". CM1024.2
013700 01 MSG-G. CM1024.2
013800 02 FILLER PIC X(19) VALUE "THIS IS MESSAGE NO.". CM1024.2
013900 02 MSG-G-NO PIC ZZZZ. CM1024.2
014000 02 FILLER PIC X(41) VALUE CM1024.2
014100 " AND SHOULD APPEAR AFTER TWO BLANK LINES.". CM1024.2
014200 01 MSG-H. CM1024.2
014300 02 FILLER PIC X(19) VALUE "THIS IS MESSAGE NO.". CM1024.2
014400 02 MSG-H-NO PIC ZZZZ. CM1024.2
014500 02 FILLER PIC X(41) VALUE CM1024.2
014600 " AND SHOULD APPEAR BEFORE ONE BLANK LINE.". CM1024.2
014700 01 LONG-MSG. CM1024.2
014800 02 LONG-MSG-S1 PIC X(73) VALUE "ON PAGE XIII-21, PARAGRAPH 3CM1024.2
014900- ".5.4(1)C, THE COBOL STANDARD STATES, ""EXCESS ". CM1024.2
015000 02 LONG-MSG-S2 PIC X(67) VALUE "CHARACTERS OF A MESSAGE OR MCM1024.2
015100- "ESSAGE SEGMENT WILL NOT BE TRUNCATED. ". CM1024.2
015200 02 LONG-MSG-S3 PIC X(71) VALUE "CHARACTERS WILL BE PACKED TOCM1024.2
015300- " A SIZE EQUAL TO THAT OF THE PHYSICAL LINE ". CM1024.2
015400 02 LONG-MSG-S4 PIC X(69) VALUE "AND THEN OUTPUTTED TO THE DECM1024.2
015500- "VICE. THE PROCESS CONTINUES ON THE NEXT ". CM1024.2
015600 02 LONG-MSG-S5 PIC X(73) VALUE "LINE WITH THE EXCESS CHARACTCM1024.2
015700- "ERS."" IF THIS ENTIRE PARAGRAPH WAS RECEIVED ". CM1024.2
015800 02 LONG-MSG-S6 PIC X(71) VALUE "BY THE DESIGNATED DEVICE, THCM1024.2
015900- "EN THE FOREGOING RULE IS SUPPORTED BY THIS ". CM1024.2
016000 02 LONG-MSG-S7 PIC X(9) VALUE "COMPILER.". CM1024.2
016100 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. CM1024.2
016200 01 REC-CT PICTURE 99 VALUE ZERO. CM1024.2
016300 01 DELETE-CNT PICTURE 999 VALUE ZERO. CM1024.2
016400 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. CM1024.2
016500 01 INSPECT-COUNTER PIC 999 VALUE ZERO. CM1024.2
016600 01 PASS-COUNTER PIC 999 VALUE ZERO. CM1024.2
016700 01 TOTAL-ERROR PIC 999 VALUE ZERO. CM1024.2
016800 01 ERROR-HOLD PIC 999 VALUE ZERO. CM1024.2
016900 01 DUMMY-HOLD PIC X(120) VALUE SPACE. CM1024.2
017000 01 RECORD-COUNT PIC 9(5) VALUE ZERO. CM1024.2
017100 01 CCVS-H-1. CM1024.2
017200 02 FILLER PICTURE X(27) VALUE SPACE. CM1024.2
017300 02 FILLER PICTURE X(67) VALUE CM1024.2
017400 " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION CM1024.2
017500- " SYSTEM". CM1024.2
017600 02 FILLER PICTURE X(26) VALUE SPACE. CM1024.2
017700 01 CCVS-H-2. CM1024.2
017800 02 FILLER PICTURE X(52) VALUE IS CM1024.2
017900 "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.". CM1024.2
018000 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". CM1024.2
018100 02 TEST-ID PICTURE IS X(9). CM1024.2
018200 02 FILLER PICTURE IS X(40) VALUE IS SPACE. CM1024.2
018300 01 CCVS-H-3. CM1024.2
018400 02 FILLER PICTURE X(34) VALUE CM1024.2
018500 " FOR OFFICIAL USE ONLY ". CM1024.2
018600 02 FILLER PICTURE X(58) VALUE CM1024.2
018700 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".CM1024.2
018800 02 FILLER PICTURE X(28) VALUE CM1024.2
018900 " COPYRIGHT 1974 ". CM1024.2
019000 01 CCVS-E-1. CM1024.2
019100 02 FILLER PICTURE IS X(52) VALUE IS SPACE. CM1024.2
019200 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". CM1024.2
019300 02 ID-AGAIN PICTURE IS X(9). CM1024.2
019400 02 FILLER PICTURE X(45) VALUE IS CM1024.2
019500 " NTIS DISTRIBUTION COBOL 74". CM1024.2
019600 01 CCVS-E-2. CM1024.2
019700 02 FILLER PICTURE X(31) VALUE CM1024.2
019800 SPACE. CM1024.2
019900 02 FILLER PICTURE X(21) VALUE SPACE. CM1024.2
020000 02 CCVS-E-2-2. CM1024.2
020100 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. CM1024.2
020200 03 FILLER PICTURE IS X VALUE IS SPACE. CM1024.2
020300 03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED". CM1024.2
020400 01 CCVS-E-3. CM1024.2
020500 02 FILLER PICTURE X(22) VALUE CM1024.2
020600 " FOR OFFICIAL USE ONLY". CM1024.2
020700 02 FILLER PICTURE X(12) VALUE SPACE. CM1024.2
020800 02 FILLER PICTURE X(58) VALUE CM1024.2
020900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".CM1024.2
021000 02 FILLER PICTURE X(13) VALUE SPACE. CM1024.2
021100 02 FILLER PIC X(15) VALUE " COPYRIGHT 1974". CM1024.2
021200 01 CCVS-E-4. CM1024.2
021300 02 CCVS-E-4-1 PIC XXX VALUE SPACE. CM1024.2
021400 02 FILLER PIC XXXX VALUE " OF ". CM1024.2
021500 02 CCVS-E-4-2 PIC XXX VALUE SPACE. CM1024.2
021600 02 FILLER PIC X(40) VALUE CM1024.2
021700 " TESTS WERE EXECUTED SUCCESSFULLY". CM1024.2
021800 01 XXINFO. CM1024.2
021900 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". CM1024.2
022000 02 INFO-TEXT. CM1024.2
022100 04 FILLER PIC X(20) VALUE SPACE. CM1024.2
022200 04 XXCOMPUTED PIC X(20). CM1024.2
022300 04 FILLER PIC X(5) VALUE SPACE. CM1024.2
022400 04 XXCORRECT PIC X(20). CM1024.2
022500 01 HYPHEN-LINE. CM1024.2
022600 02 FILLER PICTURE IS X VALUE IS SPACE. CM1024.2
022700 02 FILLER PICTURE IS X(65) VALUE IS "************************CM1024.2
022800- "*****************************************". CM1024.2
022900 02 FILLER PICTURE IS X(54) VALUE IS "************************CM1024.2
023000- "******************************". CM1024.2
023100 01 CCVS-PGM-ID PIC X(6) VALUE CM1024.2
023200 "CM102M". CM1024.2
023300 01 TEST-RESULTS. CM1024.2
023400 02 FILLER PICTURE X VALUE SPACE. CM1024.2
023500 02 FEATURE PICTURE X(18). CM1024.2
023600 02 FILLER PICTURE X VALUE SPACE. CM1024.2
023700 02 P-OR-F PICTURE X(5). CM1024.2
023800 02 FILLER PICTURE X VALUE SPACE. CM1024.2
023900 02 PAR-NAME PIC X(20). CM1024.2
024000 02 FILLER PICTURE X VALUE SPACE. CM1024.2
024100 02 COMPUTED-A PICTURE X(20). CM1024.2
024200 02 COMPUTED-SLASH-SET REDEFINES COMPUTED-A. CM1024.2
024300 03 FILLER PIC X(8). CM1024.2
024400 03 COMPUTED-STATUS PIC XX. CM1024.2
024500 03 SLASH PIC X. CM1024.2
024600 03 COMPUTED-ERR-KEY PIC X. CM1024.2
024700 03 FILLER PIC X(8). CM1024.2
024800 02 FILLER PICTURE X VALUE SPACE. CM1024.2
024900 02 CORRECT-A PICTURE X(20). CM1024.2
025000 02 CORRECT-SLASH-SET REDEFINES CORRECT-A. CM1024.2
025100 03 FILLER PIC X(8). CM1024.2
025200 03 CORRECT-2SLASH1 PIC 99/9. CM1024.2
025300 03 FILLER PIC X(8). CM1024.2
025400 02 FILLER PICTURE X VALUE SPACE. CM1024.2
025500 02 RE-MARK PICTURE X(30). CM1024.2
025600 01 COLUMNS-LINE-1. CM1024.2
025700 02 FILLER PIC X(3) VALUE SPACES. CM1024.2
025800 02 FILLER PIC X(17) VALUE "FEATURE TESTED". CM1024.2
025900 02 FILLER PIC X(9) VALUE "RESLT". CM1024.2
026000 02 FILLER PIC X(21) VALUE "PARAGRAPH NAME". CM1024.2
026100 02 FILLER PIC X(22) VALUE "COMPUTED DATA". CM1024.2
026200 02 FILLER PIC X(29) VALUE "CORRECT DATA". CM1024.2
026300 02 FILLER PIC X(7) VALUE "REMARKS". CM1024.2
026400 01 COLUMNS-LINE-2. CM1024.2
026500 02 FILLER PIC X VALUE SPACE. CM1024.2
026600 02 FILLER PIC X(18) VALUE ALL "-". CM1024.2
026700 02 FILLER PIC X VALUE SPACE. CM1024.2
026800 02 FILLER PIC X(5) VALUE ALL "-". CM1024.2
026900 02 FILLER PIC X VALUE SPACE. CM1024.2
027000 02 FILLER PIC X(20) VALUE ALL "-". CM1024.2
027100 02 FILLER PIC X VALUE SPACE. CM1024.2
027200 02 FILLER PIC X(20) VALUE ALL "-". CM1024.2
027300 02 FILLER PIC X VALUE SPACE. CM1024.2
027400 02 FILLER PIC X(20) VALUE ALL "-". CM1024.2
027500 02 FILLER PIC X VALUE SPACE. CM1024.2
027600 02 FILLER PIC X(31) VALUE ALL "-". CM1024.2
027700*COMMUNICATION SECTION. CM1024.2
027800*CD CM-OUTQUE-1 FOR OUTPUT CM1024.2
027900* DESTINATION COUNT IS ONE CM1024.2
028000* TEXT LENGTH IS MSG-LENGTH CM1024.2
028100* STATUS KEY IS STATUS-KEY CM1024.2
028200* ERROR KEY IS ERR-KEY CM1024.2
028300* SYMBOLIC DESTINATION IS SYM-DEST. CM1024.2
028400 PROCEDURE DIVISION. CM1024.2
028500 SECT-CM102M-0001 SECTION. CM1024.2
028600 CM102M-INIT. CM1024.2
028700 OPEN OUTPUT PRINT-FILE. CM1024.2
028800 MOVE "CM102M " TO TEST-ID. CM1024.2
028900 MOVE TEST-ID TO ID-AGAIN. CM1024.2
029000 MOVE SPACE TO TEST-RESULTS. CM1024.2
029100 PERFORM HEAD-ROUTINE. CM1024.2
029200 PERFORM COLUMN-NAMES-ROUTINE. CM1024.2
029300 MOVE "MCS STATUS WORD" TO FEATURE. CM1024.2
029400 DISAB-STATUS-TEST-01. CM1024.2
029500 MOVE "INITIAL DISABLE TO OUTPUT CD" TO RE-MARK. CM1024.2
029600 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
029700 MOVE 1 TO ONE. CM1024.2
029800 MOVE CM1024.2
029900 "C0050" CM1024.2
030000 TO SYM-DEST. CM1024.2
030100* DISABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
030200* "C0051" . CM1024.2
030300 MOVE "INFO" TO P-OR-F. CM1024.2
030400 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
030500 MOVE "/" TO SLASH. CM1024.2
030600 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
030700 MOVE " INFO TEST FOR" TO CORRECT-A. CM1024.2
030800 GO TO DISAB-STATUS-WRITE-01. CM1024.2
030900 DISAB-STATUS-DELETE-01. CM1024.2
031000 PERFORM DE-LETE. CM1024.2
031100 DISAB-STATUS-WRITE-01. CM1024.2
031200 MOVE "DISAB-STATUS-TEST-01" TO PAR-NAME. CM1024.2
031300 PERFORM PRINT-DETAIL. CM1024.2
031400 DISAB-STATUS-TEST-02. CM1024.2
031500 MOVE "NO DESTINATION SPECIFIED" TO RE-MARK. CM1024.2
031600 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
031700 MOVE "GARBAGE" TO SYM-DEST. CM1024.2
031800 MOVE 1 TO ONE. CM1024.2
031900* DISABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
032000* "C0051" . CM1024.2
032100 IF STATUS-KEY IS EQUAL TO "20" CM1024.2
032200 AND ERR-KEY IS EQUAL TO "1" CM1024.2
032300 PERFORM PASS GO TO DISAB-STATUS-WRITE-02. CM1024.2
032400 MOVE 201 TO CORRECT-2SLASH1. CM1024.2
032500 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
032600 MOVE "/" TO SLASH. CM1024.2
032700 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
032800 PERFORM FAIL. CM1024.2
032900 GO TO DISAB-STATUS-WRITE-02. CM1024.2
033000 DISAB-STATUS-DELETE-02. CM1024.2
033100 PERFORM DE-LETE. CM1024.2
033200 DISAB-STATUS-WRITE-02. CM1024.2
033300 MOVE "DISAB-STATUS-TEST-02" TO PAR-NAME. CM1024.2
033400 PERFORM PRINT-DETAIL. CM1024.2
033500 DISAB-STATUS-TEST-03. CM1024.2
033600 MOVE "INVALID PASSWORD USED" TO RE-MARK. CM1024.2
033700 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
033800 MOVE 1 TO ONE. CM1024.2
033900 MOVE CM1024.2
034000 "C0050" CM1024.2
034100 TO SYM-DEST. CM1024.2
034200* DISABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
034300* "GARBAGE". CM1024.2
034400 IF STATUS-KEY IS EQUAL TO "40" CM1024.2
034500 PERFORM PASS GO TO DISAB-STATUS-WRITE-03. CM1024.2
034600 MOVE 400 TO CORRECT-2SLASH1. CM1024.2
034700 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
034800 MOVE "/" TO SLASH. CM1024.2
034900 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
035000 PERFORM FAIL. CM1024.2
035100 GO TO DISAB-STATUS-WRITE-03. CM1024.2
035200 DISAB-STATUS-DELETE-03. CM1024.2
035300 PERFORM DE-LETE. CM1024.2
035400 DISAB-STATUS-WRITE-03. CM1024.2
035500 MOVE "DISAB-STATUS-TEST-03" TO PAR-NAME. CM1024.2
035600 PERFORM PRINT-DETAIL. CM1024.2
035700 DISAB-STATUS-TEST-04. CM1024.2
035800 MOVE "INVALID DESTINATION COUNT (0)" TO RE-MARK. CM1024.2
035900 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
036000 MOVE CM1024.2
036100 "C0050" CM1024.2
036200 TO SYM-DEST. CM1024.2
036300 MOVE 0 TO ONE. CM1024.2
036400* DISABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
036500* "C0051" . CM1024.2
036600 IF STATUS-KEY IS EQUAL TO "30" CM1024.2
036700 PERFORM PASS GO TO DISAB-STATUS-WRITE-04. CM1024.2
036800 MOVE 300 TO CORRECT-2SLASH1. CM1024.2
036900 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
037000 MOVE "/" TO SLASH. CM1024.2
037100 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
037200 PERFORM FAIL. CM1024.2
037300 GO TO DISAB-STATUS-WRITE-04. CM1024.2
037400 DISAB-STATUS-DELETE-04. CM1024.2
037500 PERFORM DE-LETE. CM1024.2
037600 DISAB-STATUS-WRITE-04. CM1024.2
037700 MOVE "DISAB-STATUS-TEST-04" TO PAR-NAME. CM1024.2
037800 PERFORM PRINT-DETAIL. CM1024.2
037900 DISAB-STATUS-TEST-05. CM1024.2
038000 MOVE "COMBINATION ERROR" TO RE-MARK. CM1024.2
038100 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
038200 MOVE SPACES TO SYM-DEST. CM1024.2
038300 MOVE 0 TO ONE. CM1024.2
038400* DISABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
038500* "GARBAGE". CM1024.2
038600 MOVE "INFO" TO P-OR-F. CM1024.2
038700 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
038800 MOVE "/" TO SLASH. CM1024.2
038900 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
039000 GO TO DISAB-STATUS-WRITE-05. CM1024.2
039100 DISAB-STATUS-DELETE-05. CM1024.2
039200 PERFORM DE-LETE. CM1024.2
039300 DISAB-STATUS-WRITE-05. CM1024.2
039400 MOVE "DISAB-STATUS-TEST-05" TO PAR-NAME. CM1024.2
039500 PERFORM PRINT-DETAIL. CM1024.2
039600 SEND-STATUS-TEST-01. CM1024.2
039700 MOVE "DESTINATION DISABLED" TO RE-MARK. CM1024.2
039800 MOVE "CM102M- I AM THE FIRST MESSAGE IN QUEUE;" TO MSG-70. CM1024.2
039900 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
040000 MOVE CM1024.2
040100 "C0050" CM1024.2
040200 TO SYM-DEST. CM1024.2
040300 MOVE 1 TO ONE. CM1024.2
040400 MOVE 45 TO MSG-LENGTH. CM1024.2
040500* SEND CM-OUTQUE-1 FROM MSG-70 WITH EMI CM1024.2
040600* AFTER ADVANCING PAGE. CM1024.2
040700 MOVE "THOU SHALT HAVE NO OTHER MESSAGES BEFORE ME." TO MSG-70CM1024.2
040800* SEND CM-OUTQUE-1 FROM MSG-70 WITH EMI. CM1024.2
040900 MOVE SPACES TO MSG-70. CM1024.2
041000 MOVE 1 TO MSG-LENGTH. CM1024.2
041100* SEND CM-OUTQUE-1 FROM MSG-70 WITH EGI. CM1024.2
041200 IF STATUS-KEY IS EQUAL TO "10" CM1024.2
041300 PERFORM PASS GO TO SEND-STATUS-WRITE-01. CM1024.2
041400 MOVE 100 TO CORRECT-2SLASH1. CM1024.2
041500 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
041600 MOVE "/" TO SLASH. CM1024.2
041700 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
041800 PERFORM FAIL. CM1024.2
041900 GO TO SEND-STATUS-WRITE-01. CM1024.2
042000 SEND-STATUS-DELETE-01. CM1024.2
042100 PERFORM DE-LETE. CM1024.2
042200 SEND-STATUS-WRITE-01. CM1024.2
042300 MOVE "SEND-STATUS-TEST-01" TO PAR-NAME. CM1024.2
042400 PERFORM PRINT-DETAIL. CM1024.2
042500 SEND-STATUS-TEST-02. CM1024.2
042600 MOVE "COMBINATION ERROR" TO RE-MARK. CM1024.2
042700 MOVE SPACES TO SYM-DEST. CM1024.2
042800 MOVE 0 TO ONE. CM1024.2
042900 MOVE 100 TO MSG-LENGTH. CM1024.2
043000 MOVE "S-02" TO TEST-IND. CM1024.2
043100* SEND CM-OUTQUE-1 FROM ERR-MSG WITH EMI. CM1024.2
043200 MOVE "INFO" TO P-OR-F. CM1024.2
043300 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
043400 MOVE "/" TO SLASH. CM1024.2
043500 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
043600 GO TO SEND-STATUS-WRITE-02. CM1024.2
043700 SEND-STATUS-DELETE-02. CM1024.2
043800 PERFORM DE-LETE. CM1024.2
043900 SEND-STATUS-WRITE-02. CM1024.2
044000 MOVE "SEND-STATUS-TEST-02" TO PAR-NAME. CM1024.2
044100 PERFORM PRINT-DETAIL. CM1024.2
044200 ENABL-STATUS-TEST-01. CM1024.2
044300 MOVE "DESTINATION NOT SPECIFIED" TO RE-MARK. CM1024.2
044400 MOVE SPACES TO SYM-DEST. CM1024.2
044500 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
044600 MOVE 1 TO ONE. CM1024.2
044700* ENABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
044800* "C0051" . CM1024.2
044900 IF STATUS-KEY IS EQUAL TO "20" CM1024.2
045000 AND ERR-KEY IS EQUAL TO "1" CM1024.2
045100 PERFORM PASS GO TO ENABL-STATUS-WRITE-01. CM1024.2
045200 MOVE 201 TO CORRECT-2SLASH1. CM1024.2
045300 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
045400 MOVE "/" TO SLASH. CM1024.2
045500 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
045600 PERFORM FAIL. CM1024.2
045700 GO TO ENABL-STATUS-WRITE-01. CM1024.2
045800 ENABL-STATUS-DELETE-01. CM1024.2
045900 PERFORM DE-LETE. CM1024.2
046000 ENABL-STATUS-WRITE-01. CM1024.2
046100 MOVE "ENABL-STATUS-TEST-01" TO PAR-NAME. CM1024.2
046200 PERFORM PRINT-DETAIL. CM1024.2
046300 ENABL-STATUS-TEST-02. CM1024.2
046400 MOVE "INVALID DESTINATION COUNT (0)" TO RE-MARK. CM1024.2
046500 MOVE CM1024.2
046600 "C0050" CM1024.2
046700 TO SYM-DEST. CM1024.2
046800 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
046900 MOVE 0 TO ONE. CM1024.2
047000* ENABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
047100* "C0051" . CM1024.2
047200 IF STATUS-KEY IS EQUAL TO "30" CM1024.2
047300 PERFORM PASS GO TO ENABL-STATUS-WRITE-02. CM1024.2
047400 MOVE 300 TO CORRECT-2SLASH1. CM1024.2
047500 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
047600 MOVE "/" TO SLASH. CM1024.2
047700 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
047800 PERFORM FAIL. CM1024.2
047900 GO TO ENABL-STATUS-WRITE-02. CM1024.2
048000 ENABL-STATUS-DELETE-02. CM1024.2
048100 PERFORM DE-LETE. CM1024.2
048200 ENABL-STATUS-WRITE-02. CM1024.2
048300 MOVE "ENABL-STATUS-TEST-02" TO PAR-NAME. CM1024.2
048400 PERFORM PRINT-DETAIL. CM1024.2
048500 ENABL-STATUS-TEST-03. CM1024.2
048600 MOVE "INVALID PASSWORD USED" TO RE-MARK. CM1024.2
048700 MOVE CM1024.2
048800 "C0050" CM1024.2
048900 TO SYM-DEST. CM1024.2
049000 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
049100 MOVE 1 TO ONE. CM1024.2
049200* ENABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
049300* "GARBAGE". CM1024.2
049400 IF STATUS-KEY IS EQUAL TO "40" CM1024.2
049500 PERFORM PASS GO TO ENABL-STATUS-WRITE-03. CM1024.2
049600 MOVE 400 TO CORRECT-2SLASH1. CM1024.2
049700 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
049800 MOVE "/" TO SLASH. CM1024.2
049900 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
050000 PERFORM FAIL. CM1024.2
050100 GO TO ENABL-STATUS-WRITE-03. CM1024.2
050200 ENABL-STATUS-DELETE-03. CM1024.2
050300 PERFORM DE-LETE. CM1024.2
050400 ENABL-STATUS-WRITE-03. CM1024.2
050500 MOVE "ENABL-STATUS-TEST-03" TO PAR-NAME. CM1024.2
050600 PERFORM PRINT-DETAIL. CM1024.2
050700 ENABL-STATUS-TEST-04. CM1024.2
050800 MOVE "VALID ENABLE/NO ERROR EXPECTED" TO RE-MARK. CM1024.2
050900 MOVE CM1024.2
051000 "C0050" CM1024.2
051100 TO SYM-DEST. CM1024.2
051200 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
051300 MOVE 1 TO ONE. CM1024.2
051400* ENABLE OUTPUT CM-OUTQUE-1 WITH KEY CM1024.2
051500* "C0051" . CM1024.2
051600 IF STATUS-KEY IS EQUAL TO ZERO CM1024.2
051700 PERFORM PASS GO TO ENABL-STATUS-WRITE-04. CM1024.2
051800 MOVE 0 TO CORRECT-2SLASH1. CM1024.2
051900 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
052000 MOVE "/" TO SLASH. CM1024.2
052100 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
052200 PERFORM FAIL. CM1024.2
052300 GO TO ENABL-STATUS-WRITE-04. CM1024.2
052400 ENABL-STATUS-DELETE-04. CM1024.2
052500 PERFORM DE-LETE. CM1024.2
052600 ENABL-STATUS-WRITE-04. CM1024.2
052700 MOVE "ENABL-STATUS-TEST-04" TO PAR-NAME. CM1024.2
052800 PERFORM PRINT-DETAIL. CM1024.2
052900 SEND-STATUS-TEST-03. CM1024.2
053000 MOVE "DESTINATION UNKNOWN" TO RE-MARK. CM1024.2
053100 MOVE "GARBAGE" TO SYM-DEST. CM1024.2
053200 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
053300 MOVE 1 TO ONE. CM1024.2
053400 MOVE 37 TO MSG-LENGTH. CM1024.2
053500 MOVE "S-03" TO TEST-IND. CM1024.2
053600* SEND CM-OUTQUE-1 FROM ERR-MSG WITH EMI. CM1024.2
053700 IF STATUS-KEY IS EQUAL TO "20" CM1024.2
053800 AND ERR-KEY IS EQUAL TO "1" CM1024.2
053900 PERFORM PASS GO TO SEND-STATUS-WRITE-03. CM1024.2
054000 MOVE 201 TO CORRECT-2SLASH1. CM1024.2
054100 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
054200 MOVE "/" TO SLASH. CM1024.2
054300 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
054400 PERFORM FAIL. CM1024.2
054500 GO TO SEND-STATUS-WRITE-03. CM1024.2
054600 SEND-STATUS-DELETE-03. CM1024.2
054700 PERFORM DE-LETE. CM1024.2
054800 SEND-STATUS-WRITE-03. CM1024.2
054900 MOVE "SEND-STATUS-TEST-03" TO PAR-NAME. CM1024.2
055000 PERFORM PRINT-DETAIL. CM1024.2
055100 SEND-STATUS-TEST-04. CM1024.2
055200 MOVE "DESTINATION COUNT INVALID (0)" TO RE-MARK. CM1024.2
055300 MOVE CM1024.2
055400 "C0050" CM1024.2
055500 TO SYM-DEST. CM1024.2
055600 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
055700 MOVE 0 TO ONE. CM1024.2
055800 MOVE 37 TO MSG-LENGTH. CM1024.2
055900 MOVE "S-04" TO TEST-IND. CM1024.2
056000* SEND CM-OUTQUE-1 FROM ERR-MSG WITH EMI. CM1024.2
056100 IF STATUS-KEY IS EQUAL TO "30" CM1024.2
056200 PERFORM PASS GO TO SEND-STATUS-WRITE-04. CM1024.2
056300 MOVE 300 TO CORRECT-2SLASH1. CM1024.2
056400 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
056500 MOVE "/" TO SLASH. CM1024.2
056600 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
056700 PERFORM FAIL. CM1024.2
056800 GO TO SEND-STATUS-WRITE-04. CM1024.2
056900 SEND-STATUS-DELETE-04. CM1024.2
057000 PERFORM DE-LETE. CM1024.2
057100 SEND-STATUS-WRITE-04. CM1024.2
057200 MOVE "SEND-STATUS-TEST-04" TO PAR-NAME. CM1024.2
057300 PERFORM PRINT-DETAIL. CM1024.2
057400 SEND-STATUS-TEST-05. CM1024.2
057500 MOVE "CHARACTER COUNT EXCESSIVE" TO RE-MARK. CM1024.2
057600 MOVE CM1024.2
057700 "C0050" CM1024.2
057800 TO SYM-DEST. CM1024.2
057900 MOVE "9" TO STATUS-KEY ERR-KEY. CM1024.2
058000 MOVE 1 TO ONE. CM1024.2
058100 MOVE 38 TO MSG-LENGTH. CM1024.2
058200 MOVE "S-05" TO TEST-IND. CM1024.2
058300* SEND CM-OUTQUE-1 FROM ERR-MSG WITH EMI. CM1024.2
058400 IF STATUS-KEY IS EQUAL TO "50" CM1024.2
058500 PERFORM PASS GO TO SEND-STATUS-WRITE-05. CM1024.2
058600 MOVE 500 TO CORRECT-2SLASH1. CM1024.2
058700 MOVE STATUS-KEY TO COMPUTED-STATUS. CM1024.2
058800 MOVE "/" TO SLASH. CM1024.2
058900 MOVE ERR-KEY TO COMPUTED-ERR-KEY. CM1024.2
059000 PERFORM FAIL. CM1024.2
059100 GO TO SEND-STATUS-WRITE-05. CM1024.2
059200 SEND-STATUS-DELETE-05. CM1024.2
059300 PERFORM DE-LETE. CM1024.2
059400 SEND-STATUS-WRITE-05. CM1024.2
059500 MOVE "SEND-STATUS-TEST-05" TO PAR-NAME. CM1024.2
059600 PERFORM PRINT-DETAIL. CM1024.2
059700 STATUS-TESTS-COMPLETED. CM1024.2
059800 PERFORM END-ROUTINE. CM1024.2
059900 PERFORM END-ROUTINE-1 THRU END-ROUTINE-3. CM1024.2
060000 PERFORM END-ROUTINE. CM1024.2
060100 MOVE LOG-HDR-1 TO PRINT-REC. CM1024.2
060200 WRITE PRINT-REC CM1024.2
060300 AFTER 3 LINES. CM1024.2
060400 MOVE LOG-HDR-2 TO PRINT-REC. CM1024.2
060500 WRITE PRINT-REC CM1024.2
060600 AFTER 3 LINES. CM1024.2
060700 MOVE LOG-HDR-3 TO PRINT-REC. CM1024.2
060800 WRITE PRINT-REC. CM1024.2
060900 PERFORM BLANK-LINE-PRINT. CM1024.2
061000 VARIABLE-LENGTH-MSGS. CM1024.2
061100 MOVE 1 TO ONE. CM1024.2
061200 MOVE CM1024.2
061300 "C0050" CM1024.2
061400 TO SYM-DEST. CM1024.2
061500 MOVE 1 TO MSG-NO SEND-SWITCH. CM1024.2
061600 MOVE 28 TO MSG-LENGTH. CM1024.2
061700 MOVE MSG-A TO MSG-OUT. CM1024.2
061800 PERFORM SEND-AND-LOG. CM1024.2
061900 MOVE 2 TO MSG-NO. CM1024.2
062000 MOVE 27 TO MSG-LENGTH. CM1024.2
062100 MOVE MSG-B TO MSG-OUT. CM1024.2
062200 PERFORM SEND-AND-LOG. CM1024.2
062300 MOVE 3 TO MSG-NO. CM1024.2
062400 MOVE 26 TO MSG-LENGTH. CM1024.2
062500 MOVE MSG-C TO MSG-OUT. CM1024.2
062600 PERFORM SEND-AND-LOG. CM1024.2
062700 MOVE 4 TO MSG-NO. CM1024.2
062800 MOVE 25 TO MSG-LENGTH. CM1024.2
062900 MOVE MSG-D TO MSG-OUT. CM1024.2
063000 PERFORM SEND-AND-LOG. CM1024.2
063100 MOVE 2 TO SEND-SWITCH. CM1024.2
063200 MOVE 5 TO MSG-NO. CM1024.2
063300 MOVE 24 TO MSG-LENGTH. CM1024.2
063400 MOVE MSG-E TO MSG-OUT. CM1024.2
063500 PERFORM SEND-AND-LOG. CM1024.2
063600 AFTER-PAGE-MSGS. CM1024.2
063700 MOVE 6 TO MSG-NUM. CM1024.2
063800 MOVE 3 TO SEND-SWITCH. CM1024.2
063900 MOVE 63 TO MSG-LENGTH. CM1024.2
064000 PERFORM AFTER-PAGE-MSGS-01 5 TIMES. CM1024.2
064100 GO TO AFTER-THREE-MSGS. CM1024.2
064200 AFTER-PAGE-MSGS-01. CM1024.2
064300 MOVE MSG-NUM TO MSG-F-NO. CM1024.2
064400 ADD 1 TO MSG-NUM. CM1024.2
064500 MOVE MSG-F TO MSG-OUT. CM1024.2
064600 PERFORM SEND-AND-LOG. CM1024.2
064700 AFTER-THREE-MSGS. CM1024.2
064800 MOVE 64 TO MSG-LENGTH. CM1024.2
064900 PERFORM AFTER-THREE-MSGS-01 5 TIMES. CM1024.2
065000 GO TO EGI-ONLY. CM1024.2
065100 AFTER-THREE-MSGS-01. CM1024.2
065200 MOVE MSG-NUM TO MSG-G-NO. CM1024.2
065300 ADD 1 TO MSG-NUM SEND-SWITCH. CM1024.2
065400 MOVE MSG-G TO MSG-OUT. CM1024.2
065500 PERFORM SEND-AND-LOG. CM1024.2
065600 EGI-ONLY. CM1024.2
065700 MOVE "ONLY EGI WAS SENT. NO MESSAGE ACCOMPANYING" TO MSG-OUTCM1024.2
065800 ADD 1 TO SEND-SWITCH. CM1024.2
065900 MOVE 0 TO MSG-LENGTH. CM1024.2
066000 PERFORM SEND-AND-LOG. CM1024.2
066100 BEFORE-ADV-INIT. CM1024.2
066200 MOVE "0LTH" TO TEST-IND. CM1024.2
066300 ADD 1 TO SEND-SWITCH. CM1024.2
066400 MOVE ERR-MSG TO MSG-OUT. CM1024.2
066500 PERFORM SEND-AND-LOG. CM1024.2
066600 BEFORE-PAGE-MSGS. CM1024.2
066700 MOVE 63 TO MSG-LENGTH. CM1024.2
066800 PERFORM AFTER-PAGE-MSGS-01 5 TIMES. CM1024.2
066900 BEFORE-TWO-MSGS. CM1024.2
067000 MOVE 64 TO MSG-LENGTH. CM1024.2
067100 PERFORM BEFORE-TWO-MSGS-01 5 TIMES. CM1024.2
067200 GO TO ZERO-LINES-MSGS. CM1024.2
067300 BEFORE-TWO-MSGS-01. CM1024.2
067400 MOVE MSG-NUM TO MSG-H-NO. CM1024.2
067500 ADD 1 TO MSG-NUM. CM1024.2
067600 ADD 1 TO SEND-SWITCH. CM1024.2
067700 MOVE MSG-H TO MSG-OUT. CM1024.2
067800 PERFORM SEND-AND-LOG. CM1024.2
067900 ZERO-LINES-MSGS. CM1024.2
068000 ADD 1 TO SEND-SWITCH. CM1024.2
068100 MOVE 59 TO MSG-LENGTH. CM1024.2
068200 MOVE "ALL" TO SUPERIMPOSITION. CM1024.2
068300 PERFORM ZERO-LINES-MSGS-01. CM1024.2
068400 MOVE "WORDS" TO S-WORDS. CM1024.2
068500 PERFORM ZERO-LINES-MSGS-01. CM1024.2
068600 MOVE "IN" TO S-IN. CM1024.2
068700 PERFORM ZERO-LINES-MSGS-01. CM1024.2
068800 MOVE "THIS" TO S-THIS. CM1024.2
068900 PERFORM ZERO-LINES-MSGS-01. CM1024.2
069000 MOVE "MESSAGE" TO S-MESSAGE. CM1024.2
069100 PERFORM ZERO-LINES-MSGS-01. CM1024.2
069200 MOVE "SHOULD" TO S-SHOULD. CM1024.2
069300 PERFORM ZERO-LINES-MSGS-01. CM1024.2
069400 ADD 1 TO SEND-SWITCH. CM1024.2
069500 MOVE "COME" TO S-COME. CM1024.2
069600 PERFORM ZERO-LINES-MSGS-01. CM1024.2
069700 MOVE "OUT" TO S-OUT. CM1024.2
069800 PERFORM ZERO-LINES-MSGS-01. CM1024.2
069900 MOVE "ON" TO S-ON. CM1024.2
070000 PERFORM ZERO-LINES-MSGS-01. CM1024.2
070100 MOVE "THE" TO S-THE. CM1024.2
070200 PERFORM ZERO-LINES-MSGS-01. CM1024.2
070300 MOVE "SAME" TO S-SAME. CM1024.2
070400 PERFORM ZERO-LINES-MSGS-01. CM1024.2
070500 MOVE "LINE." TO S-LINE. CM1024.2
070600 PERFORM ZERO-LINES-MSGS-01. CM1024.2
070700 GO TO 433-CHARACTER-MSG. CM1024.2
070800 ZERO-LINES-MSGS-01. CM1024.2
070900 MOVE SUPERIMPOSITION TO MSG-OUT. CM1024.2
071000 PERFORM SEND-AND-LOG. CM1024.2
071100 MOVE SPACES TO SUPERIMPOSITION. CM1024.2
071200 433-CHARACTER-MSG. CM1024.2
071300 ADD 1 TO SEND-SWITCH. CM1024.2
071400 MOVE 433 TO MSG-LENGTH. CM1024.2
071500 MOVE LONG-MSG-S1 TO MSG-OUT. CM1024.2
071600 PERFORM SEND-AND-LOG. CM1024.2
071700 MOVE LONG-MSG-S2 TO MSG-FLD. CM1024.2
071800 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
071900 MOVE LONG-MSG-S3 TO MSG-FLD. CM1024.2
072000 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
072100 MOVE LONG-MSG-S4 TO MSG-FLD. CM1024.2
072200 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
072300 MOVE LONG-MSG-S5 TO MSG-FLD. CM1024.2
072400 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
072500 MOVE LONG-MSG-S6 TO MSG-FLD. CM1024.2
072600 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
072700 MOVE LONG-MSG-S7 TO MSG-FLD. CM1024.2
072800 WRITE PRINT-REC FROM LOG-LINE-1. CM1024.2
072900 MSG-BEFORE-DELAY-AND-DISABLE. CM1024.2
073000 MOVE "EXPECT A PAUSE OF UP TO 30 SECONDS BEFORE TRANSMISSION CM1024.2
073100- "OF NEXT MESSAGE." TO MSG-OUT. CM1024.2
073200 MOVE 72 TO MSG-LENGTH. CM1024.2
073300 MOVE 4 TO SEND-SWITCH. CM1024.2
073400 PERFORM SEND-AND-LOG. CM1024.2
073500 DELAY-FOR-30-SECS. CM1024.2
073600 ACCEPT SYSTEM-TIME FROM TIME. CM1024.2
073700 IF (HOURS OF SYSTEM-TIME * 3600 + MINUTES OF SYSTEM-TIME * 60CM1024.2
073800 + SECONDS OF SYSTEM-TIME) - (COMP-HRS * 3600 + COMP-MINS CM1024.2
073900 * 60 + COMP-SECS) IS LESS THAN 30 CM1024.2
074000 GO TO DELAY-FOR-30-SECS. CM1024.2
074100 DISABLE-DEVICE. CM1024.2
074200 MOVE "**** DEVICE DISABLED ****" TO MSG-OUT. CM1024.2
074300 MOVE 0 TO MSG-LENGTH. CM1024.2
074400 MOVE 19 TO SEND-SWITCH. CM1024.2
074500 PERFORM SEND-AND-LOG. CM1024.2
074600 10-WHILE-DISABLED. CM1024.2
074700 MOVE "TRANSMISSION NOW RESUMED." TO MSG-OUT. CM1024.2
074800 MOVE 25 TO MSG-LENGTH. CM1024.2
074900 MOVE 1 TO SEND-SWITCH. CM1024.2
075000 PERFORM SEND-AND-LOG. CM1024.2
075100 MOVE 24 TO MSG-LENGTH. CM1024.2
075200 PERFORM 10-WHILE-DISABLED-01 8 TIMES. CM1024.2
075300 GO TO 10-WHILE-DISABLED-02. CM1024.2
075400 10-WHILE-DISABLED-01. CM1024.2
075500 MOVE MSG-NUM TO MSG-NO. CM1024.2
075600 ADD 1 TO MSG-NUM. CM1024.2
075700 MOVE MSG-E TO MSG-OUT. CM1024.2
075800 PERFORM SEND-AND-LOG. CM1024.2
075900 10-WHILE-DISABLED-02. CM1024.2
076000 MOVE "THERE SHOULD BE NO ABNORMAL DELAY IN RECEIVING THE NEXTCM1024.2
076100- " MESSAGE." TO MSG-OUT. CM1024.2
076200 MOVE 63 TO MSG-LENGTH. CM1024.2
076300 PERFORM SEND-AND-LOG. CM1024.2
076400 RE-ENABLE-OUTQUE. CM1024.2
076500 MOVE "**** DEVICE NOW RE-ENABLED ****" TO MSG-OUT. CM1024.2
076600 MOVE 0 TO MSG-LENGTH. CM1024.2
076700 MOVE 20 TO SEND-SWITCH. CM1024.2
076800 PERFORM SEND-AND-LOG. CM1024.2
076900 ENQUEUE-500-MORE. CM1024.2
077000 MOVE "THIS IS THAT NEXT MESSAGE." TO MSG-OUT. CM1024.2
077100 MOVE 26 TO MSG-LENGTH. CM1024.2
077200 MOVE 2 TO SEND-SWITCH. CM1024.2
077300 PERFORM SEND-AND-LOG. CM1024.2
077400 MOVE 24 TO MSG-LENGTH. CM1024.2
077500 PERFORM 10-WHILE-DISABLED-01 500 TIMES. CM1024.2
077600 DELAY-DISABLE-DELAY-AND-STOP. CM1024.2
077700 PERFORM DELAY-FOR-30-SECS. CM1024.2
077800 PERFORM DISABLE-DEVICE. CM1024.2
077900 PERFORM DELAY-FOR-30-SECS. CM1024.2
078000 PERFORM END-ROUTINE THRU PARA-Z. CM1024.2
078100 PERFORM END-ROUTINE-4. CM1024.2
078200 CLOSE PRINT-FILE. CM1024.2
078300 STOP RUN. CM1024.2
078400 SEND-AND-LOG. CM1024.2
078500 ACCEPT SYSTEM-TIME FROM TIME. CM1024.2
078600 PERFORM UNIFORM-SEND. CM1024.2
078700 ACCEPT COMP-TIME FROM TIME. CM1024.2
078800 MOVE CORR SYSTEM-TIME TO START-TIME. CM1024.2
078900 COMPUTE ELAPSED = CM1024.2
079000 (COMP-HRS * 3600 + COMP-MINS * 60 + COMP-SECS) - CM1024.2
079100 (HOURS OF SYSTEM-TIME * 3600 + MINUTES OF SYSTEM-TIME * CM1024.2
079200 60 + SECONDS OF SYSTEM-TIME). CM1024.2
079300 MOVE STATUS-KEY TO STAT. CM1024.2
079400 MOVE ERR-KEY TO ERR. CM1024.2
079500 MOVE MSG-LENGTH TO LNTH. CM1024.2
079600 MOVE LOG-LINE TO PRINT-REC. CM1024.2
079700 PERFORM WRITE-LINE. CM1024.2
079800 UNIFORM-SEND SECTION. CM1024.2
079900 UNIFORM-SEND-SWITCH. CM1024.2
080000 GO TO CM1024.2
080100 SEND-EMI-A1 CM1024.2
080200 SEND-EGI-A1 CM1024.2
080300 SEND-EMI-AP CM1024.2
080400 SEND-EMI-A3-01 CM1024.2
080500 SEND-EMI-A3-02 CM1024.2
080600 SEND-EMI-A3-03 CM1024.2
080700 SEND-EMI-A3-04 CM1024.2
080800 SEND-EMI-A3-05 CM1024.2
080900 SEND-EGI-ONLY CM1024.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
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.
|
