|
000100 IDENTIFICATION DIVISION. NC1264.2
000200 PROGRAM-ID. NC1264.2
000300 NC126A. NC1264.2
000400**************************************************************** NC1264.2
000500* * NC1264.2
000600* VALIDATION FOR:- * NC1264.2
000700* * NC1264.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
000900* * NC1264.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2
001100* * NC1264.2
001200**************************************************************** NC1264.2
001300* * NC1264.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1264.2
001500* * NC1264.2
001600* X-55 - SYSTEM PRINTER NAME. * NC1264.2
001700* X-82 - SOURCE COMPUTER NAME. * NC1264.2
001800* X-83 - OBJECT COMPUTER NAME. * NC1264.2
001900* * NC1264.2
002000**************************************************************** NC1264.2
002100* NC1264.2
002200* PROGRAM NC126A TESTS THE USE OF LEVEL NUMBERS 01 THROUGH 49 NC1264.2
002300* INCLUSIVE WITH A VARIETY OF PICTURE CLAUSES AND GROUP AND NC1264.2
002400* ELEMENTARY COMPARISONS. NC1264.2
002500* NC1264.2
002600 ENVIRONMENT DIVISION. NC1264.2
002700 CONFIGURATION SECTION. NC1264.2
002800 SOURCE-COMPUTER. NC1264.2
002900 Card0130. NC1264.2
003000 OBJECT-COMPUTER. NC1264.2
003100 Card0131. NC1264.2
003200 INPUT-OUTPUT SECTION. NC1264.2
003300 FILE-CONTROL. NC1264.2
003400 SELECT PRINT-FILE ASSIGN TO NC1264.2
003500 "C0085" . NC1264.2
003600 DATA DIVISION. NC1264.2
003700 FILE SECTION. NC1264.2
003800 FD PRINT-FILE. NC1264.2
003900 01 PRINT-REC PICTURE X(120). NC1264.2
004000 01 DUMMY-RECORD PICTURE X(120). NC1264.2
004100 WORKING-STORAGE SECTION. NC1264.2
004200 01 TEST-GROUP-1. NC1264.2
004300 02 GP-1 PICTURE ZZZ999. NC1264.2
004400 02 GPLEVEL-1. NC1264.2
004500 03 GP-2 PICTURE 9(9).99. NC1264.2
004600 03 GPLEVEL-2. NC1264.2
004700 04 GP-3 PICTURE 0009(9). NC1264.2
004800 04 GPLEVEL-3. NC1264.2
004900 05 GP-4 PICTURE ZBZBZ9. NC1264.2
005000 05 GPLEVEL-4. NC1264.2
005100 06 GP-5 PICTURE $$$,$99.99. NC1264.2
005200 06 GPLEVEL-5. NC1264.2
005300 07 GP-6 PICTURE ******99. NC1264.2
005400 07 GPLEVEL-6. NC1264.2
005500 08 GP-7 PICTURE +999,999. NC1264.2
005600 08 GPLEVEL-7. NC1264.2
005700 09 GP-8 PICTURE X(14). NC1264.2
005800 09 GPLEVEL-8. NC1264.2
005900 10 GP-9 PICTURE XBXBXBX. NC1264.2
006000 10 GPLEVEL-9. NC1264.2
006100 11 GP-10 PICTURE 9090900. NC1264.2
006200 11 GPLEVEL-10. NC1264.2
006300 12 GP-11 PICTURE $999,999.00. NC1264.2
006400 12 GPLEVEL-11. NC1264.2
006500 13 GP-12 PICTURE ZZZ.9. NC1264.2
006600 13 GPLEVEL-12. NC1264.2
006700 14 GP-13 PICTURE ZZ9B900. NC1264.2
006800 14 GPLEVEL-13. NC1264.2
006900 15 GP-14 PICTURE XXXX. NC1264.2
007000 15 GPLEVEL-14. NC1264.2
007100 16 GP-15 PICTURE 9(10). NC1264.2
007200 16 GPLEVEL-15. NC1264.2
007300 17 GP-16 PICTURE Z(11). NC1264.2
007400 17 GPLEVEL-16. NC1264.2
007500 18 GP-17 PICTURE 99BB909. NC1264.2
007600 18 GPLEVEL-17. NC1264.2
007700 19 GP-18 PICTURE -*B*99. NC1264.2
007800 19 GPLEVEL-18. NC1264.2
007900 20 GP-19 PICTURE 0009999. NC1264.2
008000 20 GPLEVEL-19. NC1264.2
008100 21 GP-20 PICTURE 999DB. NC1264.2
008200 21 GPLEVEL-20. NC1264.2
008300 22 GP-21 PICTURE ABABABA. NC1264.2
008400 22 GPLEVEL-21. NC1264.2
008500 23 GP-22 PICTURE *999999. NC1264.2
008600 23 GPLEVEL-22. NC1264.2
008700 24 GP-23 PICTURE XXXXXA. NC1264.2
008800 24 GPLEVEL-23. NC1264.2
008900 25 GP-24 PICTURE $$$,$$$.99. NC1264.2
009000 25 GPLEVEL-24. NC1264.2
009100 26 GP-25 PICTURE 9BB9BBB9BBB. NC1264.2
009200 26 GPLEVEL-25. NC1264.2
009300 27 GP-26 PICTURE 9990009. NC1264.2
009400 27 GPLEVEL-26. NC1264.2
009500 28 GP-27 PICTURE 9,999,999. NC1264.2
009600 28 GPLEVEL-27. NC1264.2
009700 29 GP-28 PICTURE 9(7),9. NC1264.2
009800 29 GPLEVEL-28. NC1264.2
009900 30 GP-29 PICTURE $***.99. NC1264.2
010000 30 GPLEVEL-29. NC1264.2
010100 31 GP-30 PICTURE X(15). NC1264.2
010200 31 GPLEVEL-30. NC1264.2
010300 32 GP-31 PICTURE 9(10). NC1264.2
010400 32 GPLEVEL-31. NC1264.2
010500 33 GP-32 PICTURE *99. NC1264.2
010600 33 GPLEVEL-32. NC1264.2
010700 34 GP-33 PICTURE ZZZ9. NC1264.2
010800 34 GPLEVEL-33. NC1264.2
010900 35 GP-34 PICTURE BB9BB9. NC1264.2
011000 35 GPLEVEL-34. NC1264.2
011100 36 GP-35 PICTURE $99,999.99. NC1264.2
011200 36 GPLEVEL-35. NC1264.2
011300 37 GP-36 PICTURE 090909. NC1264.2
011400 37 GPLEVEL-36. NC1264.2
011500 38 GP-37 PICTURE ZZZZ. NC1264.2
011600 38 GPLEVEL-37. NC1264.2
011700 39 GP-38 PICTURE +99. NC1264.2
011800 39 GPLEVEL-38. NC1264.2
011900 40 GP-39 PICTURE -99. NC1264.2
012000 40 GPLEVEL-39. NC1264.2
012100 41 GP-40 PICTURE 99CR. NC1264.2
012200 41 GPLEVEL-40. NC1264.2
012300 42 GP-41 PICTURE 99DB. NC1264.2
012400 42 GPLEVEL-41. NC1264.2
012500 43 GP-42 PICTURE ****. NC1264.2
012600 43 GPLEVEL-42. NC1264.2
012700 44 GP-43 PICTURE AAA. NC1264.2
012800 44 GPLEVEL-43. NC1264.2
012900 45 GP-44 PICTURE XXX. NC1264.2
013000 45 GPLEVEL-44. NC1264.2
013100 46 GP-45 PICTURE *9999. NC1264.2
013200 46 GPLEVEL-45. NC1264.2
013300 47 GP-46 PICTURE 9(10).99. NC1264.2
013400 47 GPLEVEL-46. NC1264.2
013500 48 GP-47 OCCURS 2 TIMES PICTURE 9. NC1264.2
013600 48 GPLEVEL-47. NC1264.2
013700 49 GP-48 OCCURS 2 TIMES PICTURE X. NC1264.2
013800 01 TABLE-GROUP. NC1264.2
013900 02 TB-1 PICTURE XX. NC1264.2
014000 02 TBGRP-1. NC1264.2
014100 03 TB-2 PICTURE XX. NC1264.2
014200 03 TBGRP-2. NC1264.2
014300 04 TB-3 PICTURE XX. NC1264.2
014400 04 TBGRP-3. NC1264.2
014500 05 TB-4 PICTURE XX. NC1264.2
014600 05 TBGRP-4. NC1264.2
014700 06 TB-5 PICTURE XX. NC1264.2
014800 06 TBGRP-5. NC1264.2
014900 07 TB-6 PICTURE XX. NC1264.2
015000 07 TBGRP-6. NC1264.2
015100 08 TB-7 PICTURE XX. NC1264.2
015200 08 TBGRP-7. NC1264.2
015300 09 TB-8 PICTURE XX. NC1264.2
015400 09 TBGRP-8. NC1264.2
015500 10 TB-9 PICTURE XX. NC1264.2
015600 10 TBGRP-9. NC1264.2
015700 11 TB-10 PICTURE XX. NC1264.2
015800 11 TBGRP-10. NC1264.2
015900 12 TB-11 PICTURE XX. NC1264.2
016000 12 TBGRP-11. NC1264.2
016100 13 TB-12 PICTURE XX. NC1264.2
016200 13 TBGRP-12. NC1264.2
016300 14 TB-13 PICTURE XX. NC1264.2
016400 14 TBGRP-13. NC1264.2
016500 15 TB-14 PICTURE XX. NC1264.2
016600 15 TBGRP-14. NC1264.2
016700 16 TB-15 PICTURE XX. NC1264.2
016800 16 TBGRP-15. NC1264.2
016900 17 TB-16 PICTURE XX. NC1264.2
017000 17 TBGRP-16. NC1264.2
017100 18 TB-17 PICTURE XX. NC1264.2
017200 18 TBGRP-17. NC1264.2
017300 19 TB-18 PICTURE XX. NC1264.2
017400 19 TBGRP-18. NC1264.2
017500 20 TB-19 PICTURE XX. NC1264.2
017600 20 TBGRP-19. NC1264.2
017700 21 TB-20 PICTURE XX. NC1264.2
017800 21 TBGRP-20. NC1264.2
017900 22 TB-21 PICTURE XX. NC1264.2
018000 22 TBGRP-21. NC1264.2
018100 23 TB-22 PICTURE XX. NC1264.2
018200 23 TBGRP-22. NC1264.2
018300 24 TB-23 PICTURE XX. NC1264.2
018400 24 TBGRP-23. NC1264.2
018500 25 TB-24 PICTURE XX. NC1264.2
018600 25 TBGRP-24. NC1264.2
018700 26 TB-25 PICTURE XX. NC1264.2
018800 26 TBGRP-25. NC1264.2
018900 27 TB-26 PICTURE XX. NC1264.2
019000 27 TBGRP-26. NC1264.2
019100 28 TB-27 PICTURE XX. NC1264.2
019200 28 TBGRP-27. NC1264.2
019300 29 TB-28 PICTURE XX. NC1264.2
019400 29 TBGRP-28. NC1264.2
019500 30 TB-29 PICTURE XX. NC1264.2
019600 30 TBGRP-29. NC1264.2
019700 31 TB-30 PICTURE XX. NC1264.2
019800 31 TBGRP-30. NC1264.2
019900 32 TB-31 PICTURE XX. NC1264.2
020000 32 TBGRP-31. NC1264.2
020100 33 TB-32 PICTURE XX. NC1264.2
020200 33 TBGRP-32. NC1264.2
020300 34 TB-33 PICTURE XX. NC1264.2
020400 34 TBGRP-33. NC1264.2
020500 35 TB-34 PICTURE XX. NC1264.2
020600 35 TBGRP-34. NC1264.2
020700 36 TB-35 PICTURE XX. NC1264.2
020800 36 TBGRP-35. NC1264.2
020900 37 TB-36 PICTURE XX. NC1264.2
021000 37 TBGRP-36. NC1264.2
021100 38 TB-37 PICTURE XX. NC1264.2
021200 38 TBGRP-37. NC1264.2
021300 39 TB-38 PICTURE XX. NC1264.2
021400 39 TBGRP-38. NC1264.2
021500 40 TB-39 PICTURE XX. NC1264.2
021600 40 TBGRP-39. NC1264.2
021700 41 TB-40 PICTURE XX. NC1264.2
021800 41 TBGRP-40. NC1264.2
021900 42 TB-41 PICTURE XX. NC1264.2
022000 42 TBGRP-41. NC1264.2
022100 43 TB-42 PICTURE XX. NC1264.2
022200 43 TBGRP-42. NC1264.2
022300 44 TB-43 PICTURE XX. NC1264.2
022400 44 TBGRP-43. NC1264.2
022500 45 TB-44 PICTURE XX. NC1264.2
022600 45 TBGRP-44. NC1264.2
022700 46 TB-45 PICTURE XX. NC1264.2
022800 46 TBGRP-45. NC1264.2
022900 47 TB-46 PICTURE XX. NC1264.2
023000 47 TBGRP-46. NC1264.2
023100 48 TB-47 PICTURE XX. NC1264.2
023200 48 TBGRP-47. NC1264.2
023300 49 TB-48 PICTURE XX. NC1264.2
023400 01 LITERAL-98. NC1264.2
023500 02 A-PART-98 PICTURE X(20) VALUE "ABCDEFGHIJKLMNOPQRST". NC1264.2
023600 02 B-PART-98 PICTURE X(20) VALUE "01234567899876543210". NC1264.2
023700 02 C-PART-98 PICTURE X(20) VALUE "SUPERCALIFRAGILISTIC". NC1264.2
023800 02 D-PART-98 PICTURE X(20) VALUE "THAT LITERAL WAS BAD". NC1264.2
023900 02 E-PART-98 PICTURE X(16) VALUE "UP ON THE ROOFS". NC1264.2
024000 01 BREAKDOWN-RECORD. NC1264.2
024100 02 LENGTH-COUNTER PICTURE 999 VALUE ZERO. NC1264.2
024200 02 COMPUTED-BREAKDOWN. NC1264.2
024300 03 CM-20 PICTURE X(20). NC1264.2
024400 03 CM-40 PICTURE X(20). NC1264.2
024500 03 CM-60 PICTURE X(20). NC1264.2
024600 03 CM-80 PICTURE X(20). NC1264.2
024700 03 CM-100 PICTURE X(20). NC1264.2
024800 03 CM-120 PICTURE X(20). NC1264.2
024900 03 CM-140 PICTURE X(20). NC1264.2
025000 03 CM-160 PICTURE X(20). NC1264.2
025100 03 CM-180 PICTURE X(20). NC1264.2
025200 03 CM-200 PICTURE X(20). NC1264.2
025300 02 CORRECT-BREAKDOWN. NC1264.2
025400 03 CR-20 PICTURE X(20). NC1264.2
025500 03 CR-40 PICTURE X(20). NC1264.2
025600 03 CR-60 PICTURE X(20). NC1264.2
025700 03 CR-80 PICTURE X(20). NC1264.2
025800 03 CR-100 PICTURE X(20). NC1264.2
025900 03 CR-120 PICTURE X(20). NC1264.2
026000 03 CR-140 PICTURE X(20). NC1264.2
026100 03 CR-160 PICTURE X(20). NC1264.2
026200 03 CR-180 PICTURE X(20). NC1264.2
026300 03 CR-200 PICTURE X(20). NC1264.2
026400 01 TEST-RESULTS. NC1264.2
026500 02 FILLER PIC X VALUE SPACE. NC1264.2
026600 02 FEATURE PIC X(20) VALUE SPACE. NC1264.2
026700 02 FILLER PIC X VALUE SPACE. NC1264.2
026800 02 P-OR-F PIC X(5) VALUE SPACE. NC1264.2
026900 02 FILLER PIC X VALUE SPACE. NC1264.2
027000 02 PAR-NAME. NC1264.2
027100 03 FILLER PIC X(19) VALUE SPACE. NC1264.2
027200 03 PARDOT-X PIC X VALUE SPACE. NC1264.2
027300 03 DOTVALUE PIC 99 VALUE ZERO. NC1264.2
027400 02 FILLER PIC X(8) VALUE SPACE. NC1264.2
027500 02 RE-MARK PIC X(61). NC1264.2
027600 01 TEST-COMPUTED. NC1264.2
027700 02 FILLER PIC X(30) VALUE SPACE. NC1264.2
027800 02 FILLER PIC X(17) VALUE NC1264.2
027900 " COMPUTED=". NC1264.2
028000 02 COMPUTED-X. NC1264.2
028100 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1264.2
028200 03 COMPUTED-N REDEFINES COMPUTED-A NC1264.2
028300 PIC -9(9).9(9). NC1264.2
028400 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1264.2
028500 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1264.2
028600 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1264.2
028700 03 CM-18V0 REDEFINES COMPUTED-A. NC1264.2
028800 04 COMPUTED-18V0 PIC -9(18). NC1264.2
028900 04 FILLER PIC X. NC1264.2
029000 03 FILLER PIC X(50) VALUE SPACE. NC1264.2
029100 01 TEST-CORRECT. NC1264.2
029200 02 FILLER PIC X(30) VALUE SPACE. NC1264.2
029300 02 FILLER PIC X(17) VALUE " CORRECT =". NC1264.2
029400 02 CORRECT-X. NC1264.2
029500 03 CORRECT-A PIC X(20) VALUE SPACE. NC1264.2
029600 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1264.2
029700 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1264.2
029800 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1264.2
029900 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1264.2
030000 03 CR-18V0 REDEFINES CORRECT-A. NC1264.2
030100 04 CORRECT-18V0 PIC -9(18). NC1264.2
030200 04 FILLER PIC X. NC1264.2
030300 03 FILLER PIC X(2) VALUE SPACE. NC1264.2
030400 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1264.2
030500 01 CCVS-C-1. NC1264.2
030600 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1264.2
030700- "SS PARAGRAPH-NAME NC1264.2
030800- " REMARKS". NC1264.2
030900 02 FILLER PIC X(20) VALUE SPACE. NC1264.2
031000 01 CCVS-C-2. NC1264.2
031100 02 FILLER PIC X VALUE SPACE. NC1264.2
031200 02 FILLER PIC X(6) VALUE "TESTED". NC1264.2
031300 02 FILLER PIC X(15) VALUE SPACE. NC1264.2
031400 02 FILLER PIC X(4) VALUE "FAIL". NC1264.2
031500 02 FILLER PIC X(94) VALUE SPACE. NC1264.2
031600 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1264.2
031700 01 REC-CT PIC 99 VALUE ZERO. NC1264.2
031800 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1264.2
031900 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1264.2
032000 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1264.2
032100 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1264.2
032200 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1264.2
032300 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1264.2
032400 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1264.2
032500 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1264.2
032600 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1264.2
032700 01 CCVS-H-1. NC1264.2
032800 02 FILLER PIC X(39) VALUE SPACES. NC1264.2
032900 02 FILLER PIC X(42) VALUE NC1264.2
033000 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1264.2
033100 02 FILLER PIC X(39) VALUE SPACES. NC1264.2
033200 01 CCVS-H-2A. NC1264.2
033300 02 FILLER PIC X(40) VALUE SPACE. NC1264.2
033400 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1264.2
033500 02 FILLER PIC XXXX VALUE NC1264.2
033600 "4.2 ". NC1264.2
033700 02 FILLER PIC X(28) VALUE NC1264.2
033800 " COPY - NOT FOR DISTRIBUTION". NC1264.2
033900 02 FILLER PIC X(41) VALUE SPACE. NC1264.2
034000 NC1264.2
034100 01 CCVS-H-2B. NC1264.2
034200 02 FILLER PIC X(15) VALUE NC1264.2
034300 "TEST RESULT OF ". NC1264.2
034400 02 TEST-ID PIC X(9). NC1264.2
034500 02 FILLER PIC X(4) VALUE NC1264.2
034600 " IN ". NC1264.2
034700 02 FILLER PIC X(12) VALUE NC1264.2
034800 " HIGH ". NC1264.2
034900 02 FILLER PIC X(22) VALUE NC1264.2
035000 " LEVEL VALIDATION FOR ". NC1264.2
035100 02 FILLER PIC X(58) VALUE NC1264.2
035200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
035300 01 CCVS-H-3. NC1264.2
035400 02 FILLER PIC X(34) VALUE NC1264.2
035500 " FOR OFFICIAL USE ONLY ". NC1264.2
035600 02 FILLER PIC X(58) VALUE NC1264.2
035700 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2
035800 02 FILLER PIC X(28) VALUE NC1264.2
035900 " COPYRIGHT 1985 ". NC1264.2
036000 01 CCVS-E-1. NC1264.2
036100 02 FILLER PIC X(52) VALUE SPACE. NC1264.2
036200 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1264.2
036300 02 ID-AGAIN PIC X(9). NC1264.2
036400 02 FILLER PIC X(45) VALUE SPACES. NC1264.2
036500 01 CCVS-E-2. NC1264.2
036600 02 FILLER PIC X(31) VALUE SPACE. NC1264.2
036700 02 FILLER PIC X(21) VALUE SPACE. NC1264.2
036800 02 CCVS-E-2-2. NC1264.2
036900 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1264.2
037000 03 FILLER PIC X VALUE SPACE. NC1264.2
037100 03 ENDER-DESC PIC X(44) VALUE NC1264.2
037200 "ERRORS ENCOUNTERED". NC1264.2
037300 01 CCVS-E-3. NC1264.2
037400 02 FILLER PIC X(22) VALUE NC1264.2
037500 " FOR OFFICIAL USE ONLY". NC1264.2
037600 02 FILLER PIC X(12) VALUE SPACE. NC1264.2
037700 02 FILLER PIC X(58) VALUE NC1264.2
037800 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
037900 02 FILLER PIC X(13) VALUE SPACE. NC1264.2
038000 02 FILLER PIC X(15) VALUE NC1264.2
038100 " COPYRIGHT 1985". NC1264.2
038200 01 CCVS-E-4. NC1264.2
038300 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1264.2
038400 02 FILLER PIC X(4) VALUE " OF ". NC1264.2
038500 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1264.2
038600 02 FILLER PIC X(40) VALUE NC1264.2
038700 " TESTS WERE EXECUTED SUCCESSFULLY". NC1264.2
038800 01 XXINFO. NC1264.2
038900 02 FILLER PIC X(19) VALUE NC1264.2
039000 "*** INFORMATION ***". NC1264.2
039100 02 INFO-TEXT. NC1264.2
039200 04 FILLER PIC X(8) VALUE SPACE. NC1264.2
039300 04 XXCOMPUTED PIC X(20). NC1264.2
039400 04 FILLER PIC X(5) VALUE SPACE. NC1264.2
039500 04 XXCORRECT PIC X(20). NC1264.2
039600 02 INF-ANSI-REFERENCE PIC X(48). NC1264.2
039700 01 HYPHEN-LINE. NC1264.2
039800 02 FILLER PIC IS X VALUE IS SPACE. NC1264.2
039900 02 FILLER PIC IS X(65) VALUE IS "************************NC1264.2
040000- "*****************************************". NC1264.2
040100 02 FILLER PIC IS X(54) VALUE IS "************************NC1264.2
040200- "******************************". NC1264.2
040300 01 CCVS-PGM-ID PIC X(9) VALUE NC1264.2
040400 "NC126A". NC1264.2
040500 PROCEDURE DIVISION. NC1264.2
040600 CCVS1 SECTION. NC1264.2
040700 OPEN-FILES. NC1264.2
040800 OPEN OUTPUT PRINT-FILE. NC1264.2
040900 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1264.2
041000 MOVE SPACE TO TEST-RESULTS. NC1264.2
041100 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1264.2
041200 GO TO CCVS1-EXIT. NC1264.2
041300 CLOSE-FILES. NC1264.2
041400 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1264.2
041500 TERMINATE-CCVS. NC1264.2
041600 EXIT PROGRAM. NC1264.2
041700 TERMINATE-CALL. NC1264.2
041800 STOP RUN. NC1264.2
041900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1264.2
042000 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1264.2
042100 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1264.2
042200 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1264.2
042300 MOVE "****TEST DELETED****" TO RE-MARK. NC1264.2
042400 PRINT-DETAIL. NC1264.2
042500 IF REC-CT NOT EQUAL TO ZERO NC1264.2
042600 MOVE "." TO PARDOT-X NC1264.2
042700 MOVE REC-CT TO DOTVALUE. NC1264.2
042800 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1264.2
042900 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1264.2
043000 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1264.2
043100 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1264.2
043200 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1264.2
043300 MOVE SPACE TO CORRECT-X. NC1264.2
043400 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1264.2
043500 MOVE SPACE TO RE-MARK. NC1264.2
043600 HEAD-ROUTINE. NC1264.2
043700 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
043800 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
043900 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1264.2
044000 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1264.2
044100 COLUMN-NAMES-ROUTINE. NC1264.2
044200 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
044300 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
044400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
044500 END-ROUTINE. NC1264.2
044600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1264.2
044700 END-RTN-EXIT. NC1264.2
044800 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
044900 END-ROUTINE-1. NC1264.2
045000 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1264.2
045100 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1264.2
045200 ADD PASS-COUNTER TO ERROR-HOLD. NC1264.2
045300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1264.2
045400 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1264.2
045500 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1264.2
045600 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1264.2
045700 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1264.2
045800 END-ROUTINE-12. NC1264.2
045900 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1264.2
046000 IF ERROR-COUNTER IS EQUAL TO ZERO NC1264.2
046100 MOVE "NO " TO ERROR-TOTAL NC1264.2
046200 ELSE NC1264.2
046300 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1264.2
046400 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1264.2
046500 PERFORM WRITE-LINE. NC1264.2
046600 END-ROUTINE-13. NC1264.2
046700 IF DELETE-COUNTER IS EQUAL TO ZERO NC1264.2
046800 MOVE "NO " TO ERROR-TOTAL ELSE NC1264.2
046900 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1264.2
047000 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1264.2
047100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
047200 IF INSPECT-COUNTER EQUAL TO ZERO NC1264.2
047300 MOVE "NO " TO ERROR-TOTAL NC1264.2
047400 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1264.2
047500 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1264.2
047600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
047700 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
047800 WRITE-LINE. NC1264.2
047900 ADD 1 TO RECORD-COUNT. NC1264.2
048000 IF RECORD-COUNT GREATER 42 NC1264.2
048100 MOVE DUMMY-RECORD TO DUMMY-HOLD NC1264.2
048200 MOVE SPACE TO DUMMY-RECORD NC1264.2
048300 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1264.2
048400 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1264.2
048500 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1264.2
048600 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1264.2
048700 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1264.2
048800 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
048900 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
049000 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
049100 MOVE DUMMY-HOLD TO DUMMY-RECORD NC1264.2
049200 MOVE ZERO TO RECORD-COUNT. NC1264.2
049300 PERFORM WRT-LN. NC1264.2
049400 WRT-LN. NC1264.2
049500 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1264.2
049600 MOVE SPACE TO DUMMY-RECORD. NC1264.2
049700 BLANK-LINE-PRINT. NC1264.2
049800 PERFORM WRT-LN. NC1264.2
049900 FAIL-ROUTINE. NC1264.2
050000 IF COMPUTED-X NOT EQUAL TO SPACE NC1264.2
050100 GO TO FAIL-ROUTINE-WRITE. NC1264.2
050200 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1264.2
050300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1264.2
050400 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1264.2
050500 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
050600 MOVE SPACES TO INF-ANSI-REFERENCE. NC1264.2
050700 GO TO FAIL-ROUTINE-EX. NC1264.2
050800 FAIL-ROUTINE-WRITE. NC1264.2
050900 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1264.2
051000 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1264.2
051100 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1264.2
051200 MOVE SPACES TO COR-ANSI-REFERENCE. NC1264.2
051300 FAIL-ROUTINE-EX. EXIT. NC1264.2
051400 BAIL-OUT. NC1264.2
051500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1264.2
051600 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1264.2
051700 BAIL-OUT-WRITE. NC1264.2
051800 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1264.2
051900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1264.2
052000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
052100 MOVE SPACES TO INF-ANSI-REFERENCE. NC1264.2
052200 BAIL-OUT-EX. EXIT. NC1264.2
052300 CCVS1-EXIT. NC1264.2
052400 EXIT. NC1264.2
052500 SECT-NC126A-001 SECTION. NC1264.2
052600 LEV-INIT-GF-1-1. NC1264.2
052700 MOVE "VI-21 5.3.3 SR1" TO ANSI-REFERENCE. NC1264.2
052800 MOVE "SPACE MOVED TO GRP" TO FEATURE. NC1264.2
052900 PERFORM PRINT-DETAIL. NC1264.2
053000 MOVE "GROUP ITEM CHECK " TO FEATURE. NC1264.2
053100 LEV-TEST-GF-1-0. NC1264.2
053200 MOVE SPACE TO TABLE-GROUP. NC1264.2
053300 LEV-TEST-GF-1-1. NC1264.2
053400 IF TBGRP-1 EQUAL TO SPACE NC1264.2
053500 PERFORM PASS NC1264.2
053600 GO TO LEV-WRITE-GF-1-1. NC1264.2
053700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
053800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
053900 MOVE 94 TO LENGTH-COUNTER. NC1264.2
054000 GO TO LEV-WRITE-GF-1-1. NC1264.2
054100 LEV-DELETE-GF-1-1. NC1264.2
054200 PERFORM DE-LETE. NC1264.2
054300 LEV-WRITE-GF-1-1. NC1264.2
054400 MOVE "LEV-TEST-GF-1-1" TO PAR-NAME. NC1264.2
054500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
054600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
054700 PERFORM PRINT-DETAIL. NC1264.2
054800 LEV-TEST-GF-1-2. NC1264.2
054900 IF TBGRP-2 EQUAL TO SPACE NC1264.2
055000 PERFORM PASS NC1264.2
055100 GO TO LEV-WRITE-GF-1-2. NC1264.2
055200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
055300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
055400 MOVE 92 TO LENGTH-COUNTER. NC1264.2
055500 GO TO LEV-WRITE-GF-1-2. NC1264.2
055600 LEV-DELETE-GF-1-2. NC1264.2
055700 PERFORM DE-LETE. NC1264.2
055800 LEV-WRITE-GF-1-2. NC1264.2
055900 MOVE "LEV-TEST-GF-1-2" TO PAR-NAME. NC1264.2
056000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
056100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
056200 PERFORM PRINT-DETAIL. NC1264.2
056300 LEV-TEST-GF-1-3. NC1264.2
056400 IF TBGRP-3 EQUAL TO SPACE NC1264.2
056500 PERFORM PASS NC1264.2
056600 GO TO LEV-WRITE-GF-1-3. NC1264.2
056700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
056800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
056900 MOVE 90 TO LENGTH-COUNTER. NC1264.2
057000 GO TO LEV-WRITE-GF-1-3. NC1264.2
057100 LEV-DELETE-GF-1-3. NC1264.2
057200 PERFORM DE-LETE. NC1264.2
057300 LEV-WRITE-GF-1-3. NC1264.2
057400 MOVE "LEV-TEST-GF-1-3" TO PAR-NAME. NC1264.2
057500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
057600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
057700 PERFORM PRINT-DETAIL. NC1264.2
057800 LEV-TEST-GF-1-4. NC1264.2
057900 IF TBGRP-4 EQUAL TO SPACE NC1264.2
058000 PERFORM PASS NC1264.2
058100 GO TO LEV-WRITE-GF-1-4. NC1264.2
058200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
058300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
058400 MOVE 88 TO LENGTH-COUNTER. NC1264.2
058500 GO TO LEV-WRITE-GF-1-4. NC1264.2
058600 LEV-DELETE-GF-1-4. NC1264.2
058700 PERFORM DE-LETE. NC1264.2
058800 LEV-WRITE-GF-1-4. NC1264.2
058900 MOVE "LEV-TEST-GF-1-4" TO PAR-NAME. NC1264.2
059000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
059100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
059200 PERFORM PRINT-DETAIL. NC1264.2
059300 LEV-TEST-GF-1-5. NC1264.2
059400 IF TBGRP-5 EQUAL TO SPACE NC1264.2
059500 PERFORM PASS NC1264.2
059600 GO TO LEV-WRITE-GF-1-5. NC1264.2
059700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
059800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
059900 MOVE 86 TO LENGTH-COUNTER. NC1264.2
060000 GO TO LEV-WRITE-GF-1-5. NC1264.2
060100 LEV-DELETE-GF-1-5. NC1264.2
060200 PERFORM DE-LETE. NC1264.2
060300 LEV-WRITE-GF-1-5. NC1264.2
060400 MOVE "LEV-TEST-GF-1-5" TO PAR-NAME. NC1264.2
060500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
060600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
060700 PERFORM PRINT-DETAIL. NC1264.2
060800 LEV-TEST-GF-1-6. NC1264.2
060900 IF TBGRP-6 EQUAL TO SPACE NC1264.2
061000 PERFORM PASS NC1264.2
061100 GO TO LEV-WRITE-GF-1-6. NC1264.2
061200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
061300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
061400 MOVE 84 TO LENGTH-COUNTER. NC1264.2
061500 GO TO LEV-WRITE-GF-1-6. NC1264.2
061600 LEV-DELETE-GF-1-6. NC1264.2
061700 PERFORM DE-LETE. NC1264.2
061800 LEV-WRITE-GF-1-6. NC1264.2
061900 MOVE "LEV-TEST-GF-1-6" TO PAR-NAME. NC1264.2
062000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
062100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
062200 PERFORM PRINT-DETAIL. NC1264.2
062300 LEV-TEST-GF-1-7. NC1264.2
062400 IF TBGRP-7 EQUAL TO SPACE NC1264.2
062500 PERFORM PASS NC1264.2
062600 GO TO LEV-WRITE-GF-1-7. NC1264.2
062700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
062800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
062900 MOVE 82 TO LENGTH-COUNTER. NC1264.2
063000 GO TO LEV-WRITE-GF-1-7. NC1264.2
063100 LEV-DELETE-GF-1-7. NC1264.2
063200 PERFORM DE-LETE. NC1264.2
063300 LEV-WRITE-GF-1-7. NC1264.2
063400 MOVE "LEV-TEST-GF-1-7" TO PAR-NAME. NC1264.2
063500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
063600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
063700 PERFORM PRINT-DETAIL. NC1264.2
063800 LEV-TEST-GF-1-8. NC1264.2
063900 IF TBGRP-8 EQUAL TO SPACE NC1264.2
064000 PERFORM PASS NC1264.2
064100 GO TO LEV-WRITE-GF-1-8. NC1264.2
064200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
064300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
064400 MOVE 80 TO LENGTH-COUNTER. NC1264.2
064500 GO TO LEV-WRITE-GF-1-8. NC1264.2
064600 LEV-DELETE-GF-1-8. NC1264.2
064700 PERFORM DE-LETE. NC1264.2
064800 LEV-WRITE-GF-1-8. NC1264.2
064900 MOVE "LEV-TEST-GF-1-8" TO PAR-NAME. NC1264.2
065000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
065100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
065200 PERFORM PRINT-DETAIL. NC1264.2
065300 LEV-TEST-GF-1-9. NC1264.2
065400 IF TBGRP-9 EQUAL TO SPACE NC1264.2
065500 PERFORM PASS NC1264.2
065600 GO TO LEV-WRITE-GF-1-9. NC1264.2
065700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
065800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
065900 MOVE 78 TO LENGTH-COUNTER. NC1264.2
066000 GO TO LEV-WRITE-GF-1-9. NC1264.2
066100 LEV-DELETE-GF-1-9. NC1264.2
066200 PERFORM DE-LETE. NC1264.2
066300 LEV-WRITE-GF-1-9. NC1264.2
066400 MOVE "LEV-TEST-GF-1-9" TO PAR-NAME. NC1264.2
066500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
066600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
066700 PERFORM PRINT-DETAIL. NC1264.2
066800 LEV-TEST-GF-10. NC1264.2
066900 IF TBGRP-10 EQUAL TO SPACE NC1264.2
067000 PERFORM PASS NC1264.2
067100 GO TO LEV-WRITE-GF-1-10. NC1264.2
067200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
067300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
067400 MOVE 76 TO LENGTH-COUNTER. NC1264.2
067500 GO TO LEV-WRITE-GF-1-10. NC1264.2
067600 LEV-DELETE-GF-1-10. NC1264.2
067700 PERFORM DE-LETE. NC1264.2
067800 LEV-WRITE-GF-1-10. NC1264.2
067900 MOVE "LEV-TEST-GF-1-10" TO PAR-NAME. NC1264.2
068000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
068100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
068200 PERFORM PRINT-DETAIL. NC1264.2
068300 LEV-TEST-GF-1-11. NC1264.2
068400 IF TBGRP-11 EQUAL TO SPACE NC1264.2
068500 PERFORM PASS NC1264.2
068600 GO TO LEV-WRITE-GF-1-11. NC1264.2
068700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
068800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
068900 MOVE 74 TO LENGTH-COUNTER. NC1264.2
069000 GO TO LEV-WRITE-GF-1-11. NC1264.2
069100 LEV-DELETE-GF-1-11. NC1264.2
069200 PERFORM DE-LETE. NC1264.2
069300 LEV-WRITE-GF-1-11. NC1264.2
069400 MOVE "LEV-TEST-GF-1-11" TO PAR-NAME. NC1264.2
069500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
069600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
069700 PERFORM PRINT-DETAIL. NC1264.2
069800 LEV-TEST-GF-1-12. NC1264.2
069900 IF TBGRP-12 EQUAL TO SPACE NC1264.2
070000 PERFORM PASS NC1264.2
070100 GO TO LEV-WRITE-GF-1-12. NC1264.2
070200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
070300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
070400 MOVE 72 TO LENGTH-COUNTER. NC1264.2
070500 GO TO LEV-WRITE-GF-1-12. NC1264.2
070600 LEV-DELETE-GF-1-12. NC1264.2
070700 PERFORM DE-LETE. NC1264.2
070800 LEV-WRITE-GF-1-12. NC1264.2
070900 MOVE "LEV-TEST-GF-1-12" TO PAR-NAME. NC1264.2
071000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
071100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
071200 PERFORM PRINT-DETAIL. NC1264.2
071300 LEV-TEST-GF-13. NC1264.2
071400 IF TBGRP-13 EQUAL TO SPACE NC1264.2
071500 PERFORM PASS NC1264.2
071600 GO TO LEV-WRITE-GF-1-13. NC1264.2
071700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
071800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
071900 MOVE 70 TO LENGTH-COUNTER. NC1264.2
072000 GO TO LEV-WRITE-GF-1-13. NC1264.2
072100 LEV-DELETE-GF-1-13. NC1264.2
072200 PERFORM DE-LETE. NC1264.2
072300 LEV-WRITE-GF-1-13. NC1264.2
072400 MOVE "LEV-TEST-GF-1-13" TO PAR-NAME. NC1264.2
072500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
072600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
072700 PERFORM PRINT-DETAIL. NC1264.2
072800 LEV-TEST-GF-1-14. NC1264.2
072900 IF TBGRP-14 EQUAL TO SPACE NC1264.2
073000 PERFORM PASS NC1264.2
073100 GO TO LEV-WRITE-GF-1-14. NC1264.2
073200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
073300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
073400 MOVE 68 TO LENGTH-COUNTER. NC1264.2
073500 GO TO LEV-WRITE-GF-1-14. NC1264.2
073600 LEV-DELETE-GF-1-14. NC1264.2
073700 PERFORM DE-LETE. NC1264.2
073800 LEV-WRITE-GF-1-14. NC1264.2
073900 MOVE "LEV-TEST-GF-1-14" TO PAR-NAME. NC1264.2
074000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
074100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
074200 PERFORM PRINT-DETAIL. NC1264.2
074300 LEV-TEST-GF-1-15. NC1264.2
074400 IF TBGRP-15 EQUAL TO SPACE NC1264.2
074500 PERFORM PASS NC1264.2
074600 GO TO LEV-WRITE-GF-1-15. NC1264.2
074700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
074800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
074900 MOVE 66 TO LENGTH-COUNTER. NC1264.2
075000 GO TO LEV-WRITE-GF-1-15. NC1264.2
075100 LEV-DELETE-GF-1-15. NC1264.2
075200 PERFORM DE-LETE. NC1264.2
075300 LEV-WRITE-GF-1-15. NC1264.2
075400 MOVE "LEV-TEST-GF-1-15" TO PAR-NAME. NC1264.2
075500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
075600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
075700 PERFORM PRINT-DETAIL. NC1264.2
075800 LEV-TEST-GF-1-16. NC1264.2
075900 IF TBGRP-16 EQUAL TO SPACE NC1264.2
076000 PERFORM PASS NC1264.2
076100 GO TO LEV-WRITE-GF-1-16. NC1264.2
076200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
076300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
076400 MOVE 64 TO LENGTH-COUNTER. NC1264.2
076500 GO TO LEV-WRITE-GF-1-16. NC1264.2
076600 LEV-DELETE-GF-1-16. NC1264.2
076700 PERFORM DE-LETE. NC1264.2
076800 LEV-WRITE-GF-1-16. NC1264.2
076900 MOVE "LEV-TEST-GF-1-16" TO PAR-NAME. NC1264.2
077000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
077100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
077200 PERFORM PRINT-DETAIL. NC1264.2
077300 LEV-TEST-GF-1-17. NC1264.2
077400 IF TBGRP-17 EQUAL TO SPACE NC1264.2
077500 PERFORM PASS NC1264.2
077600 GO TO LEV-WRITE-GF-1-17. NC1264.2
077700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
077800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
077900 MOVE 62 TO LENGTH-COUNTER. NC1264.2
078000 GO TO LEV-WRITE-GF-1-17. NC1264.2
078100 LEV-DELETE-GF-1-17. NC1264.2
078200 PERFORM DE-LETE. NC1264.2
078300 LEV-WRITE-GF-1-17. NC1264.2
078400 MOVE "LEV-TEST-GF-1-17" TO PAR-NAME. NC1264.2
078500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
078600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
078700 PERFORM PRINT-DETAIL. NC1264.2
078800 LEV-TEST-GF-1-18. NC1264.2
078900 IF TBGRP-18 EQUAL TO SPACE NC1264.2
079000 PERFORM PASS NC1264.2
079100 GO TO LEV-WRITE-GF-1-18. NC1264.2
079200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
079300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
079400 MOVE 60 TO LENGTH-COUNTER. NC1264.2
079500 GO TO LEV-WRITE-GF-1-18. NC1264.2
079600 LEV-DELETE-GF-1-18. NC1264.2
079700 PERFORM DE-LETE. NC1264.2
079800 LEV-WRITE-GF-1-18. NC1264.2
079900 MOVE "LEV-TEST-GF-1-18" TO PAR-NAME. NC1264.2
080000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
080100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
080200 PERFORM PRINT-DETAIL. NC1264.2
080300 LEV-TEST-GF-1-19. NC1264.2
080400 IF TBGRP-19 EQUAL TO SPACE NC1264.2
080500 PERFORM PASS NC1264.2
080600 GO TO LEV-WRITE-GF-1-19. NC1264.2
080700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
080800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
080900 MOVE 58 TO LENGTH-COUNTER. NC1264.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.231 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.
|
