products/sources/formale sprachen/Cobol/Test-Suite/CLBRY/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: k3sca   Sprache: Cobol

000100 COPY-TEST-1.                                                     
000200     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
000300     MOVE     "COPY-TEST-1 " TO PAR-NAME.                        
000400     PERFORM  PASS.                                               
000500     MOVE     SPACE TO COMPUTED-A.                                
000600     MOVE     SPACE TO CORRECT-A.                                 
000700     MOVE     SPACE TO RE-MARK.                                   
000800     PERFORM  PRINT-DETAIL.                                       
000900 COPY-TEST-2.                                                     
001000     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
001100     MOVE     "COPY-TEST-2 " TO PAR-NAME.                        
001200     PERFORM  PASS.                                               
001300     MOVE     SPACE TO COMPUTED-A.                                
001400     MOVE     SPACE TO CORRECT-A.                                 
001500     MOVE     SPACE TO RE-MARK.                                   
001600     PERFORM  PRINT-DETAIL.                                       
001700 COPY-TEST-3.                                                     
001800     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
001900     MOVE     "COPY-TEST-3 " TO PAR-NAME.                        
002000     PERFORM  PASS.                                               
002100     MOVE     SPACE TO COMPUTED-A.                                
002200     MOVE     SPACE TO CORRECT-A.                                 
002300     MOVE     SPACE TO RE-MARK.                                   
002400     PERFORM  PRINT-DETAIL.                                       
002500 COPY-TEST-4.                                                     
002600     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
002700     MOVE     "COPY-TEST-4 " TO PAR-NAME.                        
002800     PERFORM  PASS.                                               
002900     MOVE     SPACE TO COMPUTED-A.                                
003000     MOVE     SPACE TO CORRECT-A.                                 
003100     MOVE     SPACE TO RE-MARK.                                   
003200     PERFORM  PRINT-DETAIL.                                       
003300 COPY-TEST-5.                                                     
003400     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
003500     MOVE     "COPY-TEST-5 " TO PAR-NAME.                        
003600     PERFORM  PASS.                                               
003700     MOVE     SPACE TO COMPUTED-A.                                
003800     MOVE     SPACE TO CORRECT-A.                                 
003900     MOVE     SPACE TO RE-MARK.                                   
004000     PERFORM  PRINT-DETAIL.                                       
004100 COPY-TEST-6.                                                     
004200     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
004300     MOVE     "COPY-TEST-6 " TO PAR-NAME.                        
004400     PERFORM  PASS.                                               
004500     MOVE     SPACE TO COMPUTED-A.                                
004600     MOVE     SPACE TO CORRECT-A.                                 
004700     MOVE     SPACE TO RE-MARK.                                   
004800     PERFORM  PRINT-DETAIL.                                       
004900 COPY-TEST-7.                                                     
005000     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
005100     MOVE     "COPY-TEST-7 " TO PAR-NAME.                        
005200     PERFORM  PASS.                                               
005300     MOVE     SPACE TO COMPUTED-A.                                
005400     MOVE     SPACE TO CORRECT-A.                                 
005500     MOVE     SPACE TO RE-MARK.                                   
005600     PERFORM  PRINT-DETAIL.                                       
005700 COPY-TEST-8.                                                     
005800     MOVE     "COPY-TEST-8 " TO PAR-NAME.                        
005900     PERFORM  PASS.                                               
006000     MOVE     SPACE TO COMPUTED-A.                                
006100     MOVE     SPACE TO CORRECT-A.                                 
006200     MOVE     SPACE TO RE-MARK.                                   
006300     PERFORM  PRINT-DETAIL.                                       
006400 COPY-TEST-9.                                                     
006500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
006600     MOVE     "COPY-TEST-9 " TO PAR-NAME.                        
006700     PERFORM  PASS.                                               
006800     MOVE     SPACE TO COMPUTED-A.                                
006900     MOVE     SPACE TO CORRECT-A.                                 
007000     MOVE     SPACE TO RE-MARK.                                   
007100     PERFORM  PRINT-DETAIL.                                       
007200 COPY-TEST-10.                                                    
007300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
007400     MOVE     "COPY-TEST-10 " TO PAR-NAME.                        
007500     PERFORM  PASS.                                               
007600     MOVE     SPACE TO COMPUTED-A.                                
007700     MOVE     SPACE TO CORRECT-A.                                 
007800     MOVE     SPACE TO RE-MARK.                                   
007900     PERFORM  PRINT-DETAIL.                                       
008000 COPY-TEST-11.                                                    
008100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
008200     MOVE     "COPY-TEST-11 " TO PAR-NAME.                        
008300     PERFORM  PASS.                                               
008400     MOVE     SPACE TO COMPUTED-A.                                
008500     MOVE     SPACE TO CORRECT-A.                                 
008600     MOVE     SPACE TO RE-MARK.                                   
008700     PERFORM  PRINT-DETAIL.                                       
008800 COPY-TEST-12.                                                    
008900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
009000     MOVE     "COPY-TEST-12 " TO PAR-NAME.                        
009100     PERFORM  PASS.                                               
009200     MOVE     SPACE TO COMPUTED-A.                                
009300     MOVE     SPACE TO CORRECT-A.                                 
009400     MOVE     SPACE TO RE-MARK.                                   
009500     PERFORM  PRINT-DETAIL.                                       
009600 COPY-TEST-13.                                                    
009700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
009800     MOVE     "COPY-TEST-13 " TO PAR-NAME.                        
009900     PERFORM  PASS.                                               
010000     MOVE     SPACE TO COMPUTED-A.                                
010100     MOVE     SPACE TO CORRECT-A.                                 
010200     MOVE     SPACE TO RE-MARK.                                   
010300     PERFORM  PRINT-DETAIL.                                       
010400 COPY-TEST-14.                                                    
010500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
010600     MOVE     "COPY-TEST-14 " TO PAR-NAME.                        
010700     PERFORM  PASS.                                               
010800     MOVE     SPACE TO COMPUTED-A.                                
010900     MOVE     SPACE TO CORRECT-A.                                 
011000     MOVE     SPACE TO RE-MARK.                                   
011100     PERFORM  PRINT-DETAIL.                                       
011200 COPY-TEST-15.                                                    
011300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
011400     MOVE     "COPY-TEST-15 " TO PAR-NAME.                        
011500     PERFORM  PASS.                                               
011600     MOVE     SPACE TO COMPUTED-A.                                
011700     MOVE     SPACE TO CORRECT-A.                                 
011800     MOVE     SPACE TO RE-MARK.                                   
011900     PERFORM  PRINT-DETAIL.                                       
012000 COPY-TEST-16.                                                    
012100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
012200     MOVE     "COPY-TEST-16 " TO PAR-NAME.                        
012300     PERFORM  PASS.                                               
012400     MOVE     SPACE TO COMPUTED-A.                                
012500     MOVE     SPACE TO CORRECT-A.                                 
012600     MOVE     SPACE TO RE-MARK.                                   
012700     PERFORM  PRINT-DETAIL.                                       
012800 COPY-TEST-17.                                                    
012900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
013000     MOVE     "COPY-TEST-17 " TO PAR-NAME.                        
013100     PERFORM  PASS.                                               
013200     MOVE     SPACE TO COMPUTED-A.                                
013300     MOVE     SPACE TO CORRECT-A.                                 
013400     MOVE     SPACE TO RE-MARK.                                   
013500     PERFORM  PRINT-DETAIL.                                       
013600 COPY-TEST-18.                                                    
013700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
013800     MOVE     "COPY-TEST-18 " TO PAR-NAME.                        
013900     PERFORM  PASS.                                               
014000     MOVE     SPACE TO COMPUTED-A.                                
014100     MOVE     SPACE TO CORRECT-A.                                 
014200     MOVE     SPACE TO RE-MARK.                                   
014300     PERFORM  PRINT-DETAIL.                                       
014400 COPY-TEST-19.                                                    
014500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
014600     MOVE     "COPY-TEST-19 " TO PAR-NAME.                        
014700     PERFORM  PASS.                                               
014800     MOVE     SPACE TO COMPUTED-A.                                
014900     MOVE     SPACE TO CORRECT-A.                                 
015000     MOVE     SPACE TO RE-MARK.                                   
015100     PERFORM  PRINT-DETAIL.                                       
015200 COPY-TEST-20.                                                    
015300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
015400     MOVE     "COPY-TEST-20 " TO PAR-NAME.                        
015500     PERFORM  PASS.                                               
015600     MOVE     SPACE TO COMPUTED-A.                                
015700     MOVE     SPACE TO CORRECT-A.                                 
015800     MOVE     SPACE TO RE-MARK.                                   
015900     PERFORM  PRINT-DETAIL.                                       
016000 COPY-TEST-21.                                                    
016100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
016200     MOVE     "COPY-TEST-21 " TO PAR-NAME.                        
016300     PERFORM  PASS.                                               
016400     MOVE     SPACE TO COMPUTED-A.                                
016500     MOVE     SPACE TO CORRECT-A.                                 
016600     MOVE     SPACE TO RE-MARK.                                   
016700     PERFORM  PRINT-DETAIL.                                       
016800 COPY-TEST-2I.                                                    
016900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
017000     MOVE     "COPY-TEST-22 " TO PAR-NAME.                        
017100     PERFORM  PASS.                                               
017200     MOVE     SPACE TO COMPUTED-A.                                
017300     MOVE     SPACE TO CORRECT-A.                                 
017400     MOVE     SPACE TO RE-MARK.                                   
017500     PERFORM  PRINT-DETAIL.                                       
017600 COPY-TEST-23.                                                    
017700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
017800     MOVE     "COPY-TEST-23 " TO PAR-NAME.                        
017900     PERFORM  PASS.                                               
018000     MOVE     SPACE TO COMPUTED-A.                                
018100     MOVE     SPACE TO CORRECT-A.                                 
018200     MOVE     SPACE TO RE-MARK.                                   
018300     PERFORM  PRINT-DETAIL.                                       
018400 COPY-TEST-24.                                                    
018500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
018600     MOVE     "COPY-TEST-24 " TO PAR-NAME.                        
018700     PERFORM  PASS.                                               
018800     MOVE     SPACE TO COMPUTED-A.                                
018900     MOVE     SPACE TO CORRECT-A.                                 
019000     MOVE     SPACE TO RE-MARK.                                   
019100     PERFORM  PRINT-DETAIL.                                       
019200 COPY-TEST-25.                                                    
019300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
019400     MOVE     "COPY-TEST-25 " TO PAR-NAME.                        
019500     PERFORM  PASS.                                               
019600     MOVE     SPACE TO COMPUTED-A.                                
019700     MOVE     SPACE TO CORRECT-A.                                 
019800     MOVE     SPACE TO RE-MARK.                                   
019900     PERFORM  PRINT-DETAIL.                                       
020000 COPY-TEST-26.                                                    
020100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
020200     MOVE     "COPY-TEST-26 " TO PAR-NAME.                        
020300     PERFORM  PASS.                                               
020400     MOVE     SPACE TO COMPUTED-A.                                
020500     MOVE     SPACE TO CORRECT-A.                                 
020600     MOVE     SPACE TO RE-MARK.                                   
020700     PERFORM  PRINT-DETAIL.                                       
020800 COPY-TEST-27.                                                    
020900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
021000     MOVE     "COPY-TEST-27 " TO PAR-NAME.                        
021100     PERFORM  PASS.                                               
021200     MOVE     SPACE TO COMPUTED-A.                                
021300     MOVE     SPACE TO CORRECT-A.                                 
021400     MOVE     SPACE TO RE-MARK.                                   
021500     PERFORM  PRINT-DETAIL.                                       
021600 COPY-TEST-28.                                                    
021700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
021800     MOVE     "COPY-TEST-28 " TO PAR-NAME.                        
021900     PERFORM  PASS.                                               
022000     MOVE     SPACE TO COMPUTED-A.                                
022100     MOVE     SPACE TO CORRECT-A.                                 
022200     MOVE     SPACE TO RE-MARK.                                   
022300     PERFORM  PRINT-DETAIL.                                       
022400 COPY-TEST-29.                                                    
022500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
022600     MOVE     "COPY-TEST-29 " TO PAR-NAME.                        
022700     PERFORM  PASS.                                               
022800     MOVE     SPACE TO COMPUTED-A.                                
022900     MOVE     SPACE TO CORRECT-A.                                 
023000     MOVE     SPACE TO RE-MARK.                                   
023100     PERFORM  PRINT-DETAIL.                                       
023200 COPY-TEST-30.                                                    
023300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
023400     MOVE     "COPY-TEST-30 " TO PAR-NAME.                        
023500     PERFORM  PASS.                                               
023600     MOVE     SPACE TO COMPUTED-A.                                
023700     MOVE     SPACE TO CORRECT-A.                                 
023800     MOVE     SPACE TO RE-MARK.                                   
023900     PERFORM  PRINT-DETAIL.                                       
024000 COPY-TEST-31.                                                    
024100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
024200     MOVE     "COPY-TEST-31 " TO PAR-NAME.                        
024300     PERFORM  PASS.                                               
024400     MOVE     SPACE TO COMPUTED-A.                                
024500     MOVE     SPACE TO CORRECT-A.                                 
024600     MOVE     SPACE TO RE-MARK.                                   
024700     PERFORM  PRINT-DETAIL.                                       
024800 COPY-TEST-32.                                                    
024900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
025000     MOVE     "COPY-TEST-32 " TO PAR-NAME.                        
025100     PERFORM  PASS.                                               
025200     MOVE     SPACE TO COMPUTED-A.                                
025300     MOVE     SPACE TO CORRECT-A.                                 
025400     MOVE     SPACE TO RE-MARK.                                   
025500     PERFORM  PRINT-DETAIL.                                       
025600 COPY-TEST-33.                                                    
025700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
025800     MOVE     "COPY-TEST-33 " TO PAR-NAME.                        
025900     PERFORM  PASS.                                               
026000     MOVE     SPACE TO COMPUTED-A.                                
026100     MOVE     SPACE TO CORRECT-A.                                 
026200     MOVE     SPACE TO RE-MARK.                                   
026300     PERFORM  PRINT-DETAIL.                                       
026400 COPY-TEST-34.                                                    
026500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
026600     MOVE     "COPY-TEST-34 " TO PAR-NAME.                        
026700     PERFORM  PASS.                                               
026800     MOVE     SPACE TO COMPUTED-A.                                
026900     MOVE     SPACE TO CORRECT-A.                                 
027000     MOVE     SPACE TO RE-MARK.                                   
027100     PERFORM  PRINT-DETAIL.                                       
027200 COPY-TEST-35.                                                    
027300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
027400     MOVE     "COPY-TEST-35 " TO PAR-NAME.                        
027500     PERFORM  PASS.                                               
027600     MOVE     SPACE TO COMPUTED-A.                                
027700     MOVE     SPACE TO CORRECT-A.                                 
027800     MOVE     SPACE TO RE-MARK.                                   
027900     PERFORM  PRINT-DETAIL.                                       
028000 COPY-TEST-36.                                                    
028100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
028200     MOVE     "COPY-TEST-36 " TO PAR-NAME.                        
028300     PERFORM  PASS.                                               
028400     MOVE     SPACE TO COMPUTED-A.                                
028500     MOVE     SPACE TO CORRECT-A.                                 
028600     MOVE     SPACE TO RE-MARK.                                   
028700     PERFORM  PRINT-DETAIL.                                       
028800 COPY-TEST-37.                                                    
028900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
029000     MOVE     "COPY-TEST-37 " TO PAR-NAME.                        
029100     PERFORM  PASS.                                               
029200     MOVE     SPACE TO COMPUTED-A.                                
029300     MOVE     SPACE TO CORRECT-A.                                 
029400     MOVE     SPACE TO RE-MARK.                                   
029500     PERFORM  PRINT-DETAIL.                                       
029600 COPY-TEST-38.                                                    
029700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
029800     MOVE     "COPY-TEST-38 " TO PAR-NAME.                        
029900     PERFORM  PASS.                                               
030000     MOVE     SPACE TO COMPUTED-A.                                
030100     MOVE     SPACE TO CORRECT-A.                                 
030200     MOVE     SPACE TO RE-MARK.                                   
030300     PERFORM  PRINT-DETAIL.                                       
030400 COPY-TEST-39.                                                    
030500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
030600     MOVE     "COPY-TEST-39 " TO PAR-NAME.                        
030700     PERFORM  PASS.                                               
030800     MOVE     SPACE TO COMPUTED-A.                                
030900     MOVE     SPACE TO CORRECT-A.                                 
031000     MOVE     SPACE TO RE-MARK.                                   
031100     PERFORM  PRINT-DETAIL.                                       
031200 COPY-TEST-40.                                                    
031300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
031400     MOVE     "COPY-TEST-40 " TO PAR-NAME.                        
031500     PERFORM  PASS.                                               
031600     MOVE     SPACE TO COMPUTED-A.                                
031700     MOVE     SPACE TO CORRECT-A.                                 
031800     MOVE     SPACE TO RE-MARK.                                   
031900     PERFORM  PRINT-DETAIL.                                       
032000 COPY-TEST-41.                                                    
032100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
032200     MOVE     "COPY-TEST-41 " TO PAR-NAME.                        
032300     PERFORM  PASS.                                               
032400     MOVE     SPACE TO COMPUTED-A.                                
032500     MOVE     SPACE TO CORRECT-A.                                 
032600     MOVE     SPACE TO RE-MARK.                                   
032700     PERFORM  PRINT-DETAIL.                                       
032800 COPY-TEST-42.                                                    
032900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
033000     MOVE     "COPY-TEST-42 " TO PAR-NAME.                        
033100     PERFORM  PASS.                                               
033200     MOVE     SPACE TO COMPUTED-A.                                
033300     MOVE     SPACE TO CORRECT-A.                                 
033400     MOVE     SPACE TO RE-MARK.                                   
033500     PERFORM  PRINT-DETAIL.                                       
033600 COPY-TEST-43.                                                    
033700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
033800     MOVE     "COPY-TEST-43 " TO PAR-NAME.                        
033900     PERFORM  PASS.                                               
034000     MOVE     SPACE TO COMPUTED-A.                                
034100     MOVE     SPACE TO CORRECT-A.                                 
034200     MOVE     SPACE TO RE-MARK.                                   
034300     PERFORM  PRINT-DETAIL.                                       
034400 COPY-TEST-44.                                                    
034500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
034600     MOVE     "COPY-TEST-44 " TO PAR-NAME.                        
034700     PERFORM  PASS.                                               
034800     MOVE     SPACE TO COMPUTED-A.                                
034900     MOVE     SPACE TO CORRECT-A.                                 
035000     MOVE     SPACE TO RE-MARK.                                   
035100     PERFORM  PRINT-DETAIL.                                       
035200 COPY-TEST-45.                                                    
035300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
035400     MOVE     "COPY-TEST-45 " TO PAR-NAME.                        
035500     PERFORM  PASS.                                               
035600     MOVE     SPACE TO COMPUTED-A.                                
035700     MOVE     SPACE TO CORRECT-A.                                 
035800     MOVE     SPACE TO RE-MARK.                                   
035900     PERFORM  PRINT-DETAIL.                                       
036000 COPY-TEST-46.                                                    
036100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
036200     MOVE     "COPY-TEST-46 " TO PAR-NAME.                        
036300     PERFORM  PASS.                                               
036400     MOVE     SPACE TO COMPUTED-A.                                
036500     MOVE     SPACE TO CORRECT-A.                                 
036600     MOVE     SPACE TO RE-MARK.                                   
036700     PERFORM  PRINT-DETAIL.                                       
036800 COPY-TEST-47.                                                    
036900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
037000     MOVE     "COPY-TEST-47 " TO PAR-NAME.                        
037100     PERFORM  PASS.                                               
037200     MOVE     SPACE TO COMPUTED-A.                                
037300     MOVE     SPACE TO CORRECT-A.                                 
037400     MOVE     SPACE TO RE-MARK.                                   
037500     PERFORM  PRINT-DETAIL.                                       
037600 COPY-TEST-48.                                                    
037700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
037800     MOVE     "COPY-TEST-48 " TO PAR-NAME.                        
037900     PERFORM  PASS.                                               
038000     MOVE     SPACE TO COMPUTED-A.                                
038100     MOVE     SPACE TO CORRECT-A.                                 
038200     MOVE     SPACE TO RE-MARK.                                   
038300     PERFORM  PRINT-DETAIL.                                       
038400 COPY-TEST-49.                                                    
038500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
038600     MOVE     "COPY-TEST-49 " TO PAR-NAME.                        
038700     PERFORM  PASS.                                               
038800     MOVE     SPACE TO COMPUTED-A.                                
038900     MOVE     SPACE TO CORRECT-A.                                 
039000     MOVE     SPACE TO RE-MARK.                                   
039100     PERFORM  PRINT-DETAIL.                                       
039200 COPY-TEST-50.                                                    
039300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
039400     MOVE     "COPY-TEST-50 " TO PAR-NAME.                        
039500     PERFORM  PASS.                                               
039600     MOVE     SPACE TO COMPUTED-A.                                
039700     MOVE     SPACE TO CORRECT-A.                                 
039800     MOVE     SPACE TO RE-MARK.                                   
039900     PERFORM  PRINT-DETAIL.                                       
040000 COPY-TEST-51.                                                    
040100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
040200     MOVE     "COPY-TEST-51 " TO PAR-NAME.                        
040300     PERFORM  PASS.                                               
040400     MOVE     SPACE TO COMPUTED-A.                                
040500     MOVE     SPACE TO CORRECT-A.                                 
040600     MOVE     SPACE TO RE-MARK.                                   
040700     PERFORM  PRINT-DETAIL.                                       
040800 COPY-TEST-52.                                                    
040900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
041000     MOVE     "COPY-TEST-52 " TO PAR-NAME.                        
041100     PERFORM  PASS.                                               
041200     MOVE     SPACE TO COMPUTED-A.                                
041300     MOVE     SPACE TO CORRECT-A.                                 
041400     MOVE     SPACE TO RE-MARK.                                   
041500     PERFORM  PRINT-DETAIL.                                       
041600 COPY-TEST-53.                                                    
041700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
041800     MOVE     "COPY-TEST-53 " TO PAR-NAME.                        
041900     PERFORM  PASS.                                               
042000     MOVE     SPACE TO COMPUTED-A.                                
042100     MOVE     SPACE TO CORRECT-A.                                 
042200     MOVE     SPACE TO RE-MARK.                                   
042300     PERFORM  PRINT-DETAIL.                                       
042400 COPY-TEST-54.                                                    
042500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
042600     MOVE     "COPY-TEST-54 " TO PAR-NAME.                        
042700     PERFORM  PASS.                                               
042800     MOVE     SPACE TO COMPUTED-A.                                
042900     MOVE     SPACE TO CORRECT-A.                                 
043000     MOVE     SPACE TO RE-MARK.                                   
043100     PERFORM  PRINT-DETAIL.                                       
043200 COPY-TEST-55.                                                    
043300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
043400     MOVE     "COPY-TEST-55 " TO PAR-NAME.                        
043500     PERFORM  PASS.                                               
043600     MOVE     SPACE TO COMPUTED-A.                                
043700     MOVE     SPACE TO CORRECT-A.                                 
043800     MOVE     SPACE TO RE-MARK.                                   
043900     PERFORM  PRINT-DETAIL.                                       
044000 COPY-TEST-56.                                                    
044100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
044200     MOVE     "COPY-TEST-56 " TO PAR-NAME.                        
044300     PERFORM  PASS.                                               
044400     MOVE     SPACE TO COMPUTED-A.                                
044500     MOVE     SPACE TO CORRECT-A.                                 
044600     MOVE     SPACE TO RE-MARK.                                   
044700     PERFORM  PRINT-DETAIL.                                       
044800 COPY-TEST-57.                                                    
044900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
045000     MOVE     "COPY-TEST-57 " TO PAR-NAME.                        
045100     PERFORM  PASS.                                               
045200     MOVE     SPACE TO COMPUTED-A.                                
045300     MOVE     SPACE TO CORRECT-A.                                 
045400     MOVE     SPACE TO RE-MARK.                                   
045500     PERFORM  PRINT-DETAIL.                                       
045600 COPY-TEST-58.                                                    
045700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
045800     MOVE     "COPY-TEST-58 " TO PAR-NAME.                        
045900     PERFORM  PASS.                                               
046000     MOVE     SPACE TO COMPUTED-A.                                
046100     MOVE     SPACE TO CORRECT-A.                                 
046200     MOVE     SPACE TO RE-MARK.                                   
046300     PERFORM  PRINT-DETAIL.                                       
046400 COPY-TEST-59.                                                    
046500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
046600     MOVE     "COPY-TEST-59 " TO PAR-NAME.                        
046700     PERFORM  PASS.                                               
046800     MOVE     SPACE TO COMPUTED-A.                                
046900     MOVE     SPACE TO CORRECT-A.                                 
047000     MOVE     SPACE TO RE-MARK.                                   
047100     PERFORM  PRINT-DETAIL.                                       
047200 COPY-TEST-60.                                                    
047300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
047400     MOVE     "COPY-TEST-60 " TO PAR-NAME.                        
047500     PERFORM  PASS.                                               
047600     MOVE     SPACE TO COMPUTED-A.                                
047700     MOVE     SPACE TO CORRECT-A.                                 
047800     MOVE     SPACE TO RE-MARK.                                   
047900     PERFORM  PRINT-DETAIL.                                       
048000 COPY-TEST-61.                                                    
048100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
048200     MOVE     "COPY-TEST-61 " TO PAR-NAME.                        
048300     PERFORM  PASS.                                               
048400     MOVE     SPACE TO COMPUTED-A.                                
048500     MOVE     SPACE TO CORRECT-A.                                 
048600     MOVE     SPACE TO RE-MARK.                                   
048700     PERFORM  PRINT-DETAIL.                                       
048800 COPY-TEST-62.                                                    
048900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
049000     MOVE     "COPY-TEST-62 " TO PAR-NAME.                        
049100     PERFORM  PASS.                                               
049200     MOVE     SPACE TO COMPUTED-A.                                
049300     MOVE     SPACE TO CORRECT-A.                                 
049400     MOVE     SPACE TO RE-MARK.                                   
049500     PERFORM  PRINT-DETAIL.                                       
049600 COPY-TEST-63.                                                    
049700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
049800     MOVE     "COPY-TEST-63 " TO PAR-NAME.                        
049900     PERFORM  PASS.                                               
050000     MOVE     SPACE TO COMPUTED-A.                                
050100     MOVE     SPACE TO CORRECT-A.                                 
050200     MOVE     SPACE TO RE-MARK.                                   
050300     PERFORM  PRINT-DETAIL.                                       
050400 COPY-TEST-64.                                                    
050500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
050600     MOVE     "COPY-TEST-64 " TO PAR-NAME.                        
050700     PERFORM  PASS.                                               
050800     MOVE     SPACE TO COMPUTED-A.                                
050900     MOVE     SPACE TO CORRECT-A.                                 
051000     MOVE     SPACE TO RE-MARK.                                   
051100     PERFORM  PRINT-DETAIL.                                       
051200 COPY-TEST-65.                                                    
051300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
051400     MOVE     "COPY-TEST-65 " TO PAR-NAME.                        
051500     PERFORM  PASS.                                               
051600     MOVE     SPACE TO COMPUTED-A.                                
051700     MOVE     SPACE TO CORRECT-A.                                 
051800     MOVE     SPACE TO RE-MARK.                                   
051900     PERFORM  PRINT-DETAIL.                                       
052000 COPY-TEST-66.                                                    
052100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
052200     MOVE     "COPY-TEST-66 " TO PAR-NAME.                        
052300     PERFORM  PASS.                                               
052400     MOVE     SPACE TO COMPUTED-A.                                
052500     MOVE     SPACE TO CORRECT-A.                                 
052600     MOVE     SPACE TO RE-MARK.                                   
052700     PERFORM  PRINT-DETAIL.                                       
052800 COPY-TEST-67.                                                    
052900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
053000     MOVE     "COPY-TEST-67 " TO PAR-NAME.                        
053100     PERFORM  PASS.                                               
053200     MOVE     SPACE TO COMPUTED-A.                                
053300     MOVE     SPACE TO CORRECT-A.                                 
053400     MOVE     SPACE TO RE-MARK.                                   
053500     PERFORM  PRINT-DETAIL.                                       
053600 COPY-TEST-68.                                                    
053700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
053800     MOVE     "COPY-TEST-68 " TO PAR-NAME.                        
053900     PERFORM  PASS.                                               
054000     MOVE     SPACE TO COMPUTED-A.                                
054100     MOVE     SPACE TO CORRECT-A.                                 
054200     MOVE     SPACE TO RE-MARK.                                   
054300     PERFORM  PRINT-DETAIL.                                       
054400 COPY-TEST-69.                                                    
054500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
054600     MOVE     "COPY-TEST-69 " TO PAR-NAME.                        
054700     PERFORM  PASS.                                               
054800     MOVE     SPACE TO COMPUTED-A.                                
054900     MOVE     SPACE TO CORRECT-A.                                 
055000     MOVE     SPACE TO RE-MARK.                                   
055100     PERFORM  PRINT-DETAIL.                                       
055200 COPY-TEST-70.                                                    
055300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
055400     MOVE     "COPY-TEST-70 " TO PAR-NAME.                        
055500     PERFORM  PASS.                                               
055600     MOVE     SPACE TO COMPUTED-A.                                
055700     MOVE     SPACE TO CORRECT-A.                                 
055800     MOVE     SPACE TO RE-MARK.                                   
055900     PERFORM  PRINT-DETAIL.                                       
056000 COPY-TEST-71.                                                    
056100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
056200     MOVE     "COPY-TEST-71 " TO PAR-NAME.                        
056300     PERFORM  PASS.                                               
056400     MOVE     SPACE TO COMPUTED-A.                                
056500     MOVE     SPACE TO CORRECT-A.                                 
056600     MOVE     SPACE TO RE-MARK.                                   
056700     PERFORM  PRINT-DETAIL.                                       
056800 COPY-TEST-72.                                                    
056900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
057000     MOVE     "COPY-TEST-72 " TO PAR-NAME.                        
057100     PERFORM  PASS.                                               
057200     MOVE     SPACE TO COMPUTED-A.                                
057300     MOVE     SPACE TO CORRECT-A.                                 
057400     MOVE     SPACE TO RE-MARK.                                   
057500     PERFORM  PRINT-DETAIL.                                       
057600 COPY-TEST-73.                                                    
057700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
057800     MOVE     "COPY-TEST-73 " TO PAR-NAME.                        
057900     PERFORM  PASS.                                               
058000     MOVE     SPACE TO COMPUTED-A.                                
058100     MOVE     SPACE TO CORRECT-A.                                 
058200     MOVE     SPACE TO RE-MARK.                                   
058300     PERFORM  PRINT-DETAIL.                                       
058400 COPY-TEST-74.                                                    
058500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
058600     MOVE     "COPY-TEST-74 " TO PAR-NAME.                        
058700     PERFORM  PASS.                                               
058800     MOVE     SPACE TO COMPUTED-A.                                
058900     MOVE     SPACE TO CORRECT-A.                                 
059000     MOVE     SPACE TO RE-MARK.                                   
059100     PERFORM  PRINT-DETAIL.                                       
059200 COPY-TEST-75.                                                    
059300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
059400     MOVE     "COPY-TEST-75 " TO PAR-NAME.                        
059500     PERFORM  PASS.                                               
059600     MOVE     SPACE TO COMPUTED-A.                                
059700     MOVE     SPACE TO CORRECT-A.                                 
059800     MOVE     SPACE TO RE-MARK.                                   
059900     PERFORM  PRINT-DETAIL.                                       
060000 COPY-TEST-76.                                                    
060100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
060200     MOVE     "COPY-TEST-76 " TO PAR-NAME.                        
060300     PERFORM  PASS.                                               
060400     MOVE     SPACE TO COMPUTED-A.                                
060500     MOVE     SPACE TO CORRECT-A.                                 
060600     MOVE     SPACE TO RE-MARK.                                   
060700     PERFORM  PRINT-DETAIL.                                       
060800 COPY-TEST-77.                                                    
060900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
061000     MOVE     "COPY-TEST-77 " TO PAR-NAME.                        
061100     PERFORM  PASS.                                               
061200     MOVE     SPACE TO COMPUTED-A.                                
061300     MOVE     SPACE TO CORRECT-A.                                 
061400     MOVE     SPACE TO RE-MARK.                                   
061500     PERFORM  PRINT-DETAIL.                                       
061600 COPY-TEST-78.                                                    
061700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
061800     MOVE     "COPY-TEST-78 " TO PAR-NAME.                        
061900     MOVE     SPACE TO COMPUTED-A.                                
062000     MOVE     SPACE TO CORRECT-A.                                 
062100     PERFORM  PASS.                                               
062200     MOVE     SPACE TO RE-MARK.                                   
062300     PERFORM  PRINT-DETAIL.                                       
062400 COPY-TEST-79.                                                    
062500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
062600     MOVE     "COPY-TEST-79 " TO PAR-NAME.                        
062700     PERFORM  PASS.                                               
062800     MOVE     SPACE TO COMPUTED-A.                                
062900     MOVE     SPACE TO CORRECT-A.                                 
063000     MOVE     SPACE TO RE-MARK.                                   
063100     PERFORM  PRINT-DETAIL.                                       
063200 COPY-TEST-80.                                                    
063300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
063400     MOVE     "COPY-TEST-80 " TO PAR-NAME.                        
063500     PERFORM  PASS.                                               
063600     MOVE     SPACE TO COMPUTED-A.                                
063700     MOVE     SPACE TO CORRECT-A.                                 
063800     MOVE     SPACE TO RE-MARK.                                   
063900     PERFORM  PRINT-DETAIL.                                       
064000 COPY-TEST-81.                                                    
064100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
064200     MOVE     "COPY-TEST-81 " TO PAR-NAME.                        
064300     PERFORM  PASS.                                               
064400     MOVE     SPACE TO COMPUTED-A.                                
064500     MOVE     SPACE TO CORRECT-A.                                 
064600     MOVE     SPACE TO RE-MARK.                                   
064700     PERFORM  PRINT-DETAIL.                                       
064800 COPY-TEST-82.                                                    
064900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
065000     MOVE     "COPY-TEST-82 " TO PAR-NAME.                        
065100     PERFORM  PASS.                                               
065200     MOVE     SPACE TO COMPUTED-A.                                
065300     MOVE     SPACE TO CORRECT-A.                                 
065400     MOVE     SPACE TO RE-MARK.                                   
065500     PERFORM  PRINT-DETAIL.                                       
065600 COPY-TEST-83.                                                    
065700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
065800     MOVE     "COPY-TEST-83 " TO PAR-NAME.                        
065900     PERFORM  PASS.                                               
066000     MOVE     SPACE TO COMPUTED-A.                                
066100     MOVE     SPACE TO CORRECT-A.                                 
066200     MOVE     SPACE TO RE-MARK.                                   
066300     PERFORM  PRINT-DETAIL.                                       
066400 COPY-TEST-84.                                                    
066500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
066600     MOVE     "COPY-TEST-84 " TO PAR-NAME.                        
066700     PERFORM  PASS.                                               
066800     MOVE     SPACE TO COMPUTED-A.                                
066900     MOVE     SPACE TO CORRECT-A.                                 
067000     MOVE     SPACE TO RE-MARK.                                   
067100     PERFORM  PRINT-DETAIL.                                       
067200 COPY-TEST-85.                                                    
067300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
067400     MOVE     "COPY-TEST-85 " TO PAR-NAME.                        
067500     PERFORM  PASS.                                               
067600     MOVE     SPACE TO COMPUTED-A.                                
067700     MOVE     SPACE TO CORRECT-A.                                 
067800     MOVE     SPACE TO RE-MARK.                                   
067900     PERFORM  PRINT-DETAIL.                                       
068000 COPY-TEST-86.                                                    
068100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
068200     MOVE     "COPY-TEST-86 " TO PAR-NAME.                        
068300     PERFORM  PASS.                                               
068400     MOVE     SPACE TO COMPUTED-A.                                
068500     MOVE     SPACE TO CORRECT-A.                                 
068600     MOVE     SPACE TO RE-MARK.                                   
068700     PERFORM  PRINT-DETAIL.                                       
068800 COPY-TEST-87.                                                    
068900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
069000     MOVE     "COPY-TEST-87 " TO PAR-NAME.                        
069100     PERFORM  PASS.                                               
069200     MOVE     SPACE TO COMPUTED-A.                                
069300     MOVE     SPACE TO CORRECT-A.                                 
069400     MOVE     SPACE TO RE-MARK.                                   
069500     PERFORM  PRINT-DETAIL.                                       
069600 COPY-TEST-88.                                                    
069700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
069800     MOVE     "COPY-TEST-88 " TO PAR-NAME.                        
069900     PERFORM  PASS.                                               
070000     MOVE     SPACE TO COMPUTED-A.                                
070100     MOVE     SPACE TO CORRECT-A.                                 
070200     MOVE     SPACE TO RE-MARK.                                   
070300     PERFORM  PRINT-DETAIL.                                       
070400 COPY-TEST-89.                                                    
070500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
070600     MOVE     "COPY-TEST-89 " TO PAR-NAME.                        
070700     PERFORM  PASS.                                               
070800     MOVE     SPACE TO COMPUTED-A.                                
070900     MOVE     SPACE TO CORRECT-A.                                 
071000     MOVE     SPACE TO RE-MARK.                                   
071100     PERFORM  PRINT-DETAIL.                                       
071200 COPY-TEST-90.                                                    
071300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
071400     MOVE     "COPY-TEST-90 " TO PAR-NAME.                        
071500     PERFORM  PASS.                                               
071600     MOVE     SPACE TO COMPUTED-A.                                
071700     MOVE     SPACE TO CORRECT-A.                                 
071800     MOVE     SPACE TO RE-MARK.                                   
071900     PERFORM  PRINT-DETAIL.                                       
072000 COPY-TEST-91.                                                    
072100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
072200     MOVE     "COPY-TEST-91 " TO PAR-NAME.                        
072300     PERFORM  PASS.                                               
072400     MOVE     SPACE TO COMPUTED-A.                                
072500     MOVE     SPACE TO CORRECT-A.                                 
072600     MOVE     SPACE TO RE-MARK.                                   
072700     PERFORM  PRINT-DETAIL.                                       
072800 COPY-TEST-92.                                                    
072900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
073000     MOVE     "COPY-TEST-92 " TO PAR-NAME.                        
073100     PERFORM  PASS.                                               
073200     MOVE     SPACE TO COMPUTED-A.                                
073300     MOVE     SPACE TO CORRECT-A.                                 
073400     MOVE     SPACE TO RE-MARK.                                   
073500     PERFORM  PRINT-DETAIL.                                       
073600 COPY-TEST-93.                                                    
073700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
073800     MOVE     "COPY-TEST-93 " TO PAR-NAME.                        
073900     PERFORM  PASS.                                               
074000     MOVE     SPACE TO COMPUTED-A.                                
074100     MOVE     SPACE TO CORRECT-A.                                 
074200     MOVE     SPACE TO RE-MARK.                                   
074300     PERFORM  PRINT-DETAIL.                                       
074400 COPY-TEST-94.                                                    
074500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
074600     MOVE     "COPY-TEST-94 " TO PAR-NAME.                        
074700     PERFORM  PASS.                                               
074800     MOVE     SPACE TO COMPUTED-A.                                
074900     MOVE     SPACE TO CORRECT-A.                                 
075000     MOVE     SPACE TO RE-MARK.                                   
075100     PERFORM  PRINT-DETAIL.                                       
075200 COPY-TEST-95.                                                    
075300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
075400     MOVE     "COPY-TEST-95 " TO PAR-NAME.                        
075500     PERFORM  PASS.                                               
075600     MOVE     SPACE TO COMPUTED-A.                                
075700     MOVE     SPACE TO CORRECT-A.                                 
075800     MOVE     SPACE TO RE-MARK.                                   
075900     PERFORM  PRINT-DETAIL.                                       
076000 COPY-TEST-96.                                                    
076100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
076200     MOVE     "COPY-TEST-96 " TO PAR-NAME.                        
076300     PERFORM  PASS.                                               
076400     MOVE     SPACE TO COMPUTED-A.                                
076500     MOVE     SPACE TO CORRECT-A.                                 
076600     MOVE     SPACE TO RE-MARK.                                   
076700     PERFORM  PRINT-DETAIL.                                       
076800 COPY-TEST-97.                                                    
076900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
077000     MOVE     "COPY-TEST-97 " TO PAR-NAME.                        
077100     PERFORM  PASS.                                               
077200     MOVE     SPACE TO COMPUTED-A.                                
077300     MOVE     SPACE TO CORRECT-A.                                 
077400     MOVE     SPACE TO RE-MARK.                                   
077500     PERFORM  PRINT-DETAIL.                                       
077600 COPY-TEST-98.                                                    
077700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
077800     MOVE     "COPY-TEST-98 " TO PAR-NAME.                        
077900     PERFORM  PASS.                                               
078000     MOVE     SPACE TO COMPUTED-A.                                
078100     MOVE     SPACE TO CORRECT-A.                                 
078200     MOVE     SPACE TO RE-MARK.                                   
078300     PERFORM  PRINT-DETAIL.                                       
078400 COPY-TEST-99.                                                    
078500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
078600     MOVE     "COPY-TEST-99 " TO PAR-NAME.                        
078700     PERFORM  PASS.                                               
078800     MOVE     SPACE TO COMPUTED-A.                                
078900     MOVE     SPACE TO CORRECT-A.                                 
079000     MOVE     SPACE TO RE-MARK.                                   
079100     PERFORM  PRINT-DETAIL.                                       
079200 COPY-TEST-100.                                                   
079300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
079400     MOVE     "COPY-TEST-100" TO PAR-NAME.                        
079500     PERFORM  PASS.                                               
079600     MOVE     SPACE TO COMPUTED-A.                                
079700     MOVE     SPACE TO CORRECT-A.                                 
079800     MOVE     SPACE TO RE-MARK.                                   
079900     PERFORM  PRINT-DETAIL.                                       
080000 COPY-TEST-101.                                                   
080100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
080200     MOVE     "COPY-TEST-101" TO PAR-NAME.                        
080300     PERFORM  PASS.                                               
080400     MOVE     SPACE TO COMPUTED-A.                                
080500     MOVE     SPACE TO CORRECT-A.                                 
080600     MOVE     SPACE TO RE-MARK.                                   
080700     PERFORM  PRINT-DETAIL.                                       
080800 COPY-TEST-102.                                                   
080900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
081000     MOVE     "COPY-TEST-102" TO PAR-NAME.                        
081100     PERFORM  PASS.                                               
081200     MOVE     SPACE TO COMPUTED-A.                                
081300     MOVE     SPACE TO CORRECT-A.                                 
081400     MOVE     SPACE TO RE-MARK.                                   
081500     PERFORM  PRINT-DETAIL.                                       
081600 COPY-TEST-103.                                                   
081700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
081800     MOVE     "COPY-TEST-103" TO PAR-NAME.                        
081900     PERFORM  PASS.                                               
082000     MOVE     SPACE TO COMPUTED-A.                                
082100     MOVE     SPACE TO CORRECT-A.                                 
082200     MOVE     SPACE TO RE-MARK.                                   
082300     PERFORM  PRINT-DETAIL.                                       
082400 COPY-TEST-104.                                                   
082500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
082600     MOVE     "COPY-TEST-104" TO PAR-NAME.                        
082700     PERFORM  PASS.                                               
082800     MOVE     SPACE TO COMPUTED-A.                                
082900     MOVE     SPACE TO CORRECT-A.                                 
083000     MOVE     SPACE TO RE-MARK.                                   
083100     PERFORM  PRINT-DETAIL.                                       
083200 COPY-TEST-105.                                                   
083300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
083400     MOVE     "COPY-TEST-105" TO PAR-NAME.                        
083500     PERFORM  PASS.                                               
083600     MOVE     SPACE TO COMPUTED-A.                                
083700     MOVE     SPACE TO CORRECT-A.                                 
083800     MOVE     SPACE TO RE-MARK.                                   
083900     PERFORM  PRINT-DETAIL.                                       
084000 COPY-TEST-106.                                                   
084100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
084200     MOVE     "COPY-TEST-106" TO PAR-NAME.                        
084300     PERFORM  PASS.                                               
084400     MOVE     SPACE TO COMPUTED-A.                                
084500     MOVE     SPACE TO CORRECT-A.                                 
084600     MOVE     SPACE TO RE-MARK.                                   
084700     PERFORM  PRINT-DETAIL.                                       
084800 COPY-TEST-107.                                                   
084900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
085000     MOVE     "COPY-TEST-107" TO PAR-NAME.                        
085100     PERFORM  PASS.                                               
085200     MOVE     SPACE TO COMPUTED-A.                                
085300     MOVE     SPACE TO CORRECT-A.                                 
085400     MOVE     SPACE TO RE-MARK.                                   
085500     PERFORM  PRINT-DETAIL.                                       
085600 COPY-TEST-108.                                                   
085700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
085800     MOVE     "COPY-TEST-108" TO PAR-NAME.                        
085900     PERFORM  PASS.                                               
086000     MOVE     SPACE TO COMPUTED-A.                                
086100     MOVE     SPACE TO CORRECT-A.                                 
086200     MOVE     SPACE TO RE-MARK.                                   
086300     PERFORM  PRINT-DETAIL.                                       
086400 COPY-TEST-109.                                                   
086500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
086600     MOVE     "COPY-TEST-109" TO PAR-NAME.                        
086700     PERFORM  PASS.                                               
086800     MOVE     SPACE TO COMPUTED-A.                                
086900     MOVE     SPACE TO CORRECT-A.                                 
087000     MOVE     SPACE TO RE-MARK.                                   
087100     PERFORM  PRINT-DETAIL.                                       
087200 COPY-TEST-110.                                                   
087300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
087400     MOVE     "COPY-TEST-110" TO PAR-NAME.                        
087500     PERFORM  PASS.                                               
087600     MOVE     SPACE TO COMPUTED-A.                                
087700     MOVE     SPACE TO CORRECT-A.                                 
087800     MOVE     SPACE TO RE-MARK.                                   
087900     PERFORM  PRINT-DETAIL.                                       
088000 COPY-TEST-111.                                                   
088100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
088200     MOVE     "COPY-TEST-111" TO PAR-NAME.                        
088300     PERFORM  PASS.                                               
088400     MOVE     SPACE TO COMPUTED-A.                                
088500     MOVE     SPACE TO CORRECT-A.                                 
088600     MOVE     SPACE TO RE-MARK.                                   
088700     PERFORM  PRINT-DETAIL.                                       
088800 COPY-TEST-112.                                                   
088900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
089000     MOVE     "COPY-TEST-112" TO PAR-NAME.                        
089100     PERFORM  PASS.                                               
089200     MOVE     SPACE TO COMPUTED-A.                                
089300     MOVE     SPACE TO CORRECT-A.                                 
089400     MOVE     SPACE TO RE-MARK.                                   
089500     PERFORM  PRINT-DETAIL.                                       
089600 COPY-TEST-113.                                                   
089700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
--> --------------------

--> maximum size reached

--> --------------------

¤ Dauer der Verarbeitung: 0.95 Sekunden  (vorverarbeitet)  ¤



Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




Haftungshinweis

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


Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff