multitbl.cbl

来自「用COBOL语言基于IBM大型机实现的一系列样例程序。」· CBL 代码 · 共 35 行

       IDENTIFICATION  DIVISION.                                 
       PROGRAM-ID      MULTITBL.                                 
       ENVIRONMENT     DIVISION.                                 
       DATA            DIVISION.                                 
       WORKING-STORAGE SECTION.                                  
       01   TABLE-NAME.                                          
         05 TABLE-ELEMENT OCCURS 10 TIMES.                       
           10 TABLE-EL1                       PIC ZZZ.           
           10 TABLE-EL2 REDEFINES TABLE-EL1   PIC XXX.           
       77   I                                 PIC 99.            
       77   J                                 PIC 99.            
       77   X                                 PIC 9.             
       77   R                                 PIC 99 VALUE ZERO. 
       PROCEDURE       DIVISION.                                 
           MOVE        1                      TO I               
           MOVE        1                      TO J               
           MOVE        0                      TO X               
           PERFORM     UNTIL                     I > 9           
             MOVE      I                      TO TABLE-EL1( 1 )  
             PERFORM   UNTIL                     J > 9           
               COMPUTE R = I * J                                 
               ADD     1                      TO J               
               MOVE    R                      TO TABLE-EL1( J )  
             END-PERFORM                                         
             IF        X = 0                  THEN                                
               MOVE    TABLE-EL1( 1 )         TO X                   
               MOVE    '  *'                  TO TABLE-EL2( 1 )  
               DISPLAY TABLE-NAME                                
               MOVE    X                      TO TABLE-EL1( 1 )  
             END-IF                                              
             DISPLAY   TABLE-NAME                               
             MOVE      1                      TO J                                    
             ADD       1                      TO I                                    
           END-PERFORM.                          
           STOP RUN.