000100IDENTIFICATIONDIVISION. ST1474.2 000200PROGRAM-ID. ST1474.2 000300 ST147A. ST1474.2 000400**************************************************************** ST1474.2 000500* * ST1474.2 000600* VALIDATION FOR:- * ST1474.2 000700* * ST1474.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1474.2 000900* * ST1474.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1474.2 001100* * ST1474.2 001200**************************************************************** ST1474.2 001300* ST1474.2 001400* OBJECTIVE - ST1474.2 001500* ROUTINE ST147A IS A TEST OF THE MERGE STATEMENT USING ST1474.2 001600* A NATIVE COLLATING SEQUENCE AND FIXED LENGTH RECORDS. ST1474.2 001700* ST1474.2 001800* TWO FILES ARE FIRST CREATED BY THE ROUTINE IN DESCENDING ST1474.2 001900* NATIVE ORDER. THE MERGE STATEMENT IS USED TO MERGE THE TWO ST1474.2 002000* FILES AND PRODUCE, IN DESCENDING NATIVE COLLATING ST1474.2 002100* SEQUENCE ORDER, 3 OUTPUT FILES FROM A SINGLE "MERGE" ST1474.2 002200* STATEMENT. ST1474.2 002300* ST1474.2 002400* FEATURES TESTED - ST1474.2 002500* * FIXED LENGTH RECORDS ST1474.2 002600* * SAME SORT-MERGE AREA IN THE I-O-CONTROL PARAGRAPH ST1474.2 002700* * QUALIFIED ALPHANUMERIC AND NUMERIC SORT KEYS ST1474.2 002800* * USING FILE-NAME SERIES ST1474.2 002900* ST1474.2 003000* * MERGE MERGE-FILE-NAME ST1474.2 003100* DESCENDING KEY-1 OF DATA-NAME-1 ST1474.2 003200* ON DESCENDING KEY KEY-2 OF DATA-NAME-2 ST1474.2 003300* USING FILE-NAME-2 FILE-NAME-1 ST1474.2 003400* GIVING FILE-NAME-3, FILE-NAME-4, FILE-NAME-5. ST1474.2 003500* ST1474.2 003600* FILES USED - ST1474.2 003700* * FILES SQ-FS1 AND SQ-FS2 ON MAGNETIC TAPE OR MASS-STORAGE ST1474.2 003800* ARE FIRST CREATED. THE MERGE STATEMENT ST1474.2 003900* USES BOTH OF THESE FILES AND CREATES OUTPUT FILES ST1474.2 004000* SQ-FS3, SQ-FS4 AND SQ-FS5. ST1474.2 004100* ST1474.2 004200* SQ-FS1 ST1474.2 004300* 51 RECORDS ST1474.2 004400* FIXED LENGTH RECORDS 132 CHARACTERS ST1474.2 004500* BLOCKED 1 ST1474.2 004600* RESERVE 2 AREAS ST1474.2 004700* ST1474.2 004800* SQ-FS2 ST1474.2 004900* 51 RECORDS ST1474.2 005000* FIXED LENGTH RECORDS 132 CHARACTERS ST1474.2 005100* BLOCKED 2 ST1474.2 005200* RESERVE 4 AREAS ST1474.2 005300* ST1474.2 005400* SQ-FS3, SQ-FS4 AND SQ-FS5 ST1474.2 005500* FINAL TOTAL OF 102 RECORDS ST1474.2 005600* FIXED LENGTH RECORDS 132 CHARACTERS ST1474.2 005700* BLOCKED 3 ST1474.2 005800* RESERVE 4 AREAS ST1474.2 005900* ST1474.2 006000* NOTE THAT SQ-FS3 IS THE RESULT OF MERGING SQ-FS1 AND ST1474.2 006100* SQ-FS2. THE RECORDS IN SQ-FS3 SHOULD ALTERNATE BETWEEN ST1474.2 006200* SQ-FS1 AND SQ-FS2 BECAUSE THE ALPHANUMERIC KEYS ARE THE SAME ST1474.2 006300* FOR BOTH FILES AND THE NUMERIC KEYS WERE MERGED INTO ST1474.2 006400* DESCENDING ORDER. FILES SQ-FS4 AND SQ-FS5 ARE ST1474.2 006500* IDENTICAL TO SQ-FS3. ST1474.2 006600* ST1474.2 006700* X-CARDS USED - ST1474.2 006800* X-XXX014 SQ-FS1 ST1474.2 006900* X-XXX015 SQ-FS2 ST1474.2 007000* X-XXX016 SQ-FS3 ST1474.2 007100* X-XXX018 SQ-FS5 ST1474.2 007200* X-XXX027 MERGE FILE ST-FS1 ST1474.2 007300* X-55 SYSTEM PRINTER NAME. ST1474.2 007400* X-60 SQ-FS4 ST1474.2 007500* X-XXX063 NATIVE COLLATING SEQUENCE ASCENDING ORDER-NOTE ST1474.2 007600* THAT THE QUOTE CHARACTER IS NOT TO APPEAR IN THE X-64 ST1474.2 007700* CARD AND THE DOLLAR SIGN $ IS TO APPEAR TWICE WHEREVER ST1474.2 007800* THE $ BELONGS IN THE NATIVE COLLATING SEQUENCE). IF ST1474.2 007900* THE NATIVE COLLATING SEQUENCE IS ACTUALLY THE ASCII ST1474.2 008000* COLLATING SEQUENCE SEE BELOW FOR A SAMPLE X-64 CARD..... ST1474.2 008100* ST1474.2 008200* X-63 " $$()*+,./0123456789;<=>ABCDEFGHIJKLMNOPQRSTUVWXYZ". ST1474.2 008300* X-69 OPTIONAL VALUE OF CLAUSE ST1474.2 008400* X-74 VALUE OF CLAUSE NAME PHRASES ST1474.2 008500* X-75 VALUE OF CLAUSE NAME PHRASES ST1474.2 008600* X-76 VALUE OF CLAUSE NAME PHRASES ST1474.2 008700* X-77 VALUE OF CLAUSE NAME PHRASES ST1474.2 008800* X-78 VALUE OF CLAUSE NAME PHRASES ST1474.2 008900* X-79 VALUE OF CLAUSE NAME PHRASES ST1474.2 009000* X-82 SOURCE COMPUTER NAME. ST1474.2 009100* X-83 OBJECT COMPUTER NAME. ST1474.2 009200* ST1474.2 009300* ST1474.2 009400* OPTIONS RECOMMENDED - ST1474.2 009500* * OPT SW6 - X TO BE USED IF NECESSARY TO DUMP THE ST1474.2 009600* FILES AS THEY ARE CREATED AND READ ST1474.2 009700* DURING TESTS 3 THRU 8, 11 THRU 16, ST1474.2 009800* AND 19 THRU 24. ST1474.2 009900* ST1474.2 010000* TEST DESCRIPTIONS - ST1474.2 010100* MRG-TEST-001 CHECKS THE CREATION OF SQ-FS1 ST1474.2 010200* MRG-TEST-002 CHECKS THE CREATION OF SQ-FS2 ST1474.2 010300* MRG-TEST-003 TESTS RECORDS 1-20 ON MERGE RESULT SQ-FS3 ST1474.2 010400* MRG-TEST-004 TESTS RECORDS 21-40 ON MERGE RESULT SQ-FS3 ST1474.2 010500* MRG-TEST-005 TESTS RECORDS 41-60 ON MERGE RESULT SQ-FS3 ST1474.2 010600* MRG-TEST-006 TESTS RECORDS 61-80 ON MERGE RESULT SQ-FS3 ST1474.2 010700* MRG-TEST-007 TESTS RECORDS 81-100 ON MERGE RESULT SQ-FS3 ST1474.2 010800* MRG-TEST-008 TESTS RECORDS 101-102 ON MERGE RESULT SQ-FS3ST1474.2 010900* MRG-TEST-009 AN EOF CHECK ON SQ-FS3 ST1474.2 011000* MRG-TEST-010 CHECK THAT THE NUMERIC KEY ON THE LAST ST1474.2 011100* RECORD ON SQ-FS3 EQUALS 51 ST1474.2 011200* MRG-TEST-011 ST1474.2 011300* TO ST1474.2 011400* MRG-TEST-018 SAME TESTS ON SQ-FS4 ST1474.2 011500* MRG-TEST-019 ST1474.2 011600* TO ST1474.2 011700* MRG-TEST-026 SAME TESTS ON SQ-FS5 ST1474.2 011800* ST1474.2 011900* ************************************************************ ST1474.2 012000ENVIRONMENTDIVISION. ST1474.2 012100CONFIGURATIONSECTION. ST1474.2 012200SOURCE-COMPUTER. ST1474.2 012300 Card0130. ST1474.2 012400OBJECT-COMPUTER. ST1474.2 012500 Card0131. ST1474.2 012600INPUT-OUTPUTSECTION. ST1474.2 012700FILE-CONTROL. ST1474.2 012800SELECT PRINT-FILE ASSIGNTO ST1474.2 012900"C0085" . ST1474.2 013000SELECT SQ-FS1 ASSIGN ST1474.2 013100"C0020" ST1474.2 013200 ; ORGANIZATIONISSEQUENTIAL ST1474.2 013300 ; ACCESSMODESEQUENTIAL ST1474.2 013400 ; RESERVE2 AREAS. ST1474.2 013500SELECT SQ-FS2 ASSIGNTO ST1474.2 013600"C0021" ST1474.2 013700ORGANIZATIONISSEQUENTIAL ST1474.2 013800ACCESSMODEISSEQUENTIAL ST1474.2 013900RESERVE4 AREAS. ST1474.2 014000SELECT SQ-FS3 ASSIGNTO ST1474.2 014100"C0022" ST1474.2 014200ORGANIZATIONISSEQUENTIAL ST1474.2 014300 ; ACCESSMODEISSEQUENTIAL ST1474.2 014400RESERVE4 AREAS. ST1474.2 014500SELECT SQ-FS4 ASSIGNTO ST1474.2 014600"C0096" ST1474.2 014700ORGANIZATIONISSEQUENTIAL ST1474.2 014800 ; ACCESSMODEISSEQUENTIAL ST1474.2 014900RESERVE4 AREAS. ST1474.2 015000SELECT SQ-FS5 ASSIGNTO ST1474.2 015100"C0024" ST1474.2 015200ORGANIZATIONISSEQUENTIAL ST1474.2 015300 ; ACCESSMODEISSEQUENTIAL ST1474.2 015400RESERVE4 AREAS. ST1474.2 015500SELECT ST-FS1 ASSIGNTO ST1474.2 015600"C0039" . ST1474.2 015700I-O-CONTROL. ST1474.2 015800* SAME SORT-MERGE AREA FOR SQ-FS1, ST-FS1. ST1474.2 015900DATADIVISION. ST1474.2 016000FILESECTION. ST1474.2 016100FD PRINT-FILE. ST1474.2 01620001 PRINT-REC PICTURE X(120). ST1474.2 01630001 DUMMY-RECORD PICTURE X(120). ST1474.2 016400FD SQ-FS1 ST1474.2 016500LABEL RECORDS STANDARD ST1474.2 016600VALUEOF ST1474.2 016700 Impl1 ST1474.2 0168004711 ST1474.2 016900BLOCKCONTAINS1 RECORDS ST1474.2 017000 ST1474.2 017100RECORDCONTAINS132 CHARACTERS. ST1474.2 01720001 SQ-FS1R1-F-G-132. ST1474.2 01730010 REC-PREAMBLE PIC X(120). ST1474.2 01740010 REST-OF-1. ST1474.2 01750020 KEY-1. ST1474.2 01760030 ALPHAN-KEY PIC X. ST1474.2 01770030 NUM-KEY PIC999. ST1474.2 01780020 KEY-2. ST1474.2 01790030 ALPHAN-KEY PIC X. ST1474.2 01800030 NUM-KEY PIC999. ST1474.2 01810020 KEY-3. ST1474.2 01820030 ALPHAN-KEY PIC X. ST1474.2 01830030 NUM-KEY PIC999. ST1474.2 018400FD SQ-FS2 ST1474.2 018500LABELRECORDISSTANDARD ST1474.2 018600 ; VALUEOF ST1474.2 018700 Impl1 ST1474.2 018800IS ST1474.2 0189004711 ST1474.2 019000 ST1474.2 019100 ; BLOCKCONTAINS2 RECORDS ST1474.2 019200 ; RECORDCONTAINS132 CHARACTERS ST1474.2 019300DATARECORD SQ-FS2R1-F-G-132. ST1474.2 01940001 SQ-FS2R1-F-G-132. ST1474.2 01950010 REC-PRE-2 PIC X(120). ST1474.2 01960010 REST-OF-2. ST1474.2 01970020 KEY-4. ST1474.2 01980030 ALPHAN-KEY PIC X. ST1474.2 01990030 NUM-KEY PIC999. ST1474.2 02000020 KEY-5. ST1474.2 02010030 ALPHAN-KEY PIC X. ST1474.2 02020030 NUM-KEY PIC999. ST1474.2 02030020 KEY-6. ST1474.2 02040030 ALPHAN-KEY PIC X. ST1474.2 02050030 NUM-KEY PIC999. ST1474.2 020600FD SQ-FS3 ST1474.2 020700LABELRECORDISSTANDARD ST1474.2 020800 ; VALUEOF ST1474.2 020900 Impl1 ST1474.2 021000IS ST1474.2 0211004711 ST1474.2 021200 ST1474.2 021300 ; BLOCKCONTAINS3 RECORDS ST1474.2 021400RECORDCONTAINS132 CHARACTERS ST1474.2 021500DATARECORD SQ-FS3R1-F-G-132. ST1474.2 02160001 SQ-FS3R1-F-G-132. ST1474.2 02170010 REC-PRE-3 PIC X(120). ST1474.2 02180010 REST-OF-3. ST1474.2 02190020 KEY-7. ST1474.2 02200030 ALPHAN-KEY PIC X. ST1474.2 02210030 NUM-KEY PIC999. ST1474.2 02220020 KEY-8. ST1474.2 02230030 ALPHAN-KEY PIC X. ST1474.2 02240030 NUM-KEY PIC999. ST1474.2 02250020 KEY-9. ST1474.2 02260030 ALPHAN-KEY PIC X. ST1474.2 02270030 NUM-KEY PIC999. ST1474.2 022800FD SQ-FS4 ST1474.2 022900LABELRECORDISSTANDARD ST1474.2 023000 ; VALUEOF ST1474.2 023100 Impl1 ST1474.2 023200IS ST1474.2 023300 Card0120 ST1474.2 023400 ST1474.2 023500 ; BLOCKCONTAINS3 RECORDS ST1474.2 023600RECORDCONTAINS132 CHARACTERS ST1474.2 023700DATARECORD SQ-FS4R1-F-G-132. ST1474.2 02380001 SQ-FS4R1-F-G-132. ST1474.2 02390010 REC-PRE-4 PIC X(120). ST1474.2 02400010 REST-OF-4. ST1474.2 02410020 KEY-10. ST1474.2 02420030 ALPHAN-KEY PIC X. ST1474.2 02430030 NUM-KEY PIC999. ST1474.2 02440020 KEY-11. ST1474.2 02450030 ALPHAN-KEY PIC X. ST1474.2 02460030 NUM-KEY PIC999. ST1474.2 02470020 KEY-12. ST1474.2 02480030 ALPHAN-KEY PIC X. ST1474.2 02490030 NUM-KEY PIC999. ST1474.2 025000FD SQ-FS5 ST1474.2 025100LABELRECORDISSTANDARD ST1474.2 025200 ; VALUEOF ST1474.2 025300 Impl1 ST1474.2 025400IS ST1474.2 025500 Card0121 ST1474.2 025600 ST1474.2 025700 ; BLOCKCONTAINS3 RECORDS ST1474.2 025800RECORDCONTAINS132 CHARACTERS ST1474.2 025900DATARECORD SQ-FS5R1-F-G-132. ST1474.2 02600001 SQ-FS5R1-F-G-132. ST1474.2 02610010 REC-PRE-5 PIC X(120). ST1474.2 02620010 REST-OF-5. ST1474.2 02630020 KEY-13. ST1474.2 02640030 ALPHAN-KEY PIC X. ST1474.2 02650030 NUM-KEY PIC999. ST1474.2 02660020 KEY-14. ST1474.2 02670030 ALPHAN-KEY PIC X. ST1474.2 02680030 NUM-KEY PIC999. ST1474.2 02690020 KEY-15. ST1474.2 02700030 ALPHAN-KEY PIC X. ST1474.2 02710030 NUM-KEY PIC999. ST1474.2 027200SD ST-FS1 ST1474.2 027300RECORDCONTAINS132 CHARACTERS ST1474.2 027400DATARECORDIS ST-FS1R1-F-G-132. ST1474.2 02750001 ST-FS1R1-F-G-132. ST1474.2 02760002FILLERPIC X(120). ST1474.2 02770002 NON-KEY-1. ST1474.2 02780003 A-KEY PIC X. ST1474.2 02790003 N-KEY PIC999. ST1474.2 02800002 SORT-KEY. ST1474.2 02810003 A-KEY PIC X. ST1474.2 02820003 N-KEY PIC999. ST1474.2 02830002 NON-KEY-2. ST1474.2 02840003 A-KEY PIC X. ST1474.2 02850003 N-KEY PIC999. ST1474.2 028600WORKING-STORAGESECTION. ST1474.2 02870077 WRK-DU-9-0001 PIC9VALUE0. ST1474.2 02880077 WRK-DU-999-0001 PIC999. ST1474.2 02890077 WRK-DU-999-2 PIC999VALUE001. ST1474.2 02900077 LAST-REC-NUM PIC999VALUEZERO. ST1474.2 02910001 WRK-XN-0001 PIC X(51) VALUE ST1474.2 029200"C0099" . ST1474.2 02930001 WRK-XN-O051F-X-0001 REDEFINES WRK-XN-0001. ST1474.2 02940002 CHAR PIC X OCCURS51 TIMES. ST1474.2 02950001 WRK-XN-2 PIC X(51) VALUE ST1474.2 029600"C0099" . ST1474.2 02970001 WRK-XN-0051F-X-0002 REDEFINES WRK-XN-2. ST1474.2 02980002 ASCIIS PIC X OCCURS51 TIMES. ST1474.2 02990001 WRK-XN-O020F-0001. ST1474.2 03000002 COMPU PIC X OCCURS20 TIMES. ST1474.2 03010001 WRK-XN-X-0001 REDEFINES WRK-XN-O020F-0001. ST1474.2 03020002FILLERPIC X(20). ST1474.2 03030001 WRK-XN-O120F-1. ST1474.2 03040002 COLLS PIC X OCCURS120 TIMES. ST1474.2 03050001 WRK-XN-X-2 REDEFINES WRK-XN-O120F-1. ST1474.2 03060002 WRK-XN-0002 PIC X(20). ST1474.2 03070002 WRK-XN-0003 PIC X(20). ST1474.2 03080002 WRK-XN-0004 PIC X(20). ST1474.2 03090002 WRK-XN-0005 PIC X(20). ST1474.2 03100002 WRK-XN-0006 PIC X(20). ST1474.2 03110002 WRK-XN-0007 PIC X(20). ST1474.2 03120001 FILE-RECORD-INFORMATION-REC. ST1474.2 03130003 FILE-RECORD-INFO-SKELETON. ST1474.2 03140005FILLERPICTURE X(48) VALUE ST1474.2 031500"FILE= ,RECORD= /0,RECNO=000000,UPDT=00". ST1474.2 03160005FILLERPICTURE X(46) VALUE ST1474.2 031700",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". ST1474.2 03180005FILLERPICTURE X(26) VALUE ST1474.2 031900",LFIL=000000,ORG= ,LBLR= ". ST1474.2 03200005FILLERPICTURE X(37) VALUE ST1474.2 032100",RECKEY= ". ST1474.2 03220005FILLERPICTURE X(38) VALUE ST1474.2 032300",ALTKEY1= ". ST1474.2 03240005FILLERPICTURE X(38) VALUE ST1474.2 032500",ALTKEY2= ". ST1474.2 03260005FILLERPICTURE X(7) VALUESPACE.ST1474.2 03270003 FILE-RECORD-INFO OCCURS10 TIMES. ST1474.2 03280005 FILE-RECORD-INFO-P1-120. ST1474.2 03290007FILLERPIC X(5). ST1474.2 03300007 XFILE-NAME PIC X(6). ST1474.2 03310007FILLERPIC X(8). ST1474.2 03320007 XRECORD-NAME PIC X(6). ST1474.2 03330007FILLERPIC X(1). ST1474.2 03340007 REELUNIT-NUMBER PIC9(1). ST1474.2 03350007FILLERPIC X(7). ST1474.2 03360007 XRECORD-NUMBER PIC9(6). ST1474.2 03370007FILLERPIC X(6). ST1474.2 03380007 UPDATE-NUMBER PIC9(2). ST1474.2 03390007FILLERPIC X(5). ST1474.2 03400007 ODO-NUMBER PIC9(4). ST1474.2 03410007FILLERPIC X(5). ST1474.2 03420007 XPROGRAM-NAME PIC X(5). ST1474.2 03430007FILLERPIC X(7). ST1474.2 03440007 XRECORD-LENGTH PIC9(6). ST1474.2 03450007FILLERPIC X(7). ST1474.2 03460007 CHARS-OR-RECORDS PIC X(2). ST1474.2 03470007FILLERPIC X(1). ST1474.2 03480007 XBLOCK-SIZE PIC9(4). ST1474.2 03490007FILLERPIC X(6). ST1474.2 03500007 RECORDS-IN-FILE PIC9(6). ST1474.2 03510007FILLERPIC X(5). ST1474.2 03520007 XFILE-ORGANIZATION PIC X(2). ST1474.2 03530007FILLERPIC X(6). ST1474.2 03540007 XLABEL-TYPE PIC X(1). ST1474.2 03550005 FILE-RECORD-INFO-P121-240. ST1474.2 03560007FILLERPIC X(8). ST1474.2 03570007 XRECORD-KEY PIC X(29). ST1474.2 03580007FILLERPIC X(9). ST1474.2 03590007 ALTERNATE-KEY1 PIC X(29). ST1474.2 03600007FILLERPIC X(9). ST1474.2 03610007 ALTERNATE-KEY2 PIC X(29). ST1474.2 03620007FILLERPIC X(7). ST1474.2 03630001 TEST-RESULTS. ST1474.2 03640002FILLERPIC X VALUESPACE. ST1474.2 03650002 FEATURE PIC X(20) VALUESPACE. ST1474.2 03660002FILLERPIC X VALUESPACE. ST1474.2 03670002 P-OR-F PIC X(5) VALUESPACE. ST1474.2 03680002FILLERPIC X VALUESPACE. ST1474.2 03690002 PAR-NAME. ST1474.2 03700003FILLERPIC X(19) VALUESPACE. ST1474.2 03710003 PARDOT-X PIC X VALUESPACE. ST1474.2 03720003 DOTVALUE PIC99VALUEZERO. ST1474.2 03730002FILLERPIC X(8) VALUESPACE. ST1474.2 03740002 RE-MARK PIC X(61). ST1474.2 03750001 TEST-COMPUTED. ST1474.2 03760002FILLERPIC X(30) VALUESPACE. ST1474.2 03770002FILLERPIC X(17) VALUE ST1474.2 037800" COMPUTED=". ST1474.2 03790002 COMPUTED-X. ST1474.2 03800003 COMPUTED-A PIC X(20) VALUESPACE. ST1474.2 03810003 COMPUTED-N REDEFINES COMPUTED-A ST1474.2 038200PIC -9(9).9(9). ST1474.2 03830003 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). ST1474.2 03840003 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). ST1474.2 03850003 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). ST1474.2 03860003 CM-18V0 REDEFINES COMPUTED-A. ST1474.2 03870004 COMPUTED-18V0 PIC -9(18). ST1474.2 03880004FILLERPIC X. ST1474.2 03890003FILLERPIC X(50) VALUESPACE. ST1474.2 03900001 TEST-CORRECT. ST1474.2 03910002FILLERPIC X(30) VALUESPACE. ST1474.2 03920002FILLERPIC X(17) VALUE" CORRECT =". ST1474.2 03930002 CORRECT-X. ST1474.2 03940003 CORRECT-A PIC X(20) VALUESPACE. ST1474.2 03950003 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). ST1474.2 03960003 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). ST1474.2 03970003 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). ST1474.2 03980003 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). ST1474.2 03990003 CR-18V0 REDEFINES CORRECT-A. ST1474.2 04000004 CORRECT-18V0 PIC -9(18). ST1474.2 04010004FILLERPIC X. ST1474.2 04020003FILLERPIC X(2) VALUESPACE. ST1474.2 04030003 COR-ANSI-REFERENCE PIC X(48) VALUESPACE. ST1474.2 04040001 CCVS-C-1. ST1474.2 04050002FILLERPICIS X(99) VALUEIS" FEATURE PAST1474.2 040600- "SS PARAGRAPH-NAME ST1474.2 040700- " REMARKS". ST1474.2 04080002FILLERPIC X(20) VALUESPACE. ST1474.2 04090001 CCVS-C-2. ST1474.2 04100002FILLERPIC X VALUESPACE. ST1474.2 04110002FILLERPIC X(6) VALUE"TESTED". ST1474.2 04120002FILLERPIC X(15) VALUESPACE. ST1474.2 04130002FILLERPIC X(4) VALUE"FAIL". ST1474.2 04140002FILLERPIC X(94) VALUESPACE. ST1474.2 04150001 REC-SKL-SUB PIC9(2) VALUEZERO. ST1474.2 04160001 REC-CT PIC99VALUEZERO. ST1474.2 04170001 DELETE-COUNTER PIC999VALUEZERO. ST1474.2 04180001 ERROR-COUNTER PIC999VALUEZERO. ST1474.2 04190001 INSPECT-COUNTER PIC999VALUEZERO. ST1474.2 04200001 PASS-COUNTER PIC999VALUEZERO. ST1474.2 04210001 TOTAL-ERROR PIC999VALUEZERO. ST1474.2 04220001 ERROR-HOLD PIC999VALUEZERO. ST1474.2 04230001 DUMMY-HOLD PIC X(120) VALUESPACE. ST1474.2 04240001 RECORD-COUNT PIC9(5) VALUEZERO. ST1474.2 04250001 ANSI-REFERENCE PIC X(48) VALUESPACES. ST1474.2 04260001 CCVS-H-1. ST1474.2 04270002FILLERPIC X(39) VALUESPACES. ST1474.2 04280002FILLERPIC X(42) VALUE ST1474.2 042900"OFFICIAL COBOL COMPILER VALIDATION SYSTEM". ST1474.2 04300002FILLERPIC X(39) VALUESPACES. ST1474.2 04310001 CCVS-H-2A. ST1474.2 04320002FILLERPIC X(40) VALUESPACE. ST1474.2 04330002FILLERPIC X(7) VALUE"CCVS85 ". ST1474.2 04340002FILLERPIC XXXX VALUE ST1474.2 043500"4.2 ". ST1474.2 04360002FILLERPIC X(28) VALUE ST1474.2 043700" COPY - NOT FOR DISTRIBUTION". ST1474.2 04380002FILLERPIC X(41) VALUESPACE. ST1474.2 043900 ST1474.2 04400001 CCVS-H-2B. ST1474.2 04410002FILLERPIC X(15) VALUE ST1474.2 044200"TEST RESULT OF ". ST1474.2 04430002 TEST-ID PIC X(9). ST1474.2 04440002FILLERPIC X(4) VALUE ST1474.2 044500" IN ". ST1474.2 04460002FILLERPIC X(12) VALUE ST1474.2 044700" HIGH ". ST1474.2 04480002FILLERPIC X(22) VALUE ST1474.2 044900" LEVEL VALIDATION FOR ". ST1474.2 04500002FILLERPIC X(58) VALUE ST1474.2 045100"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1474.2 04520001 CCVS-H-3. ST1474.2 04530002FILLERPIC X(34) VALUE ST1474.2 045400" FOR OFFICIAL USE ONLY ". ST1474.2 04550002FILLERPIC X(58) VALUE ST1474.2 045600"COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1474.2 04570002FILLERPIC X(28) VALUE ST1474.2 045800" COPYRIGHT 1985 ". ST1474.2 04590001 CCVS-E-1. ST1474.2 04600002FILLERPIC X(52) VALUESPACE. ST1474.2 04610002FILLERPIC X(14) VALUEIS"END OF TEST- ". ST1474.2 04620002 ID-AGAIN PIC X(9). ST1474.2 04630002FILLERPIC X(45) VALUESPACES. ST1474.2 04640001 CCVS-E-2. ST1474.2 04650002FILLERPIC X(31) VALUESPACE. ST1474.2 04660002FILLERPIC X(21) VALUESPACE. ST1474.2 04670002 CCVS-E-2-2. ST1474.2 04680003 ERROR-TOTAL PIC XXX VALUESPACE. ST1474.2 04690003FILLERPIC X VALUESPACE. ST1474.2 04700003 ENDER-DESC PIC X(44) VALUE ST1474.2 047100"ERRORS ENCOUNTERED". ST1474.2 04720001 CCVS-E-3. ST1474.2 04730002FILLERPIC X(22) VALUE ST1474.2 047400" FOR OFFICIAL USE ONLY". ST1474.2 04750002FILLERPIC X(12) VALUESPACE. ST1474.2 04760002FILLERPIC X(58) VALUE ST1474.2 047700"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1474.2 04780002FILLERPIC X(13) VALUESPACE. ST1474.2 04790002FILLERPIC X(15) VALUE ST1474.2 048000" COPYRIGHT 1985". ST1474.2 04810001 CCVS-E-4. ST1474.2 04820002 CCVS-E-4-1 PIC XXX VALUESPACE. ST1474.2 04830002FILLERPIC X(4) VALUE" OF ". ST1474.2 04840002 CCVS-E-4-2 PIC XXX VALUESPACE. ST1474.2 04850002FILLERPIC X(40) VALUE ST1474.2 048600" TESTS WERE EXECUTED SUCCESSFULLY". ST1474.2 04870001 XXINFO. ST1474.2 04880002FILLERPIC X(19) VALUE ST1474.2 048900"*** INFORMATION ***". ST1474.2 04900002 INFO-TEXT. ST1474.2 04910004FILLERPIC X(8) VALUESPACE. ST1474.2 04920004 XXCOMPUTED PIC X(20). ST1474.2 04930004FILLERPIC X(5) VALUESPACE. ST1474.2 04940004 XXCORRECT PIC X(20). ST1474.2 04950002 INF-ANSI-REFERENCE PIC X(48). ST1474.2 04960001 HYPHEN-LINE. ST1474.2 04970002FILLERPICIS X VALUEISSPACE. ST1474.2 04980002FILLERPICIS X(65) VALUEIS"************************ST1474.2 049900- "*****************************************". ST1474.2 05000002FILLERPICIS X(54) VALUEIS"************************ST1474.2 050100- "******************************". ST1474.2 05020001 CCVS-PGM-ID PIC X(9) VALUE ST1474.2 050300"ST147A". ST1474.2 050400PROCEDUREDIVISION. ST1474.2 050500DECLARATIVES. ST1474.2 050600 SECT-ST209-DEC SECTION. ST1474.2 050700USEAFTERSTANDARDERRORPROCEDUREONOUTPUT. ST1474.2 050800 MRG-WRITE-DEC. ST1474.2 050900MOVE"ERROR ON OUTPUT DECL."TO FEATURE. ST1474.2 051000MOVE"MRG-TEST-DEC"TO PAR-NAME. ST1474.2 051100WRITE PRINT-REC FROM TEST-RESULTS AFTERADVANCING2 LINES. ST1474.2 051200STOPRUN. ST1474.2 051300ENDDECLARATIVES. ST1474.2 051400 CCVS1 SECTION. ST1474.2 051500 OPEN-FILES. ST1474.2 051600OPENOUTPUT PRINT-FILE. ST1474.2 051700MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. ST1474.2 051800MOVESPACETO TEST-RESULTS. ST1474.2 051900PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. ST1474.2 052000MOVEZEROTO REC-SKL-SUB. ST1474.2 052100PERFORM CCVS-INIT-FILE 9 TIMES. ST1474.2 052200 CCVS-INIT-FILE. ST1474.2 052300ADD1TO REC-SKL-SUB. ST1474.2 052400MOVE FILE-RECORD-INFO-SKELETON ST1474.2 052500TO FILE-RECORD-INFO (REC-SKL-SUB). ST1474.2 052600 CCVS-INIT-EXIT. ST1474.2 052700GOTO CCVS1-EXIT. ST1474.2 052800 CLOSE-FILES. ST1474.2 052900PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. ST1474.2 053000 TERMINATE-CCVS. ST1474.2 053100STOPRUN. ST1474.2 053200 INSPT. MOVE"INSPT"TO P-OR-F. ADD1TO INSPECT-COUNTER. ST1474.2 053300 PASS. MOVE"PASS "TO P-OR-F. ADD1TO PASS-COUNTER. ST1474.2 053400 FAIL. MOVE"FAIL*"TO P-OR-F. ADD1TO ERROR-COUNTER. ST1474.2 053500 DE-LETE. MOVE"*****"TO P-OR-F. ADD1TO DELETE-COUNTER. ST1474.2 053600MOVE"****TEST DELETED****"TO RE-MARK. ST1474.2 053700 PRINT-DETAIL. ST1474.2 053800IF REC-CT NOTEQUALTOZERO ST1474.2 053900MOVE"."TO PARDOT-X ST1474.2 054000MOVE REC-CT TO DOTVALUE. ST1474.2 054100MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. ST1474.2 054200IF P-OR-F EQUALTO"FAIL*"PERFORM WRITE-LINE ST1474.2 054300PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX ST1474.2 054400ELSEPERFORM BAIL-OUT THRU BAIL-OUT-EX. ST1474.2 054500MOVESPACETO P-OR-F. MOVESPACETO COMPUTED-X. ST1474.2 054600MOVESPACETO CORRECT-X. ST1474.2 054700IF REC-CT EQUALTOZEROMOVESPACETO PAR-NAME. ST1474.2 054800MOVESPACETO RE-MARK. ST1474.2 054900 HEAD-ROUTINE. ST1474.2 055000MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 055100MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 055200MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. ST1474.2 055300MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. ST1474.2 055400 COLUMN-NAMES-ROUTINE. ST1474.2 055500MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1474.2 055600MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 055700MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1474.2 055800 END-ROUTINE. ST1474.2 055900MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1474.2 056000 END-RTN-EXIT. ST1474.2 056100MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 056200 END-ROUTINE-1. ST1474.2 056300ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO ST1474.2 056400 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. ST1474.2 056500ADD PASS-COUNTER TO ERROR-HOLD. ST1474.2 056600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. ST1474.2 056700MOVE PASS-COUNTER TO CCVS-E-4-1. ST1474.2 056800MOVE ERROR-HOLD TO CCVS-E-4-2. ST1474.2 056900MOVE CCVS-E-4 TO CCVS-E-2-2. ST1474.2 057000MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. ST1474.2 057100 END-ROUTINE-12. ST1474.2 057200MOVE"TEST(S) FAILED"TO ENDER-DESC. ST1474.2 057300IF ERROR-COUNTER ISEQUALTOZERO ST1474.2 057400MOVE"NO "TO ERROR-TOTAL ST1474.2 057500ELSE ST1474.2 057600MOVE ERROR-COUNTER TO ERROR-TOTAL. ST1474.2 057700MOVE CCVS-E-2 TO DUMMY-RECORD. ST1474.2 057800PERFORM WRITE-LINE. ST1474.2 057900 END-ROUTINE-13. ST1474.2 058000IF DELETE-COUNTER ISEQUALTOZERO ST1474.2 058100MOVE"NO "TO ERROR-TOTAL ELSE ST1474.2 058200MOVE DELETE-COUNTER TO ERROR-TOTAL. ST1474.2 058300MOVE"TEST(S) DELETED "TO ENDER-DESC. ST1474.2 058400MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1474.2 058500IF INSPECT-COUNTER EQUALTOZERO ST1474.2 058600MOVE"NO "TO ERROR-TOTAL ST1474.2 058700ELSEMOVE INSPECT-COUNTER TO ERROR-TOTAL. ST1474.2 058800MOVE"TEST(S) REQUIRE INSPECTION"TO ENDER-DESC. ST1474.2 058900MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1474.2 059000MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1474.2 059100 WRITE-LINE. ST1474.2 059200ADD1TO RECORD-COUNT. ST1474.2 059300IF RECORD-COUNT GREATER42 ST1474.2 059400MOVE DUMMY-RECORD TO DUMMY-HOLD ST1474.2 059500MOVESPACETO DUMMY-RECORD ST1474.2 059600WRITE DUMMY-RECORD AFTERADVANCINGPAGE ST1474.2 059700MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES ST1474.2 059800MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES ST1474.2 059900MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1474.2 060000MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1474.2 060100MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN ST1474.2 060200MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN ST1474.2 060300MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN ST1474.2 060400MOVE DUMMY-HOLD TO DUMMY-RECORD ST1474.2 060500MOVEZEROTO RECORD-COUNT. ST1474.2 060600PERFORM WRT-LN. ST1474.2 060700 WRT-LN. ST1474.2 060800WRITE DUMMY-RECORD AFTERADVANCING1 LINES. ST1474.2 060900MOVESPACETO DUMMY-RECORD. ST1474.2 061000 BLANK-LINE-PRINT. ST1474.2 061100PERFORM WRT-LN. ST1474.2 061200 FAIL-ROUTINE. ST1474.2 061300IF COMPUTED-X NOTEQUALTOSPACE ST1474.2 061400GOTO FAIL-ROUTINE-WRITE. ST1474.2 061500IF CORRECT-X NOTEQUALTOSPACEGOTO FAIL-ROUTINE-WRITE.ST1474.2 061600MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. ST1474.2 061700MOVE"NO FURTHER INFORMATION, SEE PROGRAM."TO INFO-TEXT. ST1474.2 061800MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 061900MOVESPACESTO INF-ANSI-REFERENCE. ST1474.2 062000GOTO FAIL-ROUTINE-EX. ST1474.2 062100 FAIL-ROUTINE-WRITE. ST1474.2 062200MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE ST1474.2 062300MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. ST1474.2 062400MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1474.2 062500MOVESPACESTO COR-ANSI-REFERENCE. ST1474.2 062600 FAIL-ROUTINE-EX. EXIT. ST1474.2 062700 BAIL-OUT. ST1474.2 062800IF COMPUTED-A NOTEQUALTOSPACEGOTO BAIL-OUT-WRITE. ST1474.2 062900IF CORRECT-A EQUALTOSPACEGOTO BAIL-OUT-EX. ST1474.2 063000 BAIL-OUT-WRITE. ST1474.2 063100MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. ST1474.2 063200MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. ST1474.2 063300MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1474.2 063400MOVESPACESTO INF-ANSI-REFERENCE. ST1474.2 063500 BAIL-OUT-EX. EXIT. ST1474.2 063600 CCVS1-EXIT. ST1474.2 063700EXIT. ST1474.2 063800 SECT-ST417-001 SECTION. ST1474.2 063900 MRG-INIT-001. ST1474.2 064000MOVE"CREATE FILE SQ-FS1"TO FEATURE. ST1474.2 064100OPENOUTPUT SQ-FS1. ST1474.2 064200MOVE"SQ-FS1"TO XFILE-NAME (1). ST1474.2 064300MOVE"R1-F-G"TO XRECORD-NAME (1). ST1474.2 064400MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). ST1474.2 064500MOVE000132TO XRECORD-LENGTH (1). ST1474.2 064600MOVE"RC"TO CHARS-OR-RECORDS (1). ST1474.2 064700MOVE0001TO XBLOCK-SIZE (1). ST1474.2 064800MOVE000051TO RECORDS-IN-FILE (1). ST1474.2 064900MOVE"SQ"TO XFILE-ORGANIZATION (1). ST1474.2 065000MOVE"S"TO XLABEL-TYPE (1). ST1474.2 065100MOVE000001TO XRECORD-NUMBER (1). ST1474.2 065200MOVESPACESTO WRK-XN-O120F-1. ST1474.2 065300 MRG-TEST-001. ST1474.2 065400PERFORM MRG-TEST-001-BUILD VARYING WRK-DU-999-0001 ST1474.2 065500FROM51BY -1UNTIL WRK-DU-999-0001 ISLESSTHAN1. ST1474.2 065600MOVESPACESTO PRINT-REC. ST1474.2 065700WRITE PRINT-REC. ST1474.2 065800IF XRECORD-NUMBER (1) ISNOTEQUALTO000052 ST1474.2 065900PERFORM FAIL MOVE"INCORR. NO. OF RECS."TO RE-MARK ST1474.2 066000ELSE ST1474.2 066100PERFORM PASS. ST1474.2 066200GOTO MRG-WRITE-001. ST1474.2 066300 MRG-TEST-001-BUILD. ST1474.2 066400MOVE CHAR (WRK-DU-999-0001) TO ALPHAN-KEY OF KEY-1 ST1474.2 066500 ALPHAN-KEY OF KEY-2 ALPHAN-KEY OF KEY-3. ST1474.2 066600MOVE WRK-DU-999-0001 TO NUM-KEY OF KEY-1 NUM-KEY OF KEY-2 ST1474.2 066700 NUM-KEY OF KEY-3. ST1474.2 066800MOVE FILE-RECORD-INFO-P1-120 (1) TO REC-PREAMBLE. ST1474.2 066900ADD1TO XRECORD-NUMBER (1). ST1474.2 067000MOVE ASCIIS (WRK-DU-999-0001) TO COLLS (WRK-DU-999-2). ST1474.2 067100ADD1TO WRK-DU-999-2. ST1474.2 067200MOVE ASCIIS (WRK-DU-999-0001) TO COLLS (WRK-DU-999-2). ST1474.2 067300ADD1TO WRK-DU-999-2. ST1474.2 067400WRITE PRINT-REC FROM SQ-FS1R1-F-G-132. ST1474.2 067500WRITE PRINT-REC FROM REST-OF-1. ST1474.2 067600MOVESPACESTO PRINT-REC. ST1474.2 067700WRITE SQ-FS1R1-F-G-132. ST1474.2 067800 MRG-DELETE-001. ST1474.2 067900PERFORM DE-LETE. ST1474.2 068000 MRG-WRITE-001. ST1474.2 068100MOVE"MRG-TEST-001"TO PAR-NAME. ST1474.2 068200MOVE"FIRST FILE CREATED"TO COMPUTED-A. ST1474.2 068300MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. ST1474.2 068400PERFORM PRINT-DETAIL. ST1474.2 068500MOVESPACESTO PRINT-REC. ST1474.2 068600WRITE PRINT-REC. ST1474.2 068700CLOSE SQ-FS1. ST1474.2 068800 MRG-INIT-002. ST1474.2 068900MOVE"CREATE FILE SQ-FS2"TO FEATURE. ST1474.2 069000OPENOUTPUT SQ-FS2. ST1474.2 069100MOVE"SQ-FS2"TO XFILE-NAME (1). ST1474.2 069200MOVE000001TO XRECORD-NUMBER (1). ST1474.2 069300MOVE0002TO XBLOCK-SIZE (1). ST1474.2 069400 MRG-TEST-002. ST1474.2 069500PERFORM MRG-TEST-002-BUILD VARYING WRK-DU-999-0001 ST1474.2 069600FROM51BY -1UNTIL WRK-DU-999-0001 ISLESSTHAN1. ST1474.2 069700MOVESPACESTO PRINT-REC. ST1474.2 069800WRITE PRINT-REC. ST1474.2 069900IF XRECORD-NUMBER (1) ISNOTEQUALTO52 ST1474.2 070000PERFORM FAIL MOVE"INCORR. NO. OF RECS."TO RE-MARK ST1474.2 070100ELSE ST1474.2 070200PERFORM PASS. ST1474.2 070300GOTO MRG-WRITE-002. ST1474.2 070400 MRG-TEST-002-BUILD. ST1474.2 070500MOVE CHAR (WRK-DU-999-0001) TO ALPHAN-KEY OF KEY-4 ST1474.2 070600 ALPHAN-KEY OF KEY-5 ALPHAN-KEY OF KEY-6. ST1474.2 070700ADD51 WRK-DU-999-0001 GIVING NUM-KEY OF KEY-4 ST1474.2 070800 NUM-KEY OF KEY-5 NUM-KEY OF KEY-6. ST1474.2 070900MOVE FILE-RECORD-INFO-P1-120 (1) TO REC-PRE-2. ST1474.2 071000ADD000001TO XRECORD-NUMBER (1). ST1474.2 071100WRITE PRINT-REC FROM SQ-FS2R1-F-G-132. ST1474.2 071200WRITE PRINT-REC FROM REST-OF-2. ST1474.2 071300MOVESPACESTO PRINT-REC. ST1474.2 071400WRITE SQ-FS2R1-F-G-132. ST1474.2 071500 MRG-DELETE-002. ST1474.2 071600PERFORM DE-LETE. ST1474.2 071700 MRG-WRITE-002. ST1474.2 071800MOVE"MRG-TEST-002"TO PAR-NAME. ST1474.2 071900MOVE"2ND FILE CREATED"TO COMPUTED-A. ST1474.2 072000MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. ST1474.2 072100PERFORM PRINT-DETAIL. ST1474.2 072200MOVESPACESTO PRINT-REC. ST1474.2 072300WRITE PRINT-REC. ST1474.2 072400CLOSE SQ-FS2. ST1474.2 072500 MRG-INIT-003. ST1474.2 072600* ==--> MULTIPLE "GIVING" FILES <--== ST1474.2 072700MOVE"XI-11 4.1.4 GR (11)"TO ANSI-REFERENCE. ST1474.2 072800MOVESPACESTO WRK-XN-X-0001. ST1474.2 072900MERGE ST-FS1 ST1474.2 073000DESCENDING A-KEY OF SORT-KEY ST1474.2 073100ONDESCENDINGKEY N-KEY OF NON-KEY-1 ST1474.2 073200USING SQ-FS2 SQ-FS1 ST1474.2 073300GIVING SQ-FS3 SQ-FS4 SQ-FS5. ST1474.2 073400 MRG-TEST-003. ST1474.2 073500OPENINPUT SQ-FS3. ST1474.2 073600PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 073700UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 073800MOVESPACESTO PRINT-REC. ST1474.2 073900WRITE PRINT-REC. ST1474.2 074000IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0002 ST1474.2 074100PERFORM FAIL GOTO MRG-FAIL-003 ST1474.2 074200ELSE ST1474.2 074300PERFORM PASS. ST1474.2 074400GOTO MRG-WRITE-003. ST1474.2 074500 MRG-DELETE-003. ST1474.2 074600PERFORM DE-LETE. ST1474.2 074700GOTO MRG-WRITE-003. ST1474.2 074800 MRG-FAIL-003. ST1474.2 074900MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 075000MOVE WRK-XN-0002 TO CORRECT-A. ST1474.2 075100 MRG-WRITE-003. ST1474.2 075200MOVE"MRG-TEST-003"TO PAR-NAME. ST1474.2 075300MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 075400PERFORM PRINT-DETAIL. ST1474.2 075500MOVESPACESTO PRINT-REC. ST1474.2 075600WRITE PRINT-REC. ST1474.2 075700 MRG-INIT-004. ST1474.2 075800MOVESPACESTO WRK-XN-X-0001. ST1474.2 075900 MRG-TEST-004. ST1474.2 076000PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 076100UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 076200MOVESPACESTO PRINT-REC. ST1474.2 076300WRITE PRINT-REC. ST1474.2 076400IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0003 ST1474.2 076500PERFORM FAIL GOTO MRG-FAIL-004 ST1474.2 076600ELSE ST1474.2 076700PERFORM PASS. ST1474.2 076800GOTO MRG-WRITE-004. ST1474.2 076900 MRG-DELETE-004. ST1474.2 077000PERFORM DE-LETE. ST1474.2 077100GOTO MRG-WRITE-004. ST1474.2 077200 MRG-FAIL-004. ST1474.2 077300MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 077400MOVE WRK-XN-0003 TO CORRECT-A. ST1474.2 077500 MRG-WRITE-004. ST1474.2 077600MOVE"MRG-TEST-004"TO PAR-NAME. ST1474.2 077700MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 077800PERFORM PRINT-DETAIL. ST1474.2 077900MOVESPACESTO PRINT-REC. ST1474.2 078000WRITE PRINT-REC. ST1474.2 078100 MRG-INIT-005. ST1474.2 078200MOVESPACESTO WRK-XN-X-0001. ST1474.2 078300 MRG-TEST-005. ST1474.2 078400PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 078500UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 078600MOVESPACESTO PRINT-REC. ST1474.2 078700WRITE PRINT-REC. ST1474.2 078800IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0004 ST1474.2 078900PERFORM FAIL GOTO MRG-FAIL-005 ST1474.2 079000ELSE ST1474.2 079100PERFORM PASS. ST1474.2 079200GOTO MRG-WRITE-005. ST1474.2 079300 MRG-DELETE-005. ST1474.2 079400PERFORM DE-LETE. ST1474.2 079500GOTO MRG-WRITE-005. ST1474.2 079600 MRG-FAIL-005. ST1474.2 079700MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 079800MOVE WRK-XN-0004 TO CORRECT-A. ST1474.2 079900 MRG-WRITE-005. ST1474.2 080000MOVE"MRG-TEST-005"TO PAR-NAME. ST1474.2 080100MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 080200PERFORM PRINT-DETAIL. ST1474.2 080300MOVESPACESTO PRINT-REC. ST1474.2 080400WRITE PRINT-REC. ST1474.2 080500 MRG-INIT-006. ST1474.2 080600MOVESPACESTO WRK-XN-X-0001. ST1474.2 080700 MRG-TEST-006. ST1474.2 080800PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 080900UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 081000MOVESPACESTO PRINT-REC. ST1474.2 081100WRITE PRINT-REC. ST1474.2 081200IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0005 ST1474.2 081300PERFORM FAIL GOTO MRG-FAIL-006 ST1474.2 081400ELSE ST1474.2 081500PERFORM PASS. ST1474.2 081600GOTO MRG-WRITE-006. ST1474.2 081700 MRG-DELETE-006. ST1474.2 081800PERFORM DE-LETE. ST1474.2 081900GOTO MRG-WRITE-006. ST1474.2 082000 MRG-FAIL-006. ST1474.2 082100MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 082200MOVE WRK-XN-0005 TO CORRECT-A. ST1474.2 082300 MRG-WRITE-006. ST1474.2 082400MOVE"MRG-TEST-006"TO PAR-NAME. ST1474.2 082500MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 082600PERFORM PRINT-DETAIL. ST1474.2 082700MOVESPACESTO PRINT-REC. ST1474.2 082800WRITE PRINT-REC. ST1474.2 082900 MRG-INIT-007. ST1474.2 083000MOVESPACESTO WRK-XN-X-0001. ST1474.2 083100 MRG-TEST-007. ST1474.2 083200PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 083300UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 083400MOVESPACESTO PRINT-REC. ST1474.2 083500WRITE PRINT-REC. ST1474.2 083600IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0006 ST1474.2 083700PERFORM FAIL GOTO MRG-FAIL-007 ST1474.2 083800ELSE ST1474.2 083900PERFORM PASS. ST1474.2 084000GOTO MRG-WRITE-007. ST1474.2 084100 MRG-DELETE-007. ST1474.2 084200PERFORM DE-LETE. ST1474.2 084300GOTO MRG-WRITE-007. ST1474.2 084400 MRG-FAIL-007. ST1474.2 084500MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 084600MOVE WRK-XN-0006 TO CORRECT-A. ST1474.2 084700 MRG-WRITE-007. ST1474.2 084800MOVE"MRG-TEST-007"TO PAR-NAME. ST1474.2 084900MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 085000PERFORM PRINT-DETAIL. ST1474.2 085100MOVESPACESTO PRINT-REC. ST1474.2 085200WRITE PRINT-REC. ST1474.2 085300 MRG-INIT-008. ST1474.2 085400MOVESPACESTO WRK-XN-X-0001. ST1474.2 085500 MRG-TEST-008. ST1474.2 085600PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 085700UNTIL WRK-DU-999-0001 ISGREATERTHAN2. ST1474.2 085800MOVESPACESTO PRINT-REC. ST1474.2 085900WRITE PRINT-REC. ST1474.2 086000IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0007 ST1474.2 086100PERFORM FAIL GOTO MRG-FAIL-008 ST1474.2 086200ELSE ST1474.2 086300PERFORM PASS. ST1474.2 086400GOTO MRG-WRITE-008. ST1474.2 086500 MRG-DELETE-008. ST1474.2 086600PERFORM DE-LETE. ST1474.2 086700GOTO MRG-WRITE-008. ST1474.2 086800 MRG-FAIL-008. ST1474.2 086900MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 087000MOVE WRK-XN-0007 TO CORRECT-A. ST1474.2 087100 MRG-WRITE-008. ST1474.2 087200MOVE"MRG-TEST-008"TO PAR-NAME. ST1474.2 087300MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 087400PERFORM PRINT-DETAIL. ST1474.2 087500MOVE NUM-KEY OF KEY-7 TO LAST-REC-NUM. ST1474.2 087600 MRG-TEST-009. ST1474.2 087700IF WRK-DU-9-0001 ISNOTEQUALTOZERO ST1474.2 087800GOTO MRG-FAIL-009. ST1474.2 087900READ SQ-FS3 ENDPERFORM PASS ST1474.2 088000GOTO MRG-WRITE-009. ST1474.2 088100GOTO MRG-FAIL-009. ST1474.2 088200 MRG-DELETE-009. ST1474.2 088300PERFORM DE-LETE. ST1474.2 088400GOTO MRG-WRITE-009. ST1474.2 088500 MRG-FAIL-009. ST1474.2 088600MOVE"EOF NOT FOUND"TO RE-MARK. ST1474.2 088700PERFORM FAIL . ST1474.2 088800 MRG-WRITE-009. ST1474.2 088900MOVE"MRG-TEST-009"TO PAR-NAME. ST1474.2 089000MOVE"EOF CHECK SQ-FS3"TO FEATURE. ST1474.2 089100PERFORM PRINT-DETAIL. ST1474.2 089200 MRG-TEST-010. ST1474.2 089300IF LAST-REC-NUM ISNOTEQUALTO1 ST1474.2 089400PERFORM FAIL GOTO MRG-FAIL-010 ST1474.2 089500ELSE ST1474.2 089600PERFORM PASS. ST1474.2 089700GOTO MRG-WRITE-010. ST1474.2 089800 MRG-DELETE-010. ST1474.2 089900PERFORM DE-LETE. ST1474.2 090000GOTO MRG-WRITE-010. ST1474.2 090100 MRG-FAIL-010. ST1474.2 090200MOVE LAST-REC-NUM TO COMPUTED-18V0. ST1474.2 090300MOVE1TO CR-18V0. ST1474.2 090400 MRG-WRITE-010. ST1474.2 090500MOVE"NUMER. SEQ. CHECK"TO FEATURE. ST1474.2 090600MOVE"MRG-TEST-010"TO PAR-NAME. ST1474.2 090700PERFORM PRINT-DETAIL. ST1474.2 090800CLOSE SQ-FS3. ST1474.2 090900GOTO MRG-TEST-011. ST1474.2 091000 READ-SQ-FS3 SECTION. ST1474.2 091100 RD-1. ST1474.2 091200IF WRK-DU-9-0001 ISNOTEQUALTOZERO ST1474.2 091300GOTO R1-EXIT. ST1474.2 091400READ SQ-FS3 ATENDGOTO PREMATURE-EOF-1. ST1474.2 091500WRITE PRINT-REC FROM SQ-FS3R1-F-G-132. ST1474.2 091600WRITE PRINT-REC FROM REST-OF-3. ST1474.2 091700MOVESPACESTO PRINT-REC. ST1474.2 091800MOVE ALPHAN-KEY OF KEY-8 TO COMPU (WRK-DU-999-0001). ST1474.2 091900GOTO R1-EXIT. ST1474.2 092000 PREMATURE-EOF-1. ST1474.2 092100MOVE1TO WRK-DU-9-0001. ST1474.2 092200MOVE"PREMATURE EOF FOUND"TO RE-MARK. ST1474.2 092300 R1-EXIT. ST1474.2 092400EXIT. ST1474.2 092500* ST1474.2 092600* ST1474.2 092700 MRG-TEST-011. ST1474.2 092800OPENINPUT SQ-FS4. ST1474.2 092900PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 093000UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 093100MOVESPACESTO PRINT-REC. ST1474.2 093200WRITE PRINT-REC. ST1474.2 093300IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0002 ST1474.2 093400PERFORM FAIL GOTO MRG-FAIL-011 ST1474.2 093500ELSE ST1474.2 093600PERFORM PASS. ST1474.2 093700GOTO MRG-WRITE-011. ST1474.2 093800 MRG-DELETE-011. ST1474.2 093900PERFORM DE-LETE. ST1474.2 094000GOTO MRG-WRITE-011. ST1474.2 094100 MRG-FAIL-011. ST1474.2 094200MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 094300MOVE WRK-XN-0002 TO CORRECT-A. ST1474.2 094400 MRG-WRITE-011. ST1474.2 094500MOVE"MRG-TEST-011"TO PAR-NAME. ST1474.2 094600MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 094700PERFORM PRINT-DETAIL. ST1474.2 094800MOVESPACESTO PRINT-REC. ST1474.2 094900WRITE PRINT-REC. ST1474.2 095000 MRG-INIT-012. ST1474.2 095100MOVESPACESTO WRK-XN-X-0001. ST1474.2 095200 MRG-TEST-012. ST1474.2 095300PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 095400UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 095500MOVESPACESTO PRINT-REC. ST1474.2 095600WRITE PRINT-REC. ST1474.2 095700IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0003 ST1474.2 095800PERFORM FAIL GOTO MRG-FAIL-012 ST1474.2 095900ELSE ST1474.2 096000PERFORM PASS. ST1474.2 096100GOTO MRG-WRITE-012. ST1474.2 096200 MRG-DELETE-012. ST1474.2 096300PERFORM DE-LETE. ST1474.2 096400GOTO MRG-WRITE-012. ST1474.2 096500 MRG-FAIL-012. ST1474.2 096600MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 096700MOVE WRK-XN-0003 TO CORRECT-A. ST1474.2 096800 MRG-WRITE-012. ST1474.2 096900MOVE"MRG-TEST-012"TO PAR-NAME. ST1474.2 097000MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 097100PERFORM PRINT-DETAIL. ST1474.2 097200MOVESPACESTO PRINT-REC. ST1474.2 097300WRITE PRINT-REC. ST1474.2 097400 MRG-INIT-013. ST1474.2 097500MOVESPACESTO WRK-XN-X-0001. ST1474.2 097600 MRG-TEST-013. ST1474.2 097700PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 097800UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 097900MOVESPACESTO PRINT-REC. ST1474.2 098000WRITE PRINT-REC. ST1474.2 098100IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0004 ST1474.2 098200PERFORM FAIL GOTO MRG-FAIL-013 ST1474.2 098300ELSE ST1474.2 098400PERFORM PASS. ST1474.2 098500GOTO MRG-WRITE-013. ST1474.2 098600 MRG-DELETE-013. ST1474.2 098700PERFORM DE-LETE. ST1474.2 098800GOTO MRG-WRITE-013. ST1474.2 098900 MRG-FAIL-013. ST1474.2 099000MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 099100MOVE WRK-XN-0004 TO CORRECT-A. ST1474.2 099200 MRG-WRITE-013. ST1474.2 099300MOVE"MRG-TEST-013"TO PAR-NAME. ST1474.2 099400MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 099500PERFORM PRINT-DETAIL. ST1474.2 099600MOVESPACESTO PRINT-REC. ST1474.2 099700WRITE PRINT-REC. ST1474.2 099800 MRG-INIT-014. ST1474.2 099900MOVESPACESTO WRK-XN-X-0001. ST1474.2 100000 MRG-TEST-014. ST1474.2 100100PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 100200UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 100300MOVESPACESTO PRINT-REC. ST1474.2 100400WRITE PRINT-REC. ST1474.2 100500IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0005 ST1474.2 100600PERFORM FAIL GOTO MRG-FAIL-014 ST1474.2 100700ELSE ST1474.2 100800PERFORM PASS. ST1474.2 100900GOTO MRG-WRITE-014. ST1474.2 101000 MRG-DELETE-014. ST1474.2 101100PERFORM DE-LETE. ST1474.2 101200GOTO MRG-WRITE-014. ST1474.2 101300 MRG-FAIL-014. ST1474.2 101400MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 101500MOVE WRK-XN-0005 TO CORRECT-A. ST1474.2 101600 MRG-WRITE-014. ST1474.2 101700MOVE"MRG-TEST-014"TO PAR-NAME. ST1474.2 101800MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 101900PERFORM PRINT-DETAIL. ST1474.2 102000MOVESPACESTO PRINT-REC. ST1474.2 102100WRITE PRINT-REC. ST1474.2 102200 MRG-INIT-015. ST1474.2 102300MOVESPACESTO WRK-XN-X-0001. ST1474.2 102400 MRG-TEST-015. ST1474.2 102500PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 102600UNTIL WRK-DU-999-0001 ISGREATERTHAN20. ST1474.2 102700MOVESPACESTO PRINT-REC. ST1474.2 102800WRITE PRINT-REC. ST1474.2 102900IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0006 ST1474.2 103000PERFORM FAIL GOTO MRG-FAIL-015 ST1474.2 103100ELSE ST1474.2 103200PERFORM PASS. ST1474.2 103300GOTO MRG-WRITE-015. ST1474.2 103400 MRG-DELETE-015. ST1474.2 103500PERFORM DE-LETE. ST1474.2 103600GOTO MRG-WRITE-015. ST1474.2 103700 MRG-FAIL-015. ST1474.2 103800MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 103900MOVE WRK-XN-0006 TO CORRECT-A. ST1474.2 104000 MRG-WRITE-015. ST1474.2 104100MOVE"MRG-TEST-015"TO PAR-NAME. ST1474.2 104200MOVE"NATIVE COLL.SEQUENCE "TO FEATURE. ST1474.2 104300PERFORM PRINT-DETAIL. ST1474.2 104400MOVESPACESTO PRINT-REC. ST1474.2 104500WRITE PRINT-REC. ST1474.2 104600 MRG-INIT-016. ST1474.2 104700MOVESPACESTO WRK-XN-X-0001. ST1474.2 104800 MRG-TEST-016. ST1474.2 104900PERFORM RD-2 THRU R2-EXIT VARYING WRK-DU-999-0001 FROM1BY1ST1474.2 105000UNTIL WRK-DU-999-0001 ISGREATERTHAN2. ST1474.2 105100MOVESPACESTO PRINT-REC. ST1474.2 105200WRITE PRINT-REC. ST1474.2 105300IF WRK-XN-X-0001 ISNOTEQUALTO WRK-XN-0007 ST1474.2 105400 PERFORM FAIL GO TO MRG-FAIL-016 ST1474.2 105500 ELSE ST1474.2 105600 PERFORM PASS. ST1474.2 105700 GO TO MRG-WRITE-016. ST1474.2 105800 MRG-DELETE-016. ST1474.2 105900 PERFORM DE-LETE. ST1474.2 106000 GO TO MRG-WRITE-016. ST1474.2 106100 MRG-FAIL-016. ST1474.2 106200 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 106300 MOVE WRK-XN-0007 TO CORRECT-A. ST1474.2 106400 MRG-WRITE-016. ST1474.2 106500 MOVE "MRG-TEST-016" TO PAR-NAME. ST1474.2 106600 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 106700 PERFORM PRINT-DETAIL. ST1474.2 106800 MOVE NUM-KEY OF KEY-10 TO LAST-REC-NUM. ST1474.2 106900 MRG-TEST-017. ST1474.2 107000 IF WRK-DU-9-0001 IS NOT EQUAL TO ZERO ST1474.2 107100 GO TO MRG-FAIL-017. ST1474.2 107200 READ SQ-FS4 END PERFORM PASS ST1474.2 107300 GO TO MRG-WRITE-017. ST1474.2 107400 GO TO MRG-FAIL-017. ST1474.2 107500 MRG-DELETE-017. ST1474.2 107600 PERFORM DE-LETE. ST1474.2 107700 GO TO MRG-WRITE-017. ST1474.2 107800 MRG-FAIL-017. ST1474.2 107900 MOVE "EOF NOT FOUND" TO RE-MARK. ST1474.2 108000 PERFORM FAIL . ST1474.2 108100 MRG-WRITE-017. ST1474.2 108200 MOVE "MRG-TEST-017" TO PAR-NAME. ST1474.2 108300 MOVE "EOF CHECK SQ-FS4" TO FEATURE. ST1474.2 108400 PERFORM PRINT-DETAIL. ST1474.2 108500 MRG-TEST-018. ST1474.2 108600 IF LAST-REC-NUM IS NOT EQUAL TO 1 ST1474.2 108700 PERFORM FAIL GO TO MRG-FAIL-018 ST1474.2 108800 ELSE ST1474.2 108900 PERFORM PASS. ST1474.2 109000 GO TO MRG-WRITE-018. ST1474.2 109100 MRG-DELETE-018. ST1474.2 109200 PERFORM DE-LETE. ST1474.2 109300 GO TO MRG-WRITE-018. ST1474.2 109400 MRG-FAIL-018. ST1474.2 109500 MOVE LAST-REC-NUM TO COMPUTED-18V0. ST1474.2 109600 MOVE 1 TO CR-18V0. ST1474.2 109700 MRG-WRITE-018. ST1474.2 109800 MOVE "NUMER. SEQ. CHECK" TO FEATURE. ST1474.2 109900 MOVE "MRG-TEST-018" TO PAR-NAME. ST1474.2 110000 PERFORM PRINT-DETAIL. ST1474.2 110100 CLOSE SQ-FS4. ST1474.2 110200 GO TO MRG-TEST-019. ST1474.2 110300 READ-SQ-FS4 SECTION. ST1474.2 110400 RD-2. ST1474.2 110500 IF WRK-DU-9-0001 IS NOT EQUAL TO ZERO ST1474.2 110600 GO TO R2-EXIT. ST1474.2 110700 READ SQ-FS4 AT END GO TO PREMATURE-EOF-2. ST1474.2 110800 WRITE PRINT-REC FROM SQ-FS4R1-F-G-132. ST1474.2 110900 WRITE PRINT-REC FROM REST-OF-4. ST1474.2 111000 MOVE SPACES TO PRINT-REC. ST1474.2 111100 MOVE ALPHAN-KEY OF KEY-11 TO COMPU (WRK-DU-999-0001). ST1474.2 111200 GO TO R2-EXIT. ST1474.2 111300 PREMATURE-EOF-2. ST1474.2 111400 MOVE 1 TO WRK-DU-9-0001. ST1474.2 111500 MOVE "PREMATURE EOF FOUND" TO RE-MARK. ST1474.2 111600 R2-EXIT. ST1474.2 111700 EXIT. ST1474.2 111800* ST1474.2 111900* ST1474.2 112000 MRG-TEST-019. ST1474.2 112100 OPEN INPUT SQ-FS5. ST1474.2 112200 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 112300 UNTIL WRK-DU-999-0001 IS GREATER THAN 20. ST1474.2 112400 MOVE SPACES TO PRINT-REC. ST1474.2 112500 WRITE PRINT-REC. ST1474.2 112600 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0002 ST1474.2 112700 PERFORM FAIL GO TO MRG-FAIL-019 ST1474.2 112800 ELSE ST1474.2 112900 PERFORM PASS. ST1474.2 113000 GO TO MRG-WRITE-019. ST1474.2 113100 MRG-DELETE-019. ST1474.2 113200 PERFORM DE-LETE. ST1474.2 113300 GO TO MRG-WRITE-019. ST1474.2 113400 MRG-FAIL-019. ST1474.2 113500 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 113600 MOVE WRK-XN-0002 TO CORRECT-A. ST1474.2 113700 MRG-WRITE-019. ST1474.2 113800 MOVE "MRG-TEST-019" TO PAR-NAME. ST1474.2 113900 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 114000 PERFORM PRINT-DETAIL. ST1474.2 114100 MOVE SPACES TO PRINT-REC. ST1474.2 114200 WRITE PRINT-REC. ST1474.2 114300 MRG-INIT-020. ST1474.2 114400 MOVE SPACES TO WRK-XN-X-0001. ST1474.2 114500 MRG-TEST-020. ST1474.2 114600 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 114700 UNTIL WRK-DU-999-0001 IS GREATER THAN 20. ST1474.2 114800 MOVE SPACES TO PRINT-REC. ST1474.2 114900 WRITE PRINT-REC. ST1474.2 115000 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0003 ST1474.2 115100 PERFORM FAIL GO TO MRG-FAIL-020 ST1474.2 115200 ELSE ST1474.2 115300 PERFORM PASS. ST1474.2 115400 GO TO MRG-WRITE-020. ST1474.2 115500 MRG-DELETE-020. ST1474.2 115600 PERFORM DE-LETE. ST1474.2 115700 GO TO MRG-WRITE-020. ST1474.2 115800 MRG-FAIL-020. ST1474.2 115900 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 116000 MOVE WRK-XN-0003 TO CORRECT-A. ST1474.2 116100 MRG-WRITE-020. ST1474.2 116200 MOVE "MRG-TEST-020" TO PAR-NAME. ST1474.2 116300 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 116400 PERFORM PRINT-DETAIL. ST1474.2 116500 MOVE SPACES TO PRINT-REC. ST1474.2 116600 WRITE PRINT-REC. ST1474.2 116700 MRG-INIT-021. ST1474.2 116800 MOVE SPACES TO WRK-XN-X-0001. ST1474.2 116900 MRG-TEST-021. ST1474.2 117000 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 117100 UNTIL WRK-DU-999-0001 IS GREATER THAN 20. ST1474.2 117200 MOVE SPACES TO PRINT-REC. ST1474.2 117300 WRITE PRINT-REC. ST1474.2 117400 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0004 ST1474.2 117500 PERFORM FAIL GO TO MRG-FAIL-021 ST1474.2 117600 ELSE ST1474.2 117700 PERFORM PASS. ST1474.2 117800 GO TO MRG-WRITE-021. ST1474.2 117900 MRG-DELETE-021. ST1474.2 118000 PERFORM DE-LETE. ST1474.2 118100 GO TO MRG-WRITE-021. ST1474.2 118200 MRG-FAIL-021. ST1474.2 118300 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 118400 MOVE WRK-XN-0004 TO CORRECT-A. ST1474.2 118500 MRG-WRITE-021. ST1474.2 118600 MOVE "MRG-TEST-021" TO PAR-NAME. ST1474.2 118700 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 118800 PERFORM PRINT-DETAIL. ST1474.2 118900 MOVE SPACES TO PRINT-REC. ST1474.2 119000 WRITE PRINT-REC. ST1474.2 119100 MRG-INIT-022. ST1474.2 119200 MOVE SPACES TO WRK-XN-X-0001. ST1474.2 119300 MRG-TEST-022. ST1474.2 119400 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 119500 UNTIL WRK-DU-999-0001 IS GREATER THAN 20. ST1474.2 119600 MOVE SPACES TO PRINT-REC. ST1474.2 119700 WRITE PRINT-REC. ST1474.2 119800 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0005 ST1474.2 119900 PERFORM FAIL GO TO MRG-FAIL-022 ST1474.2 120000 ELSE ST1474.2 120100 PERFORM PASS. ST1474.2 120200 GO TO MRG-WRITE-022. ST1474.2 120300 MRG-DELETE-022. ST1474.2 120400 PERFORM DE-LETE. ST1474.2 120500 GO TO MRG-WRITE-022. ST1474.2 120600 MRG-FAIL-022. ST1474.2 120700 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 120800 MOVE WRK-XN-0005 TO CORRECT-A. ST1474.2 120900 MRG-WRITE-022. ST1474.2 121000 MOVE "MRG-TEST-022" TO PAR-NAME. ST1474.2 121100 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 121200 PERFORM PRINT-DETAIL. ST1474.2 121300 MOVE SPACES TO PRINT-REC. ST1474.2 121400 WRITE PRINT-REC. ST1474.2 121500 MRG-INIT-023. ST1474.2 121600 MOVE SPACES TO WRK-XN-X-0001. ST1474.2 121700 MRG-TEST-023. ST1474.2 121800 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 121900 UNTIL WRK-DU-999-0001 IS GREATER THAN 20. ST1474.2 122000 MOVE SPACES TO PRINT-REC. ST1474.2 122100 WRITE PRINT-REC. ST1474.2 122200 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0006 ST1474.2 122300 PERFORM FAIL GO TO MRG-FAIL-023 ST1474.2 122400 ELSE ST1474.2 122500 PERFORM PASS. ST1474.2 122600 GO TO MRG-WRITE-023. ST1474.2 122700 MRG-DELETE-023. ST1474.2 122800 PERFORM DE-LETE. ST1474.2 122900 GO TO MRG-WRITE-023. ST1474.2 123000 MRG-FAIL-023. ST1474.2 123100 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 123200 MOVE WRK-XN-0006 TO CORRECT-A. ST1474.2 123300 MRG-WRITE-023. ST1474.2 123400 MOVE "MRG-TEST-023" TO PAR-NAME. ST1474.2 123500 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 123600 PERFORM PRINT-DETAIL. ST1474.2 123700 MOVE SPACES TO PRINT-REC. ST1474.2 123800 WRITE PRINT-REC. ST1474.2 123900 MRG-INIT-024. ST1474.2 124000 MOVE SPACES TO WRK-XN-X-0001. ST1474.2 124100 MRG-TEST-024. ST1474.2 124200 PERFORM RD-3 THRU R3-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1ST1474.2 124300 UNTIL WRK-DU-999-0001 IS GREATER THAN 2. ST1474.2 124400 MOVE SPACES TO PRINT-REC. ST1474.2 124500 WRITE PRINT-REC. ST1474.2 124600 IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0007 ST1474.2 124700 PERFORM FAIL GO TO MRG-FAIL-024 ST1474.2 124800 ELSE ST1474.2 124900 PERFORM PASS. ST1474.2 125000 GO TO MRG-WRITE-024. ST1474.2 125100 MRG-DELETE-024. ST1474.2 125200 PERFORM DE-LETE. ST1474.2 125300 GO TO MRG-WRITE-024. ST1474.2 125400 MRG-FAIL-024. ST1474.2 125500 MOVE WRK-XN-X-0001 TO COMPUTED-A. ST1474.2 125600 MOVE WRK-XN-0007 TO CORRECT-A. ST1474.2 125700 MRG-WRITE-024. ST1474.2 125800 MOVE "MRG-TEST-024" TO PAR-NAME. ST1474.2 125900 MOVE "NATIVE COLL.SEQUENCE " TO FEATURE. ST1474.2 126000 PERFORM PRINT-DETAIL. ST1474.2 126100 MOVE NUM-KEY OF KEY-13 TO LAST-REC-NUM. ST1474.2 126200 MRG-TEST-025. ST1474.2 126300 IF WRK-DU-9-0001 IS NOT EQUAL TO ZERO ST1474.2 126400 GO TO MRG-FAIL-025. ST1474.2 126500 READ SQ-FS5 END PERFORM PASS ST1474.2 126600 GO TO MRG-WRITE-025. ST1474.2 126700 GO TO MRG-FAIL-025. ST1474.2 126800 MRG-DELETE-025. ST1474.2 126900 PERFORM DE-LETE. ST1474.2 127000 GO TO MRG-WRITE-025. ST1474.2 127100 MRG-FAIL-025. ST1474.2 127200 MOVE "EOF NOT FOUND" TO RE-MARK. ST1474.2 127300 PERFORM FAIL . ST1474.2 127400 MRG-WRITE-025. ST1474.2 127500 MOVE "MRG-TEST-025" TO PAR-NAME. ST1474.2 127600 MOVE "EOF CHECK SQ-FS5" TO FEATURE. ST1474.2 127700 PERFORM PRINT-DETAIL. ST1474.2 127800 MRG-TEST-026. ST1474.2 127900 IF LAST-REC-NUM IS NOT EQUAL TO 1 ST1474.2 128000 PERFORM FAIL GO TO MRG-FAIL-026 ST1474.2 128100 ELSE ST1474.2 128200 PERFORM PASS. ST1474.2 128300 GO TO MRG-WRITE-026. ST1474.2 128400 MRG-DELETE-026. ST1474.2 128500 PERFORM DE-LETE. ST1474.2 128600 GO TO MRG-WRITE-026. ST1474.2 128700 MRG-FAIL-026. ST1474.2 128800 MOVE LAST-REC-NUM TO COMPUTED-18V0. ST1474.2 128900 MOVE 1 TO CR-18V0. ST1474.2 129000 MRG-WRITE-026. ST1474.2 129100 MOVE "NUMER. SEQ. CHECK" TO FEATURE. ST1474.2 129200 MOVE "MRG-TEST-026" TO PAR-NAME. ST1474.2 129300 PERFORM PRINT-DETAIL. ST1474.2 129400 CLOSE SQ-FS5. ST1474.2 129500 GO TO CLOSE-FILES. ST1474.2 129600 ST1474.2 129700 READ-SQ-FS5 SECTION. ST1474.2 129800 RD-3. ST1474.2 129900tyle"background linear-gradient(white 0%, white 0%, black) no-repeat; width: 300px; height: 300px;"></div> 130000 GO TO R3-EXIT. ST1474.2 130100 READ SQ-FS5 AT END GO TO PREMATURE-EOF-3. ST1474.2 130200 WRITE PRINT-REC FROM SQ-FS5R1-F-G-132. ST1474.2 130300 WRITE PRINT-REC FROM REST-OF-5. ST1474.2 130400 MOVE SPACES TO PRINT-REC. ST1474.2 130500 MOVE ALPHAN-KEY OF KEY-14 TO COMPU (WRK-DU-999-0001). ST1474.2 130600 GO TO R3-EXIT. ST1474.2 130700 PREMATURE-EOF-3. ST1474.2 130800 MOVE 1 TO WRK-DU-9-0001. ST1474.2 130900 MOVE "PREMATURE EOF FOUND" TO RE-MARK. ST1474.2 131000 R3-EXIT. ST1474.2 131100 EXIT. ST1474.2 131200* ST1474.2 131300 CCVS-EXIT SECTION. ST1474.2 131400 CCVS-999999. ST1474.2 131500 GO TO CLOSE-FILES. ST1474.2
Messung V0.5 in Prozent
¤ 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.96Bemerkung:
¤
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 und die Messung sind noch experimentell.
