斜车位停车技巧图解:COBOL-SAMPLE-GROUP TABLE

来源：百度文库 编辑：偶看新闻 时间：2024/04/29 11:20:18
01 WS-VARS.                                           
   03 WS-ARRAY OCCURS 3 TIMES INDEXED BY WS-INDEX.    
      05 WS-EMP-NO    PIC 9(5).                       
      05 WS-EMP-NAME  PIC X(20).                      
PROCEDURE DIVISION.                                   
00000-MAIN.                                           
     MOVE  11111  TO WS-EMP-NO(1)                     
     MOVE  22222  TO WS-EMP-NO(2)                     
     MOVE  33333  TO WS-EMP-NO(3)                     
     MOVE 'NAME1' TO WS-EMP-NAME(1)                   
     MOVE 'NAME2' TO WS-EMP-NAME(2)                   
     MOVE 'NAME3' TO WS-EMP-NAME(3)                   
     PERFORM VARYING  WS-INDEX FROM 1 BY 1 UNTIL      
         WS-INDEX > 3                                 
         DISPLAY WS-EMP-NO(WS-INDEX)                  
         DISPLAY WS-EMP-NAME(WS-INDEX)                
      END-PERFORM                                     
      SET WS-INDEX TO 1                               
      SEARCH  WS-ARRAY VARYING WS-INDEX               
        AT END DISPLAY 'END OF ARRAY'                 
        WHEN WS-EMP-NO(WS-INDEX)  =  11111            
          DISPLAY 'RECORD FOUND'                      
      END-SEARCH                                      
      STOP RUN.                                       
cobol教程 cobol编译器 Shall I with this what the group isn't what they do?什么意思 翻译：sAMPLE negotiation sample sample是什么意思 cobol 1~100 합 COBOL将来有用吗 求一份COBOL文档...... COBOL教程 下载地址 COBOL高手请进!!!! 求助COBOL编译器 cobol中小数显示 求COBOL谭浩强版教材 cobol调用子程序 group是什么意思？ group policy group policy 翻译group Safilo Group group是什么意思? group是什么？ 什么叫Sample Text 结束程序sample