142000 PERFORM FAIL NC2184.2 142100 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 142200 MOVE EINVAL; 142300 struct mtd_info *subdev;
PERFORMjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80 142500* NC2184.2
GF10-. NC2184. 142700 ADD 1 TO REC-CT. NC2184.2 142800IF ID11-DU-2V0 = 1 NC2184.2 142900 PASSNC2184.2
NC2184.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 143100ELSE NC2184.2 143200 GO TO UST-FAIL-GF-10-5. NC2184.2 143300 UST-DELETE-GF-10-5. NC2184.2 143400 PERFORM DE-LETE -EINVAL; 143500 GO TO UST-WRITE-GF-10-5. NC2184.2
NC2184.2 143700 PERFORM FAIL NC2184.2 143800 MOVE ID11-DU-2V0 TO COMPUTED-N .2 143900 MOVE 1 CORRECT-. NC2184.2 144000 UST-WRITE-GF-10-5. NC2184.2 144100 PERFORM PRINT-DETAIL. NC2184.2
144300(java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 26
MOVE UST-TEST-GF-11"TO-NAME. NC2184java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 144500"-135" ANSI-. .2 144600 MOVE "GROUP BOTTOM UP" TO FEATURE. NC2184.2 144700 MOVE "ABCDEFGHIJ" TO GRP1-XN-10. NC2184.2 144800 MOVE SPACES TO GRP4-XN-10. NC2184.2 144900 MOVE *the subdevicewhereblocks tobeerased. 145000 MOVE ZERO TO ID6-DU-2V0. NC2184.2 145100 MOVE 1 TO ID10-DU-2V0. NC2184.2 145200static ( java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 72
-java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28 145400* java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 0 145500 UST-java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 9
45600UNSTRING-XN10 INTO ID4D-XXXX ID4C-XX - ID4A-.NC2184. 145700 GRP4-N ="" .2 145800 PERFORM 145900 GO TO UST 146000ELSEofs+len subdev-sizejava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
GOTOUSTGF11.NC21842
NC2184.2 146300 PERFORM java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
GO --GF-11-. NC2184.2 146500USTFAIL--11-. NC21842 146600 FAIL 2 146700 MOVE mtd_resumesubdev) 146800 MOVE "HIEFGABCD"TO CORRECTA NC2184.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 146900 UST-WRITE-GF-11dev =concat->subdev[i]; 147000 PERFORM PRINT-ETAIL. .2 147100* concat_block_markbadstruct mtd loff_t ofs) 47200 UST--GF12. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 147300 MOVE UST-GF12 TO -. NC2184.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 147400 MOVE "VIjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 147500 MOVE "OVERFLOW TEST" TO FEATURE. NC2184.2 147600 MOVE SPACES TO GRP4-XN-6. NC2184.2 147700 MOVE "****" TO ID5-XN-4. NC2184.2 147800 MOVE ZERO TO ID6-DU char *) 147900 MOVE 1 TO ID10-uint32_t max_erasesize, curr_erasesize;
NC2184java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 148100 MOVE thejava.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 36 148200 MOVE 1 TO REC- )java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13 148300*NC2184.2 148400 UST-TEST-GF-12-1. NC2184.2 148500UNSTRINGGRP1--6 -XXXXID4B- NC2184. 148600 ON OVERFLOW GO TO UST-FAIL-GF-12-1. NC2184.2 148700 PERFORMPASS. 148800 TO--F121. NC2184. 148900 UST-java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0 149000 PERFORM DE-LETE. java.lang.StringIndexOutOfBoundsException: Range [20, 18) out of bounds for length 28
java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 36 149200 GO TO UST-INIT-GF-13. NC2184.2 149300 UST-FAIL-GF-12 concat; 149400 java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 3 149500 MOVE "OVERFLOW SHOULD NOT HAVE OCCURED" TO RE-MARK. NC2184.2 149600(>.lags^subdevi->
PERFORMPRINT-. NC2184.2 149800* make
USTTESTGF-12-. NC21842
GF" - .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 150100 ADD 1 TO REC-CT. NC2184.2 150200IF GRP4-XN-6 = "ABCDEF" NC2184.2 150300 PERFORM PASS NC2184.2 150400 GO TO UST-WRITE-GF-12-2 NC2184.2 150500ELSE NC2184. NULL;
IL-GF122 .2 150700 UST-DELETE-GFmtd=; 150800 PERFORM DE-* of java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56 150900 GO TO UST-WRITE-GF-12-2. NC2184.2 151000 UST-FAIL-GF-12-2. NC2184.2 151100 PERFORM FAILifsubdev-java.lang.StringIndexOutOfBoundsException: Range [34, 32) out of bounds for length 40 151200MOVEGRP4--6TOCOMPUTED- 151300 MOVE "ABCDEF" TO CORRECT}else 151400 UST-WRITE-][]!java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25 151500 java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 2 151600* NC2184.2 151700 --GF13 151800 MOVE "UST-TEST-GF-13" TO PAR-NAME. NC2184.2 151900 MOVE "VI-135"java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27 "VERFLOWEXPECTED FEATURENC2184java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 152100 MOVE " 152200 MOVE SPACES TO GRP4-XN-6. NC2184.2 152300 MOVE "****" TO ID5- 152400 MOVE si> = java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49 152500 MOVE 1 TO ID10-DU-2V0. NC2184.2 152600 MOVE ZERO TO ID11-DU-2V0. NC2184.2 152700MOVE1 TO RECCT .2 152800UST-GF131 152900 UNSTRING position += subdev[i 153000 GO TO UST- ( =0; j <subdevi-numeraseregions; j+){
GOTOUST--GF-1 .2 153200 UST- )java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36 153300 PERFORM DE-LETE +java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23 153400 java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
, curr_erasesize); 153600 UST--1. NC2184.2 153700PERFORM. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 153800} 153900GF131.NC2184. 154000 PERFORM PRINT-DETAIL. NC2184.2 154100* NC2184.2 154200 UST-TEST-GF-13-2. NC2184.2 154300 ADD 1 TO REC-CT. NC2184.2 154400IF GRP4-XN-6 = "ABCDE " NC2184.2 154500 PERFORM PASS NC2184.2 154600 GO TO UST-WRITE-GF-13-2 NC2184.2 154700ELSE NC2184.2 154800 GO TO UST-FAIL-GF-13-2. NC2184.2 154900 UST-DELETE-GF-13-2. NC2184.2 155000 PERFORM DE-LETE. NC2184.2 155100 GO TO UST-WRITE-GF-13-2. NC2184.2 155200 UST-FAIL-GF-13-2. NC2184.2 155300 PERFORM FAIL NC2184.2 155400 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 155500 MOVE "ABCDE " TO CORRECT-A. NC2184.2 155600 UST-WRITE-GF-13-2. NC2184.2 155700 PERFORM PRINT-DETAIL. NC2184.2 155800* NC2184.2 155900 UST-INIT-GF-14. NC2184.2 156000 MOVE "UST-TEST-GF-14" TO PAR-NAME. NC2184.2 156100 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 156200 MOVE "INSTANT OVERFLOW" TO FEATURE. NC2184.2 156300 MOVE SPACES TO GRP4-XN-6. NC2184.2 156400 MOVE "****" TO ID5-XN-4. NC2184.2 156500 MOVE ZERO TO ID6-DU-2V0. NC2184.2 156600 MOVE 7 TO ID10-DU-2V0. NC2184.2 156700 MOVE ZERO TO ID11-DU-2V0. NC2184.2 156800 MOVE 1 TO REC-CT. NC2184.2 156900* NC2184.2 157000 UST-TEST-GF-14-1. NC2184.2 157100 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X POINTER ID10-DU-2V0NC2184.2 157200 OVERFLOW PERFORM PASS NC2184.2 157300 GO TO UST-WRITE-GF-14-1. NC2184.2 157400 GO TO UST-FAIL-GF-14-1. NC2184.2 157500 UST-DELETE-GF-14-1. NC2184.2 157600 PERFORM DE-LETE. NC2184.2 157700 PERFORM PRINT-DETAIL. NC2184.2 157800 GO TO UST-INIT-GF-15. NC2184.2 157900 UST-FAIL-GF-14-1. NC2184.2 158000 PERFORM FAIL. NC2184.2 158100 MOVE "OVERFLOW SHOULD HAVE OCCURED" TO RE-MARK. NC2184.2 158200 UST-WRITE-GF-14-1. NC2184.2 158300 PERFORM PRINT-DETAIL. NC2184.2 158400* NC2184.2 158500 UST-TEST-GF-14-2. NC2184.2 158600 MOVE "UST-TEST-GF-14" TO PAR-NAME. NC2184.2 158700 ADD 1 TO REC-CT. NC2184.2 158800IF GRP4-XN-6 = SPACES NC2184.2 158900 PERFORM PASS NC2184.2 159000 GO TO UST-WRITE-GF-14-2 NC2184.2 159100ELSE NC2184.2 159200 GO TO UST-FAIL-GF-14-2. NC2184.2 159300 UST-DELETE-GF-14-2. NC2184.2 159400 PERFORM DE-LETE. NC2184.2 159500 GO TO UST-WRITE-GF-14-2. NC2184.2 159600 UST-FAIL-GF-14-2. NC2184.2 159700 PERFORM FAIL NC2184.2 159800 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 159900 MOVE "ALL SPACES" TO CORRECT-A. NC2184.2 160000 UST-WRITE-GF-14-2. NC2184.2 160100 PERFORM PRINT-DETAIL. NC2184.2 160200* NC2184.2 160300 UST-TEST-GF-14-3. NC2184.2 160400 ADD 1 TO REC-CT. NC2184.2 160500IF ID10-DU-2V0 = 7 NC2184.2 160600 PERFORM PASS NC2184.2 160700 GO TO UST-WRITE-GF-14-3 NC2184.2 160800ELSE NC2184.2 160900 GO TO UST-FAIL-GF-14-3. NC2184.2 161000 UST-DELETE-GF-14-3. NC2184.2 161100 PERFORM DE-LETE. NC2184.2 161200 GO TO UST-WRITE-GF-14-3. NC2184.2 161300 UST-FAIL-GF-14-3. NC2184.2 161400 PERFORM FAIL NC2184.2 161500 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 161600 MOVE 7 TO CORRECT-N. NC2184.2 161700 UST-WRITE-GF-14-3. NC2184.2 161800 PERFORM PRINT-DETAIL. NC2184.2 161900* NC2184.2 162000 UST-INIT-GF-15. NC2184.2 162100 MOVE "UST-TEST-GF-15" TO PAR-NAME. NC2184.2 162200 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 162300 MOVE "POINTER NOT = 1" TO FEATURE. NC2184.2 162400 MOVE "ABCDEF" TO GRP1-XN-6. NC2184.2 162500 MOVE SPACES TO GRP4-XN-6. NC2184.2 162600 MOVE "****" TO ID5-XN-4. NC2184.2 162700 MOVE ZERO TO ID6-DU-2V0. NC2184.2 162800 MOVE 3 TO ID10-DU-2V0. NC2184.2 162900 MOVE ZERO TO ID11-DU-2V0. NC2184.2 163000 MOVE 1 TO REC-CT. NC2184.2 163100* NC2184.2 163200 UST-TEST-GF-15-1. NC2184.2 163300 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X POINTER ID10-DU-2V0NC2184.2 163400 OVERFLOW GO TO UST-FAIL-GF-15-1. NC2184.2 163500 PERFORM PASS NC2184.2 163600 GO TO UST-WRITE-GF-15-1. NC2184.2 163700 UST-DELETE-GF-15-1. NC2184.2 163800 PERFORM DE-LETE. NC2184.2 163900 PERFORM PRINT-DETAIL. NC2184.2 164000 GO TO UST-INIT-GF-16. NC2184.2 164100 UST-FAIL-GF-15-1. NC2184.2 164200 PERFORM FAIL. NC2184.2 164300 MOVE "OVERFLOW SHOULD NOT HAVE OCCURED" TO RE-MARK. NC2184.2 164400 UST-WRITE-GF-15-1. NC2184.2 164500 PERFORM PRINT-DETAIL. NC2184.2 164600* NC2184.2 164700 UST-TEST-GF-15-2. NC2184.2 164800 ADD 1 TO REC-CT. NC2184.2 164900IF GRP4-XN-6 = "CDEF " NC2184.2 165000 PERFORM PASS NC2184.2 165100 GO TO UST-WRITE-GF-15-2 NC2184.2 165200ELSE NC2184.2 165300 GO TO UST-FAIL-GF-15-2. NC2184.2 165400 UST-DELETE-GF-15-2. NC2184.2 165500 PERFORM DE-LETE. NC2184.2 165600 GO TO UST-WRITE-GF-15-2. NC2184.2 165700 UST-FAIL-GF-15-2. NC2184.2 165800 PERFORM FAIL NC2184.2 165900 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 166000 MOVE "CDEF " TO CORRECT-A. NC2184.2 166100 UST-WRITE-GF-15-2. NC2184.2 166200 PERFORM PRINT-DETAIL. NC2184.2 166300* NC2184.2 166400 UST-TEST-GF-15-3. NC2184.2 166500 ADD 1 TO REC-CT. NC2184.2 166600IF ID10-DU-2V0 = 7 NC2184.2 166700 PERFORM PASS NC2184.2 166800 GO TO UST-WRITE-GF-15-3 NC2184.2 166900ELSE NC2184.2 167000 GO TO UST-FAIL-GF-15-3. NC2184.2 167100 UST-DELETE-GF-15-3. NC2184.2 167200 PERFORM DE-LETE. NC2184.2 167300 GO TO UST-WRITE-GF-15-3. NC2184.2 167400 UST-FAIL-GF-15-3. NC2184.2 167500 PERFORM FAIL NC2184.2 167600 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 167700 MOVE 7 TO CORRECT-N. NC2184.2 167800 UST-WRITE-GF-15-3. NC2184.2 167900 PERFORM PRINT-DETAIL. NC2184.2 168000* NC2184.2 168100 UST-INIT-GF-16. NC2184.2 168200 MOVE "UST-TEST-GF-16" TO PAR-NAME. NC2184.2 168300 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 168400 MOVE "TALLY 3 FIELDS TEST" TO FEATURE. NC2184.2 168500 MOVE "ABCDEF" TO GRP1-XN-6. NC2184.2 168600 MOVE SPACES TO GRP4-XN-6. NC2184.2 168700 MOVE "****" TO ID4C-XXXX. NC2184.2 168800 MOVE "****" TO ID5-XN-4. NC2184.2 168900 MOVE ZERO TO ID6-DU-2V0. NC2184.2 169000 MOVE 1 TO ID10-DU-2V0. NC2184.2 169100 MOVE ZERO TO ID11-DU-2V0. NC2184.2 169200 MOVE 1 TO REC-CT. NC2184.2 169300* NC2184.2 169400 UST-TEST-GF-16-0. NC2184.2 169500 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X ID4C-XXXX NC2184.2 169600 TALLYING ID11-DU-2V0. NC2184.2 169700 GO TO UST-TEST-GF-16-1. NC2184.2 169800 UST-DELETE-GF-16. NC2184.2 169900 PERFORM DE-LETE. NC2184.2 170000 PERFORM PRINT-DETAIL. NC2184.2 170100 GO TO UST-INIT-GF-17. NC2184.2 170200* NC2184.2 170300 UST-TEST-GF-16-1. NC2184.2 170400IF GRP4-XN-6 = "ABCDEF" NC2184.2 170500 PERFORM PASS NC2184.2 170600 GO TO UST-WRITE-GF-16-1 NC2184.2 170700ELSE NC2184.2 170800 GO TO UST-FAIL-GF-16-1. NC2184.2 170900 UST-DELETE-GF-16-1. NC2184.2 171000 PERFORM DE-LETE. NC2184.2 171100 GO TO UST-WRITE-GF-16-1. NC2184.2 171200 UST-FAIL-GF-16-1. NC2184.2 171300 PERFORM FAIL NC2184.2 171400 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 171500 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 171600 UST-WRITE-GF-16-1. NC2184.2 171700 PERFORM PRINT-DETAIL. NC2184.2 171800* NC2184.2 171900 UST-TEST-GF-16-2. NC2184.2 172000 ADD 1 TO REC-CT. NC2184.2 172100IF ID4C-XXXX = "****" NC2184.2 172200 PERFORM PASS NC2184.2 172300 GO TO UST-WRITE-GF-16-2 NC2184.2 172400ELSE NC2184.2 172500 GO TO UST-FAIL-GF-16-2. NC2184.2 172600 UST-DELETE-GF-16-2. NC2184.2 172700 PERFORM DE-LETE. NC2184.2 172800 GO TO UST-WRITE-GF-16-2. NC2184.2 172900 UST-FAIL-GF-16-2. NC2184.2 173000 PERFORM FAIL NC2184.2 173100 MOVE ID4C-XXXX TO COMPUTED-A NC2184.2 173200 MOVE "****" TO CORRECT-A. NC2184.2 173300 UST-WRITE-GF-16-2. NC2184.2 173400 PERFORM PRINT-DETAIL. NC2184.2 173500* NC2184.2 173600 UST-TEST-GF-16-3. NC2184.2 173700 ADD 1 TO REC-CT. NC2184.2 173800IF ID11-DU-2V0 = 2 NC2184.2 173900 PERFORM PASS NC2184.2 174000 GO TO UST-WRITE-GF-16-3 NC2184.2 174100ELSE NC2184.2 174200 GO TO UST-FAIL-GF-16-3. NC2184.2 174300 UST-DELETE-GF-16-3. NC2184.2 174400 PERFORM DE-LETE. NC2184.2 174500 GO TO UST-WRITE-GF-16-3. NC2184.2 174600 UST-FAIL-GF-16-3. NC2184.2 174700 PERFORM FAIL NC2184.2 174800 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 174900 MOVE 2 TO CORRECT-N. NC2184.2 175000 UST-WRITE-GF-16-3. NC2184.2 175100 PERFORM PRINT-DETAIL. NC2184.2 175200* NC2184.2 175300 UST-INIT-GF-17. NC2184.2 175400 MOVE "UST-TEST-GF-17" TO PAR-NAME. NC2184.2 175500 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 175600 MOVE "QUAL DEL BY POINT" TO FEATURE. NC2184.2 175700 MOVE "ABCDEFG" TO GRP1-XN-7. NC2184.2 175800 MOVE "BCDEFGH" TO GRP2-XN-7. NC2184.2 175900 MOVE SPACES TO GRP4-XN-6. NC2184.2 176000 MOVE ALL "*" TO ID5-XN-6. NC2184.2 176100 MOVE ZERO TO ID6-DU-2V0. NC2184.2 176200 MOVE 2 TO ID10-DU-2V0. NC2184.2 176300 MOVE ZERO TO ID11-DU-2V0. NC2184.2 176400 MOVE 1 TO REC-CT. NC2184.2 176500* NC2184.2 176600 UST-TEST-GF-17. NC2184.2 176700 UNSTRING GRP1-XN-7 DELIMITED BY ID2 (ID10-DU-2V0) NC2184.2 176800 INTO GRP4-XN-6 NC2184.2 176900 DELIMITER IN ID5-XN-6 NC2184.2 177000 COUNT ID6-DU-2V0 NC2184.2 177100 POINTER ID10-DU-2V0. NC2184.2 177200 GO TO UST-TEST-GF-17-1. NC2184.2 177300 UST-DELETE-GF-17. NC2184.2 177400 PERFORM DE-LETE. NC2184.2 177500 PERFORM PRINT-DETAIL. NC2184.2 177600 GO TO UST-INIT-GF-18. NC2184.2 177700* NC2184.2 177800 UST-TEST-GF-17-1. NC2184.2 177900IF GRP4-XN-6 = "B " NC2184.2 178000 PERFORM PASS NC2184.2 178100 GO TO UST-WRITE-GF-17-1 NC2184.2 178200ELSE NC2184.2 178300 GO TO UST-FAIL-GF-17-1. NC2184.2 178400 UST-DELETE-GF-17-1. NC2184.2 178500 PERFORM DE-LETE. NC2184.2 178600 GO TO UST-WRITE-GF-17-1. NC2184.2 178700 UST-FAIL-GF-17-1. NC2184.2 178800 PERFORM FAIL NC2184.2 178900 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 179000 MOVE "B " TO CORRECT-A. NC2184.2 179100 UST-WRITE-GF-17-1. NC2184.2 179200 PERFORM PRINT-DETAIL. NC2184.2 179300* NC2184.2 179400 UST-TEST-GF-17-2. NC2184.2 179500 ADD 1 TO REC-CT. NC2184.2 179600IF ID5-XN-6 = "C " NC2184.2 179700 PERFORM PASS NC2184.2 179800 GO TO UST-WRITE-GF-17-2 NC2184.2 179900ELSE NC2184.2 180000 GO TO UST-FAIL-GF-17-2. NC2184.2 180100 UST-DELETE-GF-17-2. NC2184.2 180200 PERFORM DE-LETE. NC2184.2 180300 GO TO UST-WRITE-GF-17-2. NC2184.2 180400 UST-FAIL-GF-17-2. NC2184.2 180500 PERFORM FAIL NC2184.2 180600 MOVE ID5-XN-6 TO COMPUTED-A NC2184.2 180700 MOVE "C " TO CORRECT-A. NC2184.2 180800 UST-WRITE-GF-17-2. NC2184.2 180900 PERFORM PRINT-DETAIL. NC2184.2 181000* NC2184.2 181100 UST-TEST-GF-17-3. NC2184.2 181200 ADD 1 TO REC-CT. NC2184.2 181300IF ID6-DU-2V0 = 1 NC2184.2 181400 PERFORM PASS NC2184.2 181500 GO TO UST-WRITE-GF-17-3 NC2184.2 181600ELSE NC2184.2 181700 GO TO UST-FAIL-GF-17-3. NC2184.2 181800 UST-DELETE-GF-17-3. NC2184.2 181900 PERFORM DE-LETE. NC2184.2 182000 GO TO UST-WRITE-GF-17-3. NC2184.2 182100 UST-FAIL-GF-17-3. NC2184.2 182200 PERFORM FAIL NC2184.2 182300 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 182400 MOVE 1 TO CORRECT-N. NC2184.2 182500 UST-WRITE-GF-17-3. NC2184.2 182600 PERFORM PRINT-DETAIL. NC2184.2 182700* NC2184.2 182800 UST-TEST-GF-17-4. NC2184.2 182900 ADD 1 TO REC-CT. NC2184.2 183000IF ID10-DU-2V0 = 4 NC2184.2 183100 PERFORM PASS NC2184.2 183200 GO TO UST-WRITE-GF-17-4 NC2184.2 183300ELSE NC2184.2 183400 GO TO UST-FAIL-GF-17-4. NC2184.2 183500 UST-DELETE-GF-17-4. NC2184.2 183600 PERFORM DE-LETE. NC2184.2 183700 GO TO UST-WRITE-GF-17-4. NC2184.2 183800 UST-FAIL-GF-17-4. NC2184.2 183900 PERFORM FAIL NC2184.2 184000 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 184100 MOVE 4 TO CORRECT-N. NC2184.2 184200 UST-WRITE-GF-17-4. NC2184.2 184300 PERFORM PRINT-DETAIL. NC2184.2 184400* NC2184.2 184500 UST-INIT-GF-18. NC2184.2 184600 ADD 1 TO REC-CT. NC2184.2 184700 MOVE "UST-TEST-GF-18" TO PAR-NAME. NC2184.2 184800 MOVE "VI-136" TO ANSI-REFERENCE. NC2184.2 184900 MOVE "QUAL DEL BY TALLY" TO FEATURE. NC2184.2 185000 MOVE "ABCDEFG" TO GRP1-XN-7. NC2184.2 185100 MOVE "CE" TO GRP2-XN-2. NC2184.2 185200 MOVE SPACES TO GRP4-XN-6. NC2184.2 185300 MOVE "****" TO ID5-XN-4. NC2184.2 185400 MOVE "****" TO ID5-XN-4-2. NC2184.2 185500 MOVE ZERO TO ID6-DU-2V0. NC2184.2 185600 MOVE ZERO TO ID6-DU-2V0-2. NC2184.2 185700 MOVE 1 TO ID10-DU-2V0. NC2184.2 185800 MOVE 1 TO ID11-DU-2V0. NC2184.2 185900 MOVE 1 TO REC-CT. NC2184.2 186000* NC2184.2 186100 UST-TEST-GF-18. NC2184.2 186200 UNSTRING GRP1-XN-7 DELIMITED ID2A (ID10-DU-2V0) NC2184.2 186300 INTO ID4A-XXXXX NC2184.2 186400 DELIMITER IN ID5-XN-4 NC2184.2 186500 COUNT ID6-DU-2V0 NC2184.2 186600 ID4B-X DELIMITER IN ID5-XN-4-2 NC2184.2 186700 COUNT ID6-DU-2V0-2 NC2184.2 186800 TALLYING ID11-DU-2V0. NC2184.2 186900 GO TO UST-TEST-GF-18-1. NC2184.2 187000 UST-DELETE-GF-18. NC2184.2 187100 PERFORM DE-LETE. NC2184.2 187200 PERFORM PRINT-DETAIL. NC2184.2 187300 GO TO UST-INIT-GF-19. NC2184.2 187400* NC2184.2 187500 UST-TEST-GF-18-1. NC2184.2 187600IF GRP4-XN-6 = "AB D" NC2184.2 187700 PERFORM PASS NC2184.2 187800 GO TO UST-WRITE-GF-18-1 NC2184.2 187900ELSE NC2184.2 188000 GO TO UST-FAIL-GF-18-1. NC2184.2 188100 UST-DELETE-GF-18-1. NC2184.2 188200 PERFORM DE-LETE. NC2184.2 188300 GO TO UST-WRITE-GF-18-1. NC2184.2 188400 UST-FAIL-GF-18-1. NC2184.2 188500 PERFORM FAIL NC2184.2 188600 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 188700 MOVE "AB D" TO CORRECT-A. NC2184.2 188800 UST-WRITE-GF-18-1. NC2184.2 188900 PERFORM PRINT-DETAIL. NC2184.2 189000* NC2184.2 189100 UST-TEST-GF-18-2. NC2184.2 189200 ADD 1 TO REC-CT. NC2184.2 189300IF ID5-XN-4 = "C " NC2184.2 189400 PERFORM PASS NC2184.2 189500 GO TO UST-WRITE-GF-18-2 NC2184.2 189600ELSE NC2184.2 189700 GO TO UST-FAIL-GF-18-2. NC2184.2 189800 UST-DELETE-GF-18-2. NC2184.2 189900 PERFORM DE-LETE. NC2184.2 190000 GO TO UST-WRITE-GF-18-2. NC2184.2 190100 UST-FAIL-GF-18-2. NC2184.2 190200 PERFORM FAIL NC2184.2 190300 MOVE ID5-XN-4 TO COMPUTED-A NC2184.2 190400 MOVE "C " TO CORRECT-A. NC2184.2 190500 UST-WRITE-GF-18-2. NC2184.2 190600 PERFORM PRINT-DETAIL. NC2184.2 190700* NC2184.2 190800 UST-TEST-GF-18-3. NC2184.2 190900 ADD 1 TO REC-CT. NC2184.2 191000IF ID6-DU-2V0 = 2 NC2184.2 191100 PERFORM PASS NC2184.2 191200 GO TO UST-WRITE-GF-18-3 NC2184.2 191300ELSE NC2184.2 191400 GO TO UST-FAIL-GF-18-3. NC2184.2 191500 UST-DELETE-GF-18-3. NC2184.2 191600 PERFORM DE-LETE. NC2184.2 191700 GO TO UST-WRITE-GF-18-3. NC2184.2 191800 UST-FAIL-GF-18-3. NC2184.2 191900 PERFORM FAIL NC2184.2 192000 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 192100 MOVE 2 TO CORRECT-N. NC2184.2 192200 UST-WRITE-GF-18-3. NC2184.2 192300 PERFORM PRINT-DETAIL. NC2184.2 192400* NC2184.2 192500 UST-TEST-GF-18-4. NC2184.2 192600 ADD 1 TO REC-CT. NC2184.2 192700IF ID6-DU-2V0-2 EQUAL TO 4 NC2184.2 192800 PERFORM PASS NC2184.2 192900 GO TO UST-WRITE-GF-18-4 NC2184.2 193000ELSE NC2184.2 193100 GO TO UST-FAIL-GF-18-4. NC2184.2 193200 UST-DELETE-GF-18-4. NC2184.2 193300 PERFORM DE-LETE. NC2184.2 193400 GO TO UST-WRITE-GF-18-4. NC2184.2 193500 UST-FAIL-GF-18-4. NC2184.2 193600 PERFORM FAIL NC2184.2 193700 MOVE ID6-DU-2V0-2 TO COMPUTED-N NC2184.2 193800 MOVE 4 TO CORRECT-N. NC2184.2 193900 UST-WRITE-GF-18-4. NC2184.2 194000 PERFORM PRINT-DETAIL. NC2184.2 194100* NC2184.2 194200 UST-TEST-GF-18-5. NC2184.2 194300 ADD 1 TO REC-CT. NC2184.2 194400IF ID11-DU-2V0 = 3 NC2184.2 194500 PERFORM PASS NC2184.2 194600 GO TO UST-WRITE-GF-18-5 NC2184.2 194700ELSE NC2184.2 194800 GO TO UST-FAIL-GF-18-5. NC2184.2 194900 UST-DELETE-GF-18-5. NC2184.2 195000 PERFORM DE-LETE. NC2184.2 195100 GO TO UST-WRITE-GF-18-5. NC2184.2 195200 UST-FAIL-GF-18-5. NC2184.2 195300 PERFORM FAIL NC2184.2 195400 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 195500 MOVE 3 TO CORRECT-N. NC2184.2 195600 UST-WRITE-GF-18-5. NC2184.2 195700 PERFORM PRINT-DETAIL. NC2184.2 195800* NC2184.2 195900 UST-TEST-GF-18-6. NC2184.2 196000 ADD 1 TO REC-CT. NC2184.2 196100IF ID5-XN-4-2 = SPACES AND ID6-DU-2V0-2 = 4 NC2184.2 196200 PERFORM PASS NC2184.2 196300 GO TO UST-WRITE-GF-18-6 NC2184.2 196400ELSE NC2184.2 196500 GO TO UST-FAIL-GF-18-6. NC2184.2 196600 UST-DELETE-GF-18-6. NC2184.2 196700 PERFORM DE-LETE. NC2184.2 196800 GO TO UST-WRITE-GF-18-6. NC2184.2 196900 UST-FAIL-GF-18-6. NC2184.2 197000 PERFORM FAIL NC2184.2 197100 MOVE ID5-XN-4-2 TO COMPUTED-A NC2184.2 197200 MOVE 4 TO CORRECT-A. NC2184.2 197300 UST-WRITE-GF-18-6. NC2184.2 197400 PERFORM PRINT-DETAIL. NC2184.2 197500* NC2184.2 197600 UST-INIT-GF-19. NC2184.2 197700 MOVE "UST-TEST-GF-19" TO PAR-NAME. NC2184.2 197800 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 197900 MOVE "QUALIFIED ID1" TO FEATURE. NC2184.2 198000 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" TO GRP1-XN-X-36. NC2184.2 198100 MOVE SPACES TO GRP4-XN-6. NC2184.2 198200 MOVE "****" TO ID5-XN-4. NC2184.2 198300 MOVE ZERO TO ID6-DU-2V0. NC2184.2 198400 MOVE 1 TO ID10-DU-2V0. NC2184.2 198500 MOVE ZERO TO ID11-DU-2V0. NC2184.2 198600 MOVE 1 TO REC-CT. NC2184.2 198700* NC2184.2 198800 UST-TEST-GF-19-0. NC2184.2 198900 UNSTRING ID1 OF GRP1-XN-X-36 (ID10-DU-2V0) INTO GRP4-XN-6 NC2184.2 199000 POINTER ID10-DU-2V0. NC2184.2 199100 GO TO UST-TEST-GF-19-1. NC2184.2 199200 UST-DELETE-GF-19. NC2184.2 199300 PERFORM DE-LETE. NC2184.2 199400 PERFORM PRINT-DETAIL. NC2184.2 199500 GO TO UST-INIT-GF-20. NC2184.2 199600* NC2184.2 199700 UST-TEST-GF-19-1. NC2184.2 199800IF GRP4-XN-6 = "ABCDEF" NC2184.2 199900 PERFORM PASS NC2184.2 200000 GO TO UST-WRITE-GF-19-1 NC2184.2 200100ELSE NC2184.2 200200 GO TO UST-FAIL-GF-19-1. NC2184.2 200300 UST-DELETE-GF-19-1. NC2184.2 200400 PERFORM DE-LETE. NC2184.2 200500 GO TO UST-WRITE-GF-19-1. NC2184.2 200600 UST-FAIL-GF-19-1. NC2184.2 200700 PERFORM FAIL NC2184.2 200800 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 200900 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 201000 UST-WRITE-GF-19-1. NC2184.2 201100 PERFORM PRINT-DETAIL. NC2184.2 201200* NC2184.2 201300 UST-TEST-GF-19-2. NC2184.2 201400 ADD 1 TO REC-CT. NC2184.2 201500IF ID10-DU-2V0 = 7 NC2184.2 201600 PERFORM PASS NC2184.2 201700 GO TO UST-WRITE-GF-19-2 NC2184.2 201800ELSE NC2184.2 201900 GO TO UST-FAIL-GF-19-2. NC2184.2 202000 UST-DELETE-GF-19-2. NC2184.2 202100 PERFORM DE-LETE. NC2184.2 202200 GO TO UST-WRITE-GF-19-2. NC2184.2 202300 UST-FAIL-GF-19-2. NC2184.2 202400 PERFORM FAIL NC2184.2 202500 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 202600 MOVE 7 TO CORRECT-N. NC2184.2 202700 UST-WRITE-GF-19-2. NC2184.2 202800 PERFORM PRINT-DETAIL. NC2184.2 202900* NC2184.2 203000 UST-TEST-GF-19-3. NC2184.2 203100 ADD 1 TO REC-CT. NC2184.2 203200IF ID11-DU-2V0 = ZERO NC2184.2 203300 PERFORM PASS NC2184.2 203400 GO TO UST-WRITE-GF-19-3 NC2184.2 203500ELSE NC2184.2 203600 GO TO UST-FAIL-GF-19-3. NC2184.2 203700 UST-DELETE-GF-19-3. NC2184.2 203800 PERFORM DE-LETE. NC2184.2 203900 GO TO UST-WRITE-GF-19-3. NC2184.2 204000 UST-FAIL-GF-19-3. NC2184.2 204100 PERFORM FAIL NC2184.2 204200 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 204300 MOVE ZERO TO CORRECT-N. NC2184.2 204400 UST-WRITE-GF-19-3. NC2184.2 204500 PERFORM PRINT-DETAIL. NC2184.2 204600* NC2184.2 204700 UST-INIT-GF-20. NC2184.2 204800 MOVE "UST-TEST-GF-20" TO PAR-NAME. NC2184.2 204900 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 205000 MOVE "MULT RECEIVE AREAS" TO FEATURE. NC2184.2 205100 MOVE SPACES TO GRP4-XN-6. NC2184.2 205200 MOVE "****" TO ID4C-XXXX. NC2184.2 205300 MOVE "*" TO ID4D-X. NC2184.2 205400 MOVE "****" TO ID5-XN-4. NC2184.2 205500 MOVE ZERO TO ID6-DU-2V0. NC2184.2 205600 MOVE 1 TO ID10-DU-2V0. NC2184.2 205700 MOVE 1 TO ID11-DU-2V0. NC2184.2 205800 MOVE 1 TO REC-CT. NC2184.2 205900* NC2184.2 206000 UST-TEST-GF-20. NC2184.2 206100 UNSTRING ID1 OF GRP1-XN-X-36 (ID11-DU-2V0) NC2184.2 206200 INTO ID4A-XXXXX ID4B-X ID4C-XXXX ID4D-X NC2184.2 206300 TALLYING ID11-DU-2V0. NC2184.2 206400 GO TO UST-TEST-GF-20-1. NC2184.2 206500 UST-DELETE-GF-20. NC2184.2 206600 PERFORM DE-LETE. NC2184.2 206700 PERFORM PRINT-DETAIL. NC2184.2 206800 GO TO UST-INIT-GF-21. NC2184.2 206900* NC2184.2 207000 UST-TEST-GF-20-1. NC2184.2 207100IF GRP4-XN-6 = "ABCDEF" NC2184.2 207200 PERFORM PASS NC2184.2 207300 GO TO UST-WRITE-GF-20-1 NC2184.2 207400ELSE NC2184.2 207500 GO TO UST-FAIL-GF-20-1. NC2184.2 207600 UST-DELETE-GF-20-1. NC2184.2 207700 PERFORM DE-LETE. NC2184.2 207800 GO TO UST-WRITE-GF-20-1. NC2184.2 207900 UST-FAIL-GF-20-1. NC2184.2 208000 PERFORM FAIL NC2184.2 208100 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 208200 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 208300 UST-WRITE-GF-20-1. NC2184.2 208400 PERFORM PRINT-DETAIL. NC2184.2 208500* NC2184.2 208600 UST-TEST-GF-20-2. NC2184.2 208700 ADD 1 TO REC-CT. NC2184.2 208800IF ID4C-XXXX = "****" NC2184.2 208900 PERFORM PASS NC2184.2 209000 GO TO UST-WRITE-GF-20-2 NC2184.2 209100ELSE NC2184.2 209200 GO TO UST-FAIL-GF-20-2. NC2184.2 209300 UST-DELETE-GF-20-2. NC2184.2 209400 PERFORM DE-LETE. NC2184.2 209500 GO TO UST-WRITE-GF-20-2. NC2184.2 209600 UST-FAIL-GF-20-2. NC2184.2 209700 PERFORM FAIL NC2184.2 209800 MOVE ID4C-XXXX TO COMPUTED-A NC2184.2 209900 MOVE "****" TO CORRECT-A. NC2184.2 210000 UST-WRITE-GF-20-2. NC2184.2 210100 PERFORM PRINT-DETAIL. NC2184.2 210200* NC2184.2 210300 UST-TEST-GF-20-3. NC2184.2 210400 ADD 1 TO REC-CT. NC2184.2 210500IF ID4D-X = "*" NC2184.2 210600 PERFORM PASS NC2184.2 210700 GO TO UST-WRITE-GF-20-3 NC2184.2 210800ELSE NC2184.2 210900 GO TO UST-FAIL-GF-20-3. NC2184.2 211000 UST-DELETE-GF-20-3. NC2184.2 211100 PERFORM DE-LETE. NC2184.2 211200 GO TO UST-WRITE-GF-20-3. NC2184.2 211300 UST-FAIL-GF-20-3. NC2184.2 211400 PERFORM FAIL NC2184.2 211500 MOVE ID4D-X TO COMPUTED-A NC2184.2 211600 MOVE "*" TO CORRECT-A. NC2184.2 211700 UST-WRITE-GF-20-3. NC2184.2 211800 PERFORM PRINT-DETAIL. NC2184.2 211900* NC2184.2 212000 UST-TEST-GF-20-4. NC2184.2 212100 ADD 1 TO REC-CT. NC2184.2 212200IF ID11-DU-2V0 = 3 NC2184.2 212300 PERFORM PASS NC2184.2 212400 GO TO UST-WRITE-GF-20-4 NC2184.2 212500ELSE NC2184.2 212600 GO TO UST-FAIL-GF-20-4. NC2184.2 212700 UST-DELETE-GF-20-4. NC2184.2 212800 PERFORM DE-LETE. NC2184.2 212900 GO TO UST-WRITE-GF-20-4. NC2184.2 213000 UST-FAIL-GF-20-4. NC2184.2 213100 PERFORM FAIL NC2184.2 213200 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 213300 MOVE 3 TO CORRECT-N. NC2184.2 213400 UST-WRITE-GF-20-4. NC2184.2 213500 PERFORM PRINT-DETAIL. NC2184.2 213600* NC2184.2 213700 UST-INIT-GF-21. NC2184.2 213800 MOVE "UST-TEST-GF-21" TO PAR-NAME. NC2184.2 213900 MOVE "VI-135" TO ANSI-REFERENCE. NC2184.2 214000 MOVE "TRUNCATION CHECKS" TO FEATURE. NC2184.2 214100 MOVE "ABCDEFGHIJKL" TO ID1-XN-12. NC2184.2 214200 MOVE ALL "*" TO GRP4-XN-10. NC2184.2 214300 MOVE 1 TO ID11-DU-2V0. NC2184.2 214400 MOVE 1 TO REC-CT. NC2184.2 214500* NC2184.2 214600 UST-TEST-GF-21. NC2184.2 214700 UNSTRING ID1-XN-12 NC2184.2 214800 DELIMITED BY "E"OR"H"OR"K"OR"L" NC2184.2 214900 INTO ID4C-XXX ID4B-XX ID4A-X NC2184.2 215000 TALLYING IN ID11-DU-2V0. NC2184.2 215100 GO TO UST-TEST-GF-21-1. NC2184.2 215200 UNSTRING-DELETE. NC2184.2 215300 PERFORM DE-LETE. NC2184.2 215400 PERFORM PRINT-DETAIL. NC2184.2 215500 GO TO UST-INIT-GF-22. NC2184.2 215600* NC2184.2 215700 UST-TEST-GF-21-1. NC2184.2 215800IF ID4C-XXX = "ABC" NC2184.2 215900 PERFORM PASS NC2184.2 216000 GO TO UST-WRITE-GF-21-1 NC2184.2 216100ELSE NC2184.2 216200 GO TO UST-FAIL-GF-21-1. NC2184.2 216300 UST-DELETE-GF-21-1. NC2184.2 216400 PERFORM DE-LETE. NC2184.2 216500 GO TO UST-WRITE-GF-21-1. NC2184.2 216600 UST-FAIL-GF-21-1. NC2184.2 216700 PERFORM FAIL NC2184.2 216800 MOVE ID4C-XXX TO COMPUTED-A NC2184.2 216900 MOVE "ABC" TO CORRECT-A. NC2184.2 217000 UST-WRITE-GF-21-1. NC2184.2 217100 PERFORM PRINT-DETAIL. NC2184.2 217200* NC2184.2 217300 UST-TEST-GF-21-2. NC2184.2 217400 ADD 1 TO REC-CT. NC2184.2 217500IF ID4B-XX = "FG" NC2184.2 217600 PERFORM PASS NC2184.2 217700 GO TO UST-WRITE-GF-21-2 NC2184.2 217800ELSE NC2184.2 217900 GO TO UST-FAIL-GF-21-2. NC2184.2 218000 UST-DELETE-GF-21-2. NC2184.2 218100 PERFORM DE-LETE. NC2184.2 218200 GO TO UST-WRITE-GF-21-2. NC2184.2 218300 UST-FAIL-GF-21-2. NC2184.2 218400 PERFORM FAIL NC2184.2 218500 MOVE ID4B-XX TO COMPUTED-A NC2184.2 218600 MOVE "FG" TO CORRECT-A. NC2184.2 218700 UST-WRITE-GF-21-2. NC2184.2 218800 PERFORM PRINT-DETAIL. NC2184.2 218900* NC2184.2 219000 UST-TEST-GF-21-3. NC2184.2 219100 ADD 1 TO REC-CT. NC2184.2 219200IF ID4A-X = "I" NC2184.2 219300 PERFORM PASS NC2184.2 219400 GO TO UST-WRITE-GF-21-3 NC2184.2 219500ELSE NC2184.2 219600 GO TO UST-FAIL-GF-21-3. NC2184.2 219700 UST-DELETE-GF-21-3. NC2184.2 219800 PERFORM DE-LETE. NC2184.2 219900 GO TO UST-WRITE-GF-21-3. NC2184.2 220000 UST-FAIL-GF-21-3. NC2184.2 220100 PERFORM FAIL NC2184.2 220200 MOVE ID4A-X TO COMPUTED-A NC2184.2 220300 MOVE "I" TO CORRECT-A. NC2184.2 220400 UST-WRITE-GF-21-3. NC2184.2 220500 PERFORM PRINT-DETAIL. NC2184.2 220600* NC2184.2 220700 UST-TEST-GF-21-4. NC2184.2 220800 ADD 1 TO REC-CT. NC2184.2 220900IF ID11-DU-2V0 = 4 NC2184.2 221000 PERFORM PASS NC2184.2 221100 GO TO UST-WRITE-GF-21-4 NC2184.2 221200ELSE NC2184.2 221300 GO TO UST-FAIL-GF-21-4. NC2184.2 221400 UST-DELETE-GF-21-4. NC2184.2 221500 PERFORM DE-LETE. NC2184.2 221600 GO TO UST-WRITE-GF-21-4. NC2184.2 221700 UST-FAIL-GF-21-4. NC2184.2 221800 PERFORM FAIL NC2184.2 221900 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 222000 MOVE 4 TO CORRECT-N. NC2184.2 222100 UST-WRITE-GF-21-4. NC2184.2 222200 PERFORM PRINT-DETAIL. NC2184.2 222300* NC2184.2 222400 UST-INIT-GF-22. NC2184.2 222500* ===--> "NOT ON OVERFLOW" PHRASE <--=== NC2184.2 222600 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 222700 MOVE "UST-TEST-GF-22" TO PAR-NAME. NC2184.2 222800 MOVE "PIC X " TO FEATURE. NC2184.2 222900 MOVE ZERO TO ID4-X. NC2184.2 223000 MOVE "****" TO ID5-XN-4. NC2184.2 223100 MOVE ZERO TO ID6-DU-2V0. NC2184.2 223200 MOVE 1 TO ID10-DU-2V0. NC2184.2 223300 MOVE ZERO TO ID11-DU-2V0. NC2184.2 223400 MOVE 1 TO REC-CT. NC2184.2 223500* NC2184.2 223600 UST-TEST-GF-22-1. NC2184.2 223700 UNSTRING ID1-XN-7 DELIMITED BY ZERO INTO ID4-X DELIMITER IN NC2184.2 223800 ID5-XN-4 COUNT IN ID6-DU-2V0 WITH POINTER ID10-DU-2V0NC2184.2 223900 TALLYING ID11-DU-2V0 NC2184.2 224000NOT ON OVERFLOW GO TO UST-FAIL-GF-22-1. NC2184.2 224100 PERFORM PASS. NC2184.2 224200 GO TO UST-WRITE-GF-22-1. NC2184.2 224300 UST-DELETE-GF-22-1. NC2184.2 224400 PERFORM DE-LETE. NC2184.2 224500 PERFORM PRINT-DETAIL. NC2184.2 224600 GO TO UST-INIT-GF-23. NC2184.2 224700 UST-FAIL-GF-22-1. NC2184.2 224800 PERFORM FAIL. NC2184.2 224900 MOVE "NOT ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK.NC2184.2 225000 UST-WRITE-GF-22-1. NC2184.2 225100 PERFORM PRINT-DETAIL. NC2184.2 225200* NC2184.2 225300 UST-TEST-GF-22-2. NC2184.2 225400 ADD 1 TO REC-CT. NC2184.2 225500IF ID4-X = "1" NC2184.2 225600 PERFORM PASS NC2184.2 225700 GO TO UST-WRITE-GF-22-2 NC2184.2 225800ELSE NC2184.2 225900 GO TO UST-FAIL-GF-22-2. NC2184.2 226000 UST-DELETE-GF-22-2. NC2184.2 226100 PERFORM DE-LETE. NC2184.2 226200 GO TO UST-WRITE-GF-22-2. NC2184.2 226300 UST-FAIL-GF-22-2. NC2184.2 226400 PERFORM FAIL NC2184.2 226500 MOVE ID4-X TO COMPUTED-A NC2184.2 226600 MOVE "1" TO CORRECT-A. NC2184.2 226700 UST-WRITE-GF-22-2. NC2184.2 226800 PERFORM PRINT-DETAIL. NC2184.2 226900* NC2184.2 227000 UST-TEST-GF-22-3. NC2184.2 227100 ADD 1 TO REC-CT. NC2184.2 227200IF ID5-XN-4 = "0 " NC2184.2 227300 PERFORM PASS NC2184.2 227400 GO TO UST-WRITE-GF-22-3 NC2184.2 227500ELSE NC2184.2 227600 GO TO UST-FAIL-GF-22-3. NC2184.2 227700 UST-DELETE-GF-22-3. NC2184.2 227800 PERFORM DE-LETE. NC2184.2 227900 GO TO UST-WRITE-GF-22-3. NC2184.2 228000 UST-FAIL-GF-22-3. NC2184.2 228100 PERFORM FAIL NC2184.2 228200 MOVE ID5-XN-4 TO COMPUTED-A NC2184.2 228300 MOVE "0 " TO CORRECT-A. NC2184.2 228400 UST-WRITE-GF-22-3. NC2184.2 228500 PERFORM PRINT-DETAIL. NC2184.2 228600* NC2184.2 228700 UST-TEST-GF-22-4. NC2184.2 228800 ADD 1 TO REC-CT. NC2184.2 228900IF ID6-DU-2V0 = 2 NC2184.2 229000 PERFORM PASS NC2184.2 229100 GO TO UST-WRITE-GF-22-4 NC2184.2 229200ELSE NC2184.2 229300 GO TO UST-FAIL-GF-22-4. NC2184.2 229400 UST-DELETE-GF-22-4. NC2184.2 229500 PERFORM DE-LETE. NC2184.2 229600 GO TO UST-WRITE-GF-22-4. NC2184.2 229700 UST-FAIL-GF-22-4. NC2184.2 229800 PERFORM FAIL NC2184.2 229900 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 230000 MOVE 2 TO CORRECT-N. NC2184.2 230100 UST-WRITE-GF-22-4. NC2184.2 230200 PERFORM PRINT-DETAIL. NC2184.2 230300* NC2184.2 230400 UST-TEST-GF-22-5. NC2184.2 230500 ADD 1 TO REC-CT. NC2184.2 230600IF ID10-DU-2V0 = 4 NC2184.2 230700 PERFORM PASS NC2184.2 230800 GO TO UST-WRITE-GF-22-5 NC2184.2 230900ELSE NC2184.2 231000 GO TO UST-FAIL-GF-22-5. NC2184.2 231100 UST-DELETE-GF-22-5. NC2184.2 231200 PERFORM DE-LETE. NC2184.2 231300 GO TO UST-WRITE-GF-22-5. NC2184.2 231400 UST-FAIL-GF-22-5. NC2184.2 231500 PERFORM FAIL NC2184.2 231600 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 231700 MOVE 4 TO CORRECT-N. NC2184.2 231800 UST-WRITE-GF-22-5. NC2184.2 231900 PERFORM PRINT-DETAIL. NC2184.2 232000* NC2184.2 232100 UST-TEST-GF-22-6. NC2184.2 232200 ADD 1 TO REC-CT. NC2184.2 232300IF ID11-DU-2V0 = 1 NC2184.2 232400 PERFORM PASS NC2184.2 232500 GO TO UST-WRITE-GF-22-6 NC2184.2 232600ELSE NC2184.2 232700 GO TO UST-FAIL-GF-22-6. NC2184.2 232800 UST-DELETE-GF-22-6. NC2184.2 232900 PERFORM DE-LETE. NC2184.2 233000 GO TO UST-WRITE-GF-22-6. NC2184.2 233100 UST-FAIL-GF-22-6. NC2184.2 233200 PERFORM FAIL NC2184.2 233300 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 233400 MOVE 1 TO CORRECT-N. NC2184.2 233500 UST-WRITE-GF-22-6. NC2184.2 233600 PERFORM PRINT-DETAIL. NC2184.2 233700* NC2184.2 233800 UST-INIT-GF-23. NC2184.2 233900* ===--> "NOT ON OVERFLOW" PHRASE <--=== NC2184.2 234000 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 234100 MOVE "UST-TEST-GF-23" TO PAR-NAME. NC2184.2 234200 MOVE "OVERFLOW TEST" TO FEATURE. NC2184.2 234300 MOVE SPACES TO GRP4-XN-6. NC2184.2 234400 MOVE "****" TO ID5-XN-4. NC2184.2 234500 MOVE ZERO TO ID6-DU-2V0. NC2184.2 234600 MOVE 1 TO ID10-DU-2V0. NC2184.2 234700 MOVE ZERO TO ID11-DU-2V0. NC2184.2 234800 MOVE 1 TO REC-CT. NC2184.2 234900* NC2184.2 235000 UST-TEST-GF-23-1. NC2184.2 235100 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X NC2184.2 235200NOT ON OVERFLOW PERFORM PASS NC2184.2 235300 GO TO UST-WRITE-GF-23-1. NC2184.2 235400 GO TO UST-FAIL-GF-23-1. NC2184.2 235500 UST-DELETE-GF-23-1. NC2184.2 235600 PERFORM DE-LETE. NC2184.2 235700 PERFORM PRINT-DETAIL. NC2184.2 235800 GO TO UST-INIT-GF-24. NC2184.2 235900 UST-FAIL-GF-23-1. NC2184.2 236000 PERFORM FAIL. NC2184.2 236100 MOVE "OVERFLOW SHOULD NOT HAVE OCCURED" TO RE-MARK. NC2184.2 236200 UST-WRITE-GF-23-1. NC2184.2 236300 PERFORM PRINT-DETAIL. NC2184.2 236400* NC2184.2 236500 UST-TEST-GF-23-2. NC2184.2 236600 ADD 1 TO REC-CT. NC2184.2 236700IF GRP4-XN-6 = "ABCDEF" NC2184.2 236800 PERFORM PASS NC2184.2 236900 GO TO UST-WRITE-GF-23-2 NC2184.2 237000ELSE NC2184.2 237100 GO TO UST-FAIL-GF-23-2. NC2184.2 237200 UST-DELETE-GF-23-2. NC2184.2 237300 PERFORM DE-LETE. NC2184.2 237400 GO TO UST-WRITE-GF-23-2. NC2184.2 237500 UST-FAIL-GF-23-2. NC2184.2 237600 PERFORM FAIL NC2184.2 237700 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 237800 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 237900 UST-WRITE-GF-23-2. NC2184.2 238000 PERFORM PRINT-DETAIL. NC2184.2 238100* NC2184.2 238200 UST-INIT-GF-24. NC2184.2 238300* ===--> BOTH "OVERFLOW" PHRASES <--=== NC2184.2 238400 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 238500 MOVE "UST-TEST-GF-24" TO PAR-NAME. NC2184.2 238600 MOVE "PIC X " TO FEATURE. NC2184.2 238700 MOVE ZERO TO ID4-X. NC2184.2 238800 MOVE "****" TO ID5-XN-4. NC2184.2 238900 MOVE ZERO TO ID6-DU-2V0. NC2184.2 239000 MOVE 1 TO ID10-DU-2V0. NC2184.2 239100 MOVE ZERO TO ID11-DU-2V0. NC2184.2 239200 MOVE 1 TO REC-CT. NC2184.2 239300* NC2184.2 239400 UST-TEST-GF-24-1. NC2184.2 239500 UNSTRING ID1-XN-7 DELIMITED BY ZERO INTO ID4-X NC2184.2 239600 DELIMITER IN ID5-XN-4 NC2184.2 239700 COUNT IN ID6-DU-2V0 NC2184.2 239800 WITH POINTER ID10-DU-2V0 NC2184.2 239900 TALLYING ID11-DU-2V0 NC2184.2 240000 ON OVERFLOW PERFORM PASS NC2184.2 240100 GO TO UST-WRITE-GF-24-1 NC2184.2 240200NOT ON OVERFLOW GO TO UST-FAIL-GF-24-1. NC2184.2 240300 UST-DELETE-GF-24-1. NC2184.2 240400 PERFORM DE-LETE. NC2184.2 240500 PERFORM PRINT-DETAIL. NC2184.2 240600 GO TO UST-INIT-GF-25. NC2184.2 240700 UST-FAIL-GF-24-1. NC2184.2 240800 PERFORM FAIL. NC2184.2 240900 MOVE "ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK. NC2184.2 241000 UST-WRITE-GF-24-1. NC2184.2 241100 PERFORM PRINT-DETAIL. NC2184.2 241200* NC2184.2 241300 UST-TEST-GF-24-2. NC2184.2 241400 ADD 1 TO REC-CT. NC2184.2 241500IF ID4-X = "1" NC2184.2 241600 PERFORM PASS NC2184.2 241700 GO TO UST-WRITE-GF-24-2 NC2184.2 241800ELSE NC2184.2 241900 GO TO UST-FAIL-GF-24-2. NC2184.2 242000 UST-DELETE-GF-24-2. NC2184.2 242100 PERFORM DE-LETE. NC2184.2 242200 GO TO UST-WRITE-GF-24-2. NC2184.2 242300 UST-FAIL-GF-24-2. NC2184.2 242400 PERFORM FAIL NC2184.2 242500 MOVE ID4-X TO COMPUTED-A NC2184.2 242600 MOVE "1" TO CORRECT-A. NC2184.2 242700 UST-WRITE-GF-24-2. NC2184.2 242800 PERFORM PRINT-DETAIL. NC2184.2 242900* NC2184.2 243000 UST-TEST-GF-24-3. NC2184.2 243100 ADD 1 TO REC-CT. NC2184.2 243200IF ID5-XN-4 = "0 " NC2184.2 243300 PERFORM PASS NC2184.2 243400 GO TO UST-WRITE-GF-24-3 NC2184.2 243500ELSE NC2184.2 243600 GO TO UST-FAIL-GF-24-3. NC2184.2 243700 UST-DELETE-GF-24-3. NC2184.2 243800 PERFORM DE-LETE. NC2184.2 243900 GO TO UST-WRITE-GF-24-3. NC2184.2 244000 UST-FAIL-GF-24-3. NC2184.2 244100 PERFORM FAIL NC2184.2 244200 MOVE ID5-XN-4 TO COMPUTED-A NC2184.2 244300 MOVE "0 " TO CORRECT-A. NC2184.2 244400 UST-WRITE-GF-24-3. NC2184.2 244500 PERFORM PRINT-DETAIL. NC2184.2 244600* NC2184.2 244700 UST-TEST-GF-24-4. NC2184.2 244800 ADD 1 TO REC-CT. NC2184.2 244900IF ID6-DU-2V0 = 2 NC2184.2 245000 PERFORM PASS NC2184.2 245100 GO TO UST-WRITE-GF-24-4 NC2184.2 245200ELSE NC2184.2 245300 GO TO UST-FAIL-GF-24-4. NC2184.2 245400 UST-DELETE-GF-24-4. NC2184.2 245500 PERFORM DE-LETE. NC2184.2 245600 GO TO UST-WRITE-GF-24-4. NC2184.2 245700 UST-FAIL-GF-24-4. NC2184.2 245800 PERFORM FAIL NC2184.2 245900 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 246000 MOVE 2 TO CORRECT-N. NC2184.2 246100 UST-WRITE-GF-24-4. NC2184.2 246200 PERFORM PRINT-DETAIL. NC2184.2 246300* NC2184.2 246400 UST-TEST-GF-24-5. NC2184.2 246500 ADD 1 TO REC-CT. NC2184.2 246600IF ID10-DU-2V0 = 4 NC2184.2 246700 PERFORM PASS NC2184.2 246800 GO TO UST-WRITE-GF-24-5 NC2184.2 246900ELSE NC2184.2 247000 GO TO UST-FAIL-GF-24-5. NC2184.2 247100 UST-DELETE-GF-24-5. NC2184.2 247200 PERFORM DE-LETE. NC2184.2 247300 GO TO UST-WRITE-GF-24-5. NC2184.2 247400 UST-FAIL-GF-24-5. NC2184.2 247500 PERFORM FAIL NC2184.2 247600 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 247700 MOVE 4 TO CORRECT-N. NC2184.2 247800 UST-WRITE-GF-24-5. NC2184.2 247900 PERFORM PRINT-DETAIL. NC2184.2 248000* NC2184.2 248100 UST-TEST-GF-24-6. NC2184.2 248200 ADD 1 TO REC-CT. NC2184.2 248300IF ID11-DU-2V0 = 1 NC2184.2 248400 PERFORM PASS NC2184.2 248500 GO TO UST-WRITE-GF-24-6 NC2184.2 248600ELSE NC2184.2 248700 GO TO UST-FAIL-GF-24-6. NC2184.2 248800 UST-DELETE-GF-24-6. NC2184.2 248900 PERFORM DE-LETE. NC2184.2 249000 GO TO UST-WRITE-GF-24-6. NC2184.2 249100 UST-FAIL-GF-24-6. NC2184.2 249200 PERFORM FAIL NC2184.2 249300 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 249400 MOVE 1 TO CORRECT-N. NC2184.2 249500 UST-WRITE-GF-24-6. NC2184.2 249600 PERFORM PRINT-DETAIL. NC2184.2 249700* NC2184.2 249800 UST-INIT-GF-25. NC2184.2 249900* ===--> BOTH "OVERFLOW" PHRASES <--=== NC2184.2 250000 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 250100 MOVE "UST-TEST-GF-25" TO PAR-NAME. NC2184.2 250200 MOVE "OVERFLOW TEST" TO FEATURE. NC2184.2 250300 MOVE SPACES TO GRP4-XN-6. NC2184.2 250400 MOVE "****" TO ID5-XN-4. NC2184.2 250500 MOVE ZERO TO ID6-DU-2V0. NC2184.2 250600 MOVE 1 TO ID10-DU-2V0. NC2184.2 250700 MOVE ZERO TO ID11-DU-2V0. NC2184.2 250800 MOVE 1 TO REC-CT. NC2184.2 250900* NC2184.2 251000 UST-TEST-GF-25-1. NC2184.2 251100 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X NC2184.2 251200 ON OVERFLOW GO TO UST-FAIL-GF-25-1 NC2184.2 251300NOT ON OVERFLOW PERFORM PASS NC2184.2 251400 GO TO UST-WRITE-GF-25-1. NC2184.2 251500 UST-DELETE-GF-25-1. NC2184.2 251600 PERFORM DE-LETE. NC2184.2 251700 PERFORM PRINT-DETAIL. NC2184.2 251800 GO TO UST-INIT-GF-26. NC2184.2 251900 UST-FAIL-GF-25-1. NC2184.2 252000 PERFORM FAIL. NC2184.2 252100 MOVE "ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK. NC2184.2 252200 UST-WRITE-GF-25-1. NC2184.2 252300 PERFORM PRINT-DETAIL. NC2184.2 252400* NC2184.2 252500 UST-TEST-GF-25-2. NC2184.2 252600 ADD 1 TO REC-CT. NC2184.2 252700IF GRP4-XN-6 = "ABCDEF" NC2184.2 252800 PERFORM PASS NC2184.2 252900 GO TO UST-WRITE-GF-25-2 NC2184.2 253000ELSE NC2184.2 253100 GO TO UST-FAIL-GF-25-2. NC2184.2 253200 UST-DELETE-GF-25-2. NC2184.2 253300 PERFORM DE-LETE. NC2184.2 253400 GO TO UST-WRITE-GF-25-2. NC2184.2 253500 UST-FAIL-GF-25-2. NC2184.2 253600 PERFORM FAIL NC2184.2 253700 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 253800 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 253900 UST-WRITE-GF-25-2. NC2184.2 254000 PERFORM PRINT-DETAIL. NC2184.2 254100* NC2184.2 254200 UST-INIT-GF-26. NC2184.2 254300* ===--> EXPLICIT SCOPE TERMINATOR <--=== NC2184.2 254400 MOVE "VI-138 6.26.4 GR19" TO ANSI-REFERENCE. NC2184.2 254500 MOVE "ABCDEF" TO GRP1-XN-6. NC2184.2 254600 MOVE SPACE TO WRK-XN-00001-1. NC2184.2 254700 MOVE SPACE TO WRK-XN-00001-2. NC2184.2 254800 MOVE SPACE TO WRK-XN-00001-3. NC2184.2 254900 MOVE ZERO TO REC-CT. NC2184.2 255000* NC2184.2 255100 UST-TEST-GF-26-0. NC2184.2 255200 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X NC2184.2 255300 ON OVERFLOW NC2184.2 255400 MOVE "A" TO WRK-XN-00001-1 NC2184.2 255500 MOVE "B" TO WRK-XN-00001-2 NC2184.2 255600NOT ON OVERFLOW NC2184.2 255700 MOVE "C" TO WRK-XN-00001-1 NC2184.2 255800 MOVE "D" TO WRK-XN-00001-2 NC2184.2 255900 END-UNSTRING NC2184.2 256000 MOVE "Z" TO WRK-XN-00001-3. NC2184.2 256100 GO TO UST-TEST-GF-26-1. NC2184.2 256200 UST-DELETE-GF-26. NC2184.2 256300 PERFORM DE-LETE. NC2184.2 256400 PERFORM PRINT-DETAIL. NC2184.2 256500 GO TO UST-INIT-GF-27. NC2184.2 256600* NC2184.2 256700 UST-TEST-GF-26-1. NC2184.2 256800 ADD 1 TO REC-CT. NC2184.2 256900IF GRP4-XN-6 = "ABCDEF" NC2184.2 257000 PERFORM PASS NC2184.2 257100 GO TO UST-WRITE-GF-26-1 NC2184.2 257200ELSE NC2184.2 257300 GO TO UST-FAIL-GF-26-1. NC2184.2 257400 UST-DELETE-GF-26-1. NC2184.2 257500 PERFORM DE-LETE. NC2184.2 257600 GO TO UST-WRITE-GF-26-1. NC2184.2 257700 UST-FAIL-GF-26-1. NC2184.2 257800 PERFORM FAIL NC2184.2 257900 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 258000 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 258100 UST-WRITE-GF-26-1. NC2184.2 258200 PERFORM PRINT-DETAIL. NC2184.2 258300* NC2184.2 258400 UST-TEST-GF-26-2. NC2184.2 258500 ADD 1 TO REC-CT. NC2184.2 258600IF WRK-XN-00001-1 = "C" NC2184.2 258700 PERFORM PASS NC2184.2 258800 GO TO UST-WRITE-GF-26-2 NC2184.2 258900ELSE NC2184.2 259000 GO TO UST-FAIL-GF-26-2. NC2184.2 259100 UST-DELETE-GF-26-2. NC2184.2 259200 PERFORM DE-LETE. NC2184.2 259300 GO TO UST-WRITE-GF-26-2. NC2184.2 259400 UST-FAIL-GF-26-2. NC2184.2 259500 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2184.2 259600 MOVE "C" TO CORRECT-A. NC2184.2 259700 MOVE "NOT ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK NC2184.2 259800 PERFORM FAIL. NC2184.2 259900 UST-WRITE-GF-26-2. NC2184.2 260000 PERFORM PRINT-DETAIL. NC2184.2 260100* NC2184.2 260200 UST-TEST-GF-26-3. NC2184.2 260300 ADD 1 TO REC-CT. NC2184.2 260400IF WRK-XN-00001-2 = "D" NC2184.2 260500 PERFORM PASS NC2184.2 260600 GO TO UST-WRITE-GF-26-3 NC2184.2 260700ELSE NC2184.2 260800 GO TO UST-FAIL-GF-26-3. NC2184.2 260900 UST-DELETE-GF-26-3. NC2184.2 261000 PERFORM DE-LETE. NC2184.2 261100 GO TO UST-WRITE-GF-26-3. NC2184.2 261200 UST-FAIL-GF-26-3. NC2184.2 261300 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2184.2 261400 MOVE "D" TO CORRECT-A. NC2184.2 261500 MOVE "NOT ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK NC2184.2 261600 PERFORM FAIL. NC2184.2 261700 UST-WRITE-GF-26-3. NC2184.2 261800 PERFORM PRINT-DETAIL. NC2184.2 261900* NC2184.2 262000 UST-TEST-GF-26-4. NC2184.2 262100 ADD 1 TO REC-CT. NC2184.2 262200IF WRK-XN-00001-3 = "Z" NC2184.2 262300 PERFORM PASS NC2184.2 262400 GO TO UST-WRITE-GF-26-4 NC2184.2 262500ELSE NC2184.2 262600 GO TO UST-FAIL-GF-26-4. NC2184.2 262700 UST-DELETE-GF-26-4. NC2184.2 262800 PERFORM DE-LETE. NC2184.2 262900 GO TO UST-WRITE-GF-26-4. NC2184.2 263000 UST-FAIL-GF-26-4. NC2184.2 263100 MOVE WRK-XN-00001-3 TO COMPUTED-A NC2184.2 263200 MOVE "Z" TO CORRECT-A. NC2184.2 263300 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2184.2 263400 PERFORM FAIL. NC2184.2 263500 UST-WRITE-GF-26-4. NC2184.2 263600 PERFORM PRINT-DETAIL. NC2184.2 263700* NC2184.2 263800 UST-INIT-GF-27. NC2184.2 263900* ===--> EXPLICIT SCOPE TERMINATOR <--=== NC2184.2 264000 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 264100 MOVE "UST-TEST-GF-27" TO PAR-NAME. NC2184.2 264200 MOVE "PIC X " TO FEATURE. NC2184.2 264300 MOVE "1200000" TO ID1-XN-7. NC2184.2 264400 MOVE ZERO TO ID4-X. NC2184.2 264500 MOVE "****" TO ID5-XN-4. NC2184.2 264600 MOVE ZERO TO ID6-DU-2V0. NC2184.2 264700 MOVE 1 TO ID10-DU-2V0. NC2184.2 264800 MOVE ZERO TO ID11-DU-2V0. NC2184.2 264900 MOVE ZERO TO REC-CT. NC2184.2 265000 MOVE SPACE TO WRK-XN-00001-1. NC2184.2 265100 MOVE SPACE TO WRK-XN-00001-2. NC2184.2 265200 MOVE SPACE TO WRK-XN-00001-3. NC2184.2 265300* NC2184.2 265400 UST-TEST-GF-27-0. NC2184.2 265500 UNSTRING ID1-XN-7 DELIMITED BY ZERO INTO ID4-X NC2184.2 265600 DELIMITER IN ID5-XN-4 NC2184.2 265700 COUNT IN ID6-DU-2V0 NC2184.2 265800 WITH POINTER ID10-DU-2V0 NC2184.2 265900 TALLYING ID11-DU-2V0 NC2184.2 266000 ON OVERFLOW NC2184.2 266100 MOVE "A" TO WRK-XN-00001-1 NC2184.2 266200 MOVE "B" TO WRK-XN-00001-2 NC2184.2 266300 END-UNSTRING NC2184.2 266400 MOVE "Z" TO WRK-XN-00001-3. NC2184.2 266500 GO TO UST-TEST-GF-27-1. NC2184.2 266600 UST-DELETE-GF-27. NC2184.2 266700 PERFORM DE-LETE. NC2184.2 266800 PERFORM PRINT-DETAIL. NC2184.2 266900 GO TO UST-INIT-GF-28. NC2184.2 267000* NC2184.2 267100 UST-TEST-GF-27-1. NC2184.2 267200 ADD 1 TO REC-CT. NC2184.2 267300IF ID4-X = "1" NC2184.2 267400 PERFORM PASS NC2184.2 267500 GO TO UST-WRITE-GF-27-1 NC2184.2 267600ELSE NC2184.2 267700 GO TO UST-FAIL-GF-27-1. NC2184.2 267800 UST-DELETE-GF-27-1. NC2184.2 267900 PERFORM DE-LETE. NC2184.2 268000 GO TO UST-WRITE-GF-27-1. NC2184.2 268100 UST-FAIL-GF-27-1. NC2184.2 268200 PERFORM FAIL NC2184.2 268300 MOVE ID4-X TO COMPUTED-A NC2184.2 268400 MOVE "1" TO CORRECT-A. NC2184.2 268500 UST-WRITE-GF-27-1. NC2184.2 268600 PERFORM PRINT-DETAIL. NC2184.2 268700* NC2184.2 268800 UST-TEST-GF-27-2. NC2184.2 268900 ADD 1 TO REC-CT. NC2184.2 269000IF ID5-XN-4 = "0 " NC2184.2 269100 PERFORM PASS NC2184.2 269200 GO TO UST-WRITE-GF-27-2 NC2184.2 269300ELSE NC2184.2 269400 GO TO UST-FAIL-GF-27-2. NC2184.2 269500 UST-DELETE-GF-27-2. NC2184.2 269600 PERFORM DE-LETE. NC2184.2 269700 GO TO UST-WRITE-GF-27-2. NC2184.2 269800 UST-FAIL-GF-27-2. NC2184.2 269900 PERFORM FAIL NC2184.2 270000 MOVE ID5-XN-4 TO COMPUTED-A NC2184.2 270100 MOVE "0 " TO CORRECT-A. NC2184.2 270200 UST-WRITE-GF-27-2. NC2184.2 270300 PERFORM PRINT-DETAIL. NC2184.2 270400* NC2184.2 270500 UST-TEST-GF-27-3. NC2184.2 270600 ADD 1 TO REC-CT. NC2184.2 270700IF ID6-DU-2V0 = 2 NC2184.2 270800 PERFORM PASS NC2184.2 270900 GO TO UST-WRITE-GF-27-3 NC2184.2 271000ELSE NC2184.2 271100 GO TO UST-FAIL-GF-27-3. NC2184.2 271200 UST-DELETE-GF-27-3. NC2184.2 271300 PERFORM DE-LETE. NC2184.2 271400 GO TO UST-WRITE-GF-27-3. NC2184.2 271500 UST-FAIL-GF-27-3. NC2184.2 271600 PERFORM FAIL NC2184.2 271700 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 271800 MOVE 2 TO CORRECT-N. NC2184.2 271900 UST-WRITE-GF-27-3. NC2184.2 272000 PERFORM PRINT-DETAIL. NC2184.2 272100* NC2184.2 272200 UST-TEST-GF-27-4. NC2184.2 272300 ADD 1 TO REC-CT. NC2184.2 272400IF ID10-DU-2V0 = 4 NC2184.2 272500 PERFORM PASS NC2184.2 272600 GO TO UST-WRITE-GF-27-4 NC2184.2 272700ELSE NC2184.2 272800 GO TO UST-FAIL-GF-27-4. NC2184.2 272900 UST-DELETE-GF-27-4. NC2184.2 273000 PERFORM DE-LETE. NC2184.2 273100 GO TO UST-WRITE-GF-27-4. NC2184.2 273200 UST-FAIL-GF-27-4. NC2184.2 273300 PERFORM FAIL NC2184.2 273400 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 273500 MOVE 4 TO CORRECT-N. NC2184.2 273600 UST-WRITE-GF-27-4. NC2184.2 273700 PERFORM PRINT-DETAIL. NC2184.2 273800* NC2184.2 273900 UST-TEST-GF-27-5. NC2184.2 274000 ADD 1 TO REC-CT. NC2184.2 274100IF ID11-DU-2V0 = 1 NC2184.2 274200 PERFORM PASS NC2184.2 274300 GO TO UST-WRITE-GF-27-5 NC2184.2 274400ELSE NC2184.2 274500 GO TO UST-FAIL-GF-27-5. NC2184.2 274600 UST-DELETE-GF-27-5. NC2184.2 274700 PERFORM DE-LETE. NC2184.2 274800 GO TO UST-WRITE-GF-27-5. NC2184.2 274900 UST-FAIL-GF-27-5. NC2184.2 275000 PERFORM FAIL NC2184.2 275100 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 275200 MOVE 1 TO CORRECT-N. NC2184.2 275300 UST-WRITE-GF-27-5. NC2184.2 275400* NC2184.2 275500 UST-INIT-GF-28. NC2184.2 275600* ===--> "NOT ON OVERFLOW" PHRASE <--=== NC2184.2 275700 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 275800 MOVE "UST-TEST-GF-28" TO PAR-NAME. NC2184.2 275900 MOVE "OVERFLOW TEST" TO FEATURE. NC2184.2 276000 MOVE "ABCDEF" TO GRP1-XN-6. NC2184.2 276100 MOVE SPACES TO GRP4-XN-6. NC2184.2 276200 MOVE "****" TO ID5-XN-4. NC2184.2 276300 MOVE ZERO TO ID6-DU-2V0. NC2184.2 276400 MOVE 1 TO ID10-DU-2V0. NC2184.2 276500 MOVE ZERO TO ID11-DU-2V0. NC2184.2 276600 MOVE ZERO TO REC-CT. NC2184.2 276700 MOVE SPACE TO WRK-XN-00001-1. NC2184.2 276800 MOVE SPACE TO WRK-XN-00001-2. NC2184.2 276900 MOVE SPACE TO WRK-XN-00001-3. NC2184.2 277000* NC2184.2 277100 UST-TEST-GF-28-0. NC2184.2 277200 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X NC2184.2 277300 ON OVERFLOW NC2184.2 277400 MOVE "A" TO WRK-XN-00001-1 NC2184.2 277500 MOVE "B" TO WRK-XN-00001-2 NC2184.2 277600 END-UNSTRING NC2184.2 277700 MOVE "Z" TO WRK-XN-00001-3. NC2184.2 277800 GO TO UST-TEST-GF-28-1. NC2184.2 277900 UST-DELETE-GF-28. NC2184.2 278000 PERFORM DE-LETE. NC2184.2 278100 PERFORM PRINT-DETAIL. NC2184.2 278200 GO TO UST-INIT-GF-29. NC2184.2 278300* NC2184.2 278400 UST-TEST-GF-28-1. NC2184.2 278500 ADD 1 TO REC-CT. NC2184.2 278600IF GRP4-XN-6 = "ABCDEF" NC2184.2 278700 PERFORM PASS NC2184.2 278800 GO TO UST-WRITE-GF-28-1 NC2184.2 278900ELSE NC2184.2 279000 GO TO UST-FAIL-GF-28-1. NC2184.2 279100 UST-DELETE-GF-28-1. NC2184.2 279200 PERFORM DE-LETE. NC2184.2 279300 GO TO UST-WRITE-GF-28-1. NC2184.2 279400 UST-FAIL-GF-28-1. NC2184.2 279500 PERFORM FAIL NC2184.2 279600 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 279700 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 279800 UST-WRITE-GF-28-1. NC2184.2 279900 PERFORM PRINT-DETAIL. NC2184.2 280000* NC2184.2 280100* NC2184.2 280200 UST-INIT-GF-29. NC2184.2 280300* ===--> EXPLICIT SCOPE TERMINATOR <--=== NC2184.2 280400 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 280500 MOVE "UST-TEST-GF-29" TO PAR-NAME. NC2184.2 280600 MOVE "PIC X " TO FEATURE. NC2184.2 280700 MOVE "1200000" TO ID1-XN-7. NC2184.2 280800 MOVE ZERO TO ID4-X. NC2184.2 280900 MOVE "****" TO ID5-XN-4. NC2184.2 281000 MOVE ZERO TO ID6-DU-2V0. NC2184.2 281100 MOVE 1 TO ID10-DU-2V0. NC2184.2 281200 MOVE ZERO TO ID11-DU-2V0. NC2184.2 281300 MOVE ZERO TO REC-CT. NC2184.2 281400 MOVE SPACE TO WRK-XN-00001-1. NC2184.2 281500 MOVE SPACE TO WRK-XN-00001-2. NC2184.2 281600 MOVE SPACE TO WRK-XN-00001-3. NC2184.2 281700* NC2184.2 281800 UST-TEST-GF-29-0. NC2184.2 281900 UNSTRING ID1-XN-7 DELIMITED BY ZERO INTO ID4-X NC2184.2 282000 DELIMITER IN ID5-XN-4 NC2184.2 282100 COUNT IN ID6-DU-2V0 NC2184.2 282200 WITH POINTER ID10-DU-2V0 NC2184.2 282300 TALLYING ID11-DU-2V0 NC2184.2 282400NOT ON OVERFLOW NC2184.2 282500 MOVE "A" TO WRK-XN-00001-1 NC2184.2 282600 MOVE "B" TO WRK-XN-00001-2 NC2184.2 282700 END-UNSTRING NC2184.2 282800 MOVE "Z" TO WRK-XN-00001-3. NC2184.2 282900 GO TO UST-TEST-GF-29-1. NC2184.2 283000 UST-DELETE-GF-29. NC2184.2 283100 PERFORM DE-LETE. NC2184.2 283200 PERFORM PRINT-DETAIL. NC2184.2 283300 GO TO UST-INIT-GF-30. NC2184.2 283400* NC2184.2 283500 UST-TEST-GF-29-1. NC2184.2 283600 MOVE "UST-TEST-GF-29-1" TO PAR-NAME. NC2184.2 283700 ADD 1 TO REC-CT. NC2184.2 283800IF ID4-X = "1" NC2184.2 283900 PERFORM PASS NC2184.2 284000 GO TO UST-WRITE-GF-29-1 NC2184.2 284100ELSE NC2184.2 284200 GO TO UST-FAIL-GF-29-1. NC2184.2 284300 UST-DELETE-GF-29-1. NC2184.2 284400 PERFORM DE-LETE. NC2184.2 284500 GO TO UST-WRITE-GF-29-1. NC2184.2 284600 UST-FAIL-GF-29-1. NC2184.2 284700 PERFORM FAIL NC2184.2 284800 MOVE ID4-X TO COMPUTED-A NC2184.2 284900 MOVE "1" TO CORRECT-A. NC2184.2 285000 UST-WRITE-GF-29-1. NC2184.2 285100 PERFORM PRINT-DETAIL. NC2184.2 285200* NC2184.2 285300 UST-TEST-GF-29-2. NC2184.2 285400 ADD 1 TO REC-CT. NC2184.2 285500IF ID5-XN-4 = "0 " NC2184.2 285600 PERFORM PASS NC2184.2 285700 GO TO UST-WRITE-GF-29-2 NC2184.2 285800ELSE NC2184.2 285900 GO TO UST-FAIL-GF-29-2. NC2184.2 286000 UST-DELETE-GF-29-2. NC2184.2 286100 PERFORM DE-LETE. NC2184.2 286200 GO TO UST-WRITE-GF-29-2. NC2184.2 286300 UST-FAIL-GF-29-2. NC2184.2 286400 PERFORM FAIL NC2184.2 286500 MOVE ID5-XN-4 TO COMPUTED-A NC2184.2 286600 MOVE "0 " TO CORRECT-A. NC2184.2 286700 UST-WRITE-GF-29-2. NC2184.2 286800 PERFORM PRINT-DETAIL. NC2184.2 286900* NC2184.2 287000 UST-TEST-GF-29-3. NC2184.2 287100 ADD 1 TO REC-CT. NC2184.2 287200IF ID6-DU-2V0 = 2 NC2184.2 287300 PERFORM PASS NC2184.2 287400 GO TO UST-WRITE-GF-29-3 NC2184.2 287500ELSE NC2184.2 287600 GO TO UST-FAIL-GF-29-3. NC2184.2 287700 UST-DELETE-GF-29-3. NC2184.2 287800 PERFORM DE-LETE. NC2184.2 287900 GO TO UST-WRITE-GF-29-3. NC2184.2 288000 UST-FAIL-GF-29-3. NC2184.2 288100 PERFORM FAIL NC2184.2 288200 MOVE ID6-DU-2V0 TO COMPUTED-N NC2184.2 288300 MOVE 2 TO CORRECT-N. NC2184.2 288400 UST-WRITE-GF-29-3. NC2184.2 288500 PERFORM PRINT-DETAIL. NC2184.2 288600* NC2184.2 288700 UST-TEST-GF-29-4. NC2184.2 288800 ADD 1 TO REC-CT. NC2184.2 288900IF ID10-DU-2V0 = 4 NC2184.2 289000 PERFORM PASS NC2184.2 289100 GO TO UST-WRITE-GF-29-4 NC2184.2 289200ELSE NC2184.2 289300 GO TO UST-FAIL-GF-29-4. NC2184.2 289400 UST-DELETE-GF-29-4. NC2184.2 289500 PERFORM DE-LETE. NC2184.2 289600 GO TO UST-WRITE-GF-29-4. NC2184.2 289700 UST-FAIL-GF-29-4. NC2184.2 289800 PERFORM FAIL NC2184.2 289900 MOVE ID10-DU-2V0 TO COMPUTED-N NC2184.2 290000 MOVE 4 TO CORRECT-N. NC2184.2 290100 UST-WRITE-GF-29-4. NC2184.2 290200 PERFORM PRINT-DETAIL. NC2184.2 290300* NC2184.2 290400 UST-TEST-GF-29-5. NC2184.2 290500 ADD 1 TO REC-CT. NC2184.2 290600IF ID11-DU-2V0 = 1 NC2184.2 290700 PERFORM PASS NC2184.2 290800 GO TO UST-WRITE-GF-29-5 NC2184.2 290900ELSE NC2184.2 291000 GO TO UST-FAIL-GF-29-5. NC2184.2 291100 UST-DELETE-GF-29-5. NC2184.2 291200 PERFORM DE-LETE. NC2184.2 291300 GO TO UST-WRITE-GF-29-5. NC2184.2 291400 UST-FAIL-GF-29-5. NC2184.2 291500 PERFORM FAIL NC2184.2 291600 MOVE ID11-DU-2V0 TO COMPUTED-N NC2184.2 291700 MOVE 1 TO CORRECT-N. NC2184.2 291800 UST-WRITE-GF-29-5. NC2184.2 291900 PERFORM PRINT-DETAIL. NC2184.2 292000* NC2184.2 292100 UST-TEST-GF-29-6. NC2184.2 292200 ADD 1 TO REC-CT. NC2184.2 292300IF WRK-XN-00001-1 = SPACE NC2184.2 292400 PERFORM PASS NC2184.2 292500 GO TO UST-WRITE-GF-29-6 NC2184.2 292600ELSE NC2184.2 292700 GO TO UST-FAIL-GF-29-6. NC2184.2 292800 UST-DELETE-GF-29-6. NC2184.2 292900 PERFORM DE-LETE. NC2184.2 293000 GO TO UST-WRITE-GF-29-6. NC2184.2 293100 UST-FAIL-GF-29-6. NC2184.2 293200 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2184.2 293300 MOVE SPACE TO CORRECT-A. NC2184.2 293400 MOVE "NOT ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK NC2184.2 293500 PERFORM FAIL. NC2184.2 293600 UST-WRITE-GF-29-6. NC2184.2 293700 PERFORM PRINT-DETAIL. NC2184.2 293800* NC2184.2 293900 UST-TEST-GF-29-7. NC2184.2 294000 ADD 1 TO REC-CT. NC2184.2 294100IF WRK-XN-00001-2 = SPACE NC2184.2 294200 PERFORM PASS NC2184.2 294300 GO TO UST-WRITE-GF-29-7 NC2184.2 294400ELSE NC2184.2 294500 GO TO UST-FAIL-GF-29-7. NC2184.2 294600 UST-DELETE-GF-29-7. NC2184.2 294700 PERFORM DE-LETE. NC2184.2 294800 GO TO UST-WRITE-GF-29-7. NC2184.2 294900 UST-FAIL-GF-29-7. NC2184.2 295000 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2184.2 295100 MOVE SPACE TO CORRECT-A. NC2184.2 295200 MOVE "NOT ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK. NC2184.2 295300 PERFORM FAIL. NC2184.2 295400 UST-WRITE-GF-29-7. NC2184.2 295500 PERFORM PRINT-DETAIL. NC2184.2 295600* NC2184.2 295700 UST-TEST-GF-29-8. NC2184.2 295800 ADD 1 TO REC-CT. NC2184.2 295900IF WRK-XN-00001-3 = "Z" NC2184.2 296000 PERFORM PASS NC2184.2 296100 GO TO UST-WRITE-GF-29-8 NC2184.2 296200ELSE NC2184.2 296300 GO TO UST-FAIL-GF-29-8. NC2184.2 296400 UST-DELETE-GF-29-8. NC2184.2 296500 PERFORM DE-LETE. NC2184.2 296600 GO TO UST-WRITE-GF-29-8. NC2184.2 296700 UST-FAIL-GF-29-8. NC2184.2 296800 MOVE WRK-XN-00001-3 TO COMPUTED-A NC2184.2 296900 MOVE "Z" TO CORRECT-A. NC2184.2 297000 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2184.2 297100 PERFORM FAIL. NC2184.2 297200 UST-WRITE-GF-29-8. NC2184.2 297300 PERFORM PRINT-DETAIL. NC2184.2 297400* NC2184.2 297500 UST-INIT-GF-30. NC2184.2 297600* ===--> "NOT ON OVERFLOW" PHRASE <--=== NC2184.2 297700 MOVE "VI-138 6.26.4 GR17" TO ANSI-REFERENCE. NC2184.2 297800 MOVE "UST-TEST-GF-30" TO PAR-NAME. NC2184.2 297900 MOVE "OVERFLOW TEST" TO FEATURE. NC2184.2 298000 MOVE "ABCDEF" TO GRP1-XN-6. NC2184.2 298100 MOVE SPACES TO GRP4-XN-6. NC2184.2 298200 MOVE "****" TO ID5-XN-4. NC2184.2 298300 MOVE ZERO TO ID6-DU-2V0. NC2184.2 298400 MOVE 1 TO ID10-DU-2V0. NC2184.2 298500 MOVE ZERO TO ID11-DU-2V0. NC2184.2 298600 MOVE ZERO TO REC-CT. NC2184.2 298700 MOVE SPACE TO WRK-XN-00001-1. NC2184.2 298800 MOVE SPACE TO WRK-XN-00001-2. NC2184.2 298900 MOVE SPACE TO WRK-XN-00001-3. NC2184.2 299000* NC2184.2 299100 UST-TEST-GF-30-0. NC2184.2 299200 UNSTRING GRP1-XN-6 INTO ID4A-XXXXX ID4B-X NC2184.2 299300NOT ON OVERFLOW NC2184.2 299400 MOVE "A" TO WRK-XN-00001-1 NC2184.2 299500 MOVE "B" TO WRK-XN-00001-2 NC2184.2 299600 END-UNSTRING NC2184.2 299700 MOVE "Z" TO WRK-XN-00001-3. NC2184.2 299800 GO TO UST-TEST-GF-30-1. NC2184.2 299900 UST-DELETE-GF-30. NC2184.2 300000 PERFORM DE-LETE. NC2184.2 300100 PERFORM PRINT-DETAIL. NC2184.2 300200 GO TO CCVS-EXIT. NC2184.2 300300* NC2184.2 300400 UST-TEST-GF-30-1. NC2184.2 300500 MOVE 1 TO REC-CT. NC2184.2 300600IF GRP4-XN-6 = "ABCDEF" NC2184.2 300700 PERFORM PASS NC2184.2 300800 GO TO UST-WRITE-GF-30-1 NC2184.2 300900ELSE NC2184.2 301000 GO TO UST-FAIL-GF-30-1. NC2184.2 301100 UST-DELETE-GF-30-1. NC2184.2 301200 PERFORM DE-LETE. NC2184.2 301300 GO TO UST-WRITE-GF-30-1. NC2184.2 301400 UST-FAIL-GF-30-1. NC2184.2 301500 PERFORM FAIL NC2184.2 301600 MOVE GRP4-XN-6 TO COMPUTED-A NC2184.2 301700 MOVE "ABCDEF" TO CORRECT-A. NC2184.2 301800 UST-WRITE-GF-30-1. NC2184.2 301900 PERFORM PRINT-DETAIL. NC2184.2 302000* NC2184.2 302100 UST-TEST-GF-30-2. NC2184.2 302200 ADD 1 TO REC-CT. NC2184.2 302300IF WRK-XN-00001-1 = "A" NC2184.2 302400 PERFORM PASS NC2184.2 302500 GO TO UST-WRITE-GF-30-2 NC2184.2 302600ELSE NC2184.2 302700 GO TO UST-FAIL-GF-30-2. NC2184.2 302800 UST-DELETE-GF-30-2. NC2184.2 302900 PERFORM DE-LETE. NC2184.2 303000 GO TO UST-WRITE-GF-30-2. NC2184.2 303100 UST-FAIL-GF-30-2. NC2184.2 303200 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2184.2 303300 MOVE "A" TO CORRECT-A. NC2184.2 303400 MOVE "NOT ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK. NC2184.2 303500 PERFORM FAIL. NC2184.2 303600 UST-WRITE-GF-30-2. NC2184.2 303700 PERFORM PRINT-DETAIL. NC2184.2 303800* NC2184.2 303900 UST-TEST-GF-30-3. NC2184.2 304000 ADD 1 TO REC-CT. NC2184.2 304100IF WRK-XN-00001-2 = "B" NC2184.2 304200 PERFORM PASS NC2184.2 304300 GO TO UST-WRITE-GF-30-3 NC2184.2 304400ELSE NC2184.2 304500 GO TO UST-FAIL-GF-30-3. NC2184.2 304600 UST-DELETE-GF-30-3. NC2184.2 304700 PERFORM DE-LETE. NC2184.2 304800 GO TO UST-WRITE-GF-30-3. NC2184.2 304900 UST-FAIL-GF-30-3. NC2184.2 305000 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2184.2 305100 MOVE "B" TO CORRECT-A. NC2184.2 305200 MOVE "NOT ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK. NC2184.2 305300 PERFORM FAIL. NC2184.2 305400 UST-WRITE-GF-30-3. NC2184.2 305500 PERFORM PRINT-DETAIL. NC2184.2 305600* NC2184.2 305700 UST-TEST-GF-30-4. NC2184.2 305800 ADD 1 TO REC-CT. NC2184.2 305900IF WRK-XN-00001-3 = "Z" NC2184.2 306000 PERFORM PASS NC2184.2 306100 GO TO UST-WRITE-GF-30-4 NC2184.2 306200ELSE NC2184.2 306300 GO TO UST-FAIL-GF-30-4. NC2184.2 306400 UST-DELETE-GF-30-4. NC2184.2 306500 PERFORM DE-LETE. NC2184.2 306600 GO TO UST-WRITE-GF-30-4. NC2184.2 306700 UST-FAIL-GF-30-4. NC2184.2 306800 MOVE WRK-XN-00001-3 TO COMPUTED-A NC2184.2 306900 MOVE "Z" TO CORRECT-A. NC2184.2 307000 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2184.2 307100 PERFORM FAIL. NC2184.2 307200 UST-WRITE-GF-30-4. NC2184.2 307300 PERFORM PRINT-DETAIL. NC2184.2 307400* NC2184.2 307500 CCVS-EXIT SECTION. NC2184.2 307600 CCVS-999999. NC2184.2 307700 GO TO CLOSE-FILES. NC2184.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.307Bemerkung:
(vorverarbeitet am 2026-10-12)
¤
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.
