以下是 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..