InEqualsOut.cbl

以下是 InEqualsOut.cbl 中的代码:

InEqualsOut.cbl

              IDENTIFICATION DIVISION.
  
        program-id. pgm1.
                                       
              ENVIRONMENT DIVISION.                                             
                                            
              CONFIGURATION SECTION.                                            
                                           
              DATA DIVISION. 

                LINKAGE SECTION.

              01  IN-OUT-MSG.
                      05  WS-LL                      PIC S9(3) COMP VALUE +0.
                      05  WS-ZZ                      PIC S9(3) COMP VALUE +0.
                      05  WS-TRCD                    PIC X(5).          
         
                      05  INDX                       PIC 99.
                      05  WS-CUSTOMER     OCCURS 1 TO 8 TIMES 
                              DEPENDING ON INDX.
                              15  WS-CUST-NUMBER         PIC  X(5).
                              15  WS-CUST-NAME           PIC  X(20).
                      05  WS-FUNC-CODE               PIC  X(6).

                PROCEDURE DIVISION.    
.
相关任务
课程 1.1:选择资源适配器