负载牵引器:COBOL -SAMPLE - TABLE -FIX LENGTH & SEARCH

来源：百度文库 编辑：偶看新闻 时间：2024/04/27 23:02:11
WORKING-STORAGE SECTION.                                     
01 WS-VARS.                                                  
   05 WS-ARRAY   PIC X(10) OCCURS 3 TIMES INDEXED BY WS-INDEX.
PROCEDURE DIVISION.                                          
00000-MAIN.                                                  
     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 > 3 
         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调用子程序 什么叫Sample Text 结束程序sample Create Sample Failed definition of sample pre-production sample sample playlists是什么意思 free sample翻译 翻译sample only Sample lnstall是什么软件 Sample Compliance什么意思？