中年危机 知乎:COBOL-SAMPLE-SEARCH

来源：百度文库 编辑：偶看新闻 时间：2024/04/30 08:44:04
WORKING-STORAGE SETION.01 WS-VARS.                                             
   05 WS-ARRAY-LEN PIC 99.                              
   05 WS-ARRAY   PIC X(10)                              
        OCCURS 1 TO 80 TIMES DEPENDING ON WS-ARRAY-LEN  
        INDEXED BY WS-INDEX.                            
PROCEDURE DIVISION.                                     
00000-MAIN.                                             
     MOVE 3 TO WS-ARRAY-LEN                             
     MOVE  'AAAAAAAAAA' TO WS-ARRAY(1)                  
     MOVE  'BBBBBBBBBB' TO WS-ARRAY(2)                  
     MOVE  'CCCCCCCCCC' TO WS-ARRAY(3)                  
     PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL         
         WS-INDEX > WS-ARRAY-LEN                        
         DISPLAY WS-ARRAY(WS-INDEX)                     
      END-PERFORM                                   
      SET WS-INDEX TO 1                             
      SEARCH  WS-ARRAY VARYING WS-INDEX             
        AT END DISPLAY 'END OF ARRAY'               
        WHEN WS-ARRAY(WS-INDEX) = 'AAAAAAAAAA'      
          DISPLAY 'RECORD FOUND'                    
      END-SEARCH                                    
      STOP RUN.                                     
cobol教程 cobol编译器 翻译：sAMPLE negotiation sample sample是什么意思 cobol 1~100 합 COBOL将来有用吗 求一份COBOL文档...... COBOL教程 下载地址 COBOL高手请进!!!! 求助COBOL编译器 cobol中小数显示 求COBOL谭浩强版教材 cobol调用子程序 Search纯音乐 J.search 什么叫Sample Text 结束程序sample Create Sample Failed definition of sample pre-production sample sample playlists是什么意思 free sample翻译 翻译sample only