*> ============================================================
      *> main-88level : 88-level条件判定 (88-Level Condition Test)
      *> Input : FILE-IN (INPUT.DAT: 条件测试数据)
      *> Output: FILE-OUT (OUTPUT.DAT: 判定结果)
      *> Coverage: B-N004, B-R001
      *> ============================================================
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Test88Level.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE-IN  ASSIGN TO "INPUT.DAT"
               ORGANIZATION IS SEQUENTIAL.

           SELECT FILE-OUT ASSIGN TO "OUTPUT.DAT"
               ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD FILE-IN RECORD CONTAINS 40 CHARACTERS.
       01 IN-REC.
           05 IN-STATUS     PIC X(2).
           05 IN-CODE       PIC X(3).
           05 IN-VALUE      PIC 9(5).
           05 IN-FLAG       PIC X(1).
           05 FILLER        PIC X(29).

       FD FILE-OUT RECORD CONTAINS 80 CHARACTERS.
       01 OUT-REC.
           05 OUT-DESC      PIC X(60).
           05 OUT-RESULT    PIC X(10).

       WORKING-STORAGE SECTION.
      *> 88-level 条件名定義
       01 WS-STATUS.
           05 WS-STATUS-X   PIC X(2).
              88 WS-ACTIVE     VALUE 'AC'.
              88 WS-INACTIVE   VALUE 'IN'.
              88 WS-PENDING    VALUE 'PE'.
              88 WS-CLOSED     VALUE 'CL'.
              88 WS-ERROR      VALUE 'ER'.

       01 WS-CODE.
           05 WS-CODE-X     PIC X(3).
              88 WS-CODE-A      VALUE 'A01', 'A02', 'A03'.
              88 WS-CODE-B      VALUE 'B01', 'B02'.
              88 WS-CODE-ERR    VALUE 'ERR'.

       01 WS-FLAG.
           05 WS-FLAG-X     PIC X(1).
              88 WS-FLAG-YES    VALUE 'Y' FALSE 'N'.
              88 WS-FLAG-NO     VALUE 'N'.

       01 WS-TYPE           PIC X(10).
       01 WS-EOF            PIC X(1) VALUE 'N'.
           88 WS-EOF-Y      VALUE 'Y' FALSE 'N'.
       01 WS-COUNT          PIC 9(5).
       01 WS-PASS           PIC 9(2).
       01 WS-FAIL           PIC 9(2).

       01 WS-TELECOM-REC.
           COPY "telecom/TEL-BILLING.cpy".

       PROCEDURE DIVISION.
       MAIN.
           DISPLAY "TEST-88LEVEL: Starting 88-level condition test"
           OPEN INPUT FILE-IN.
           OPEN OUTPUT FILE-OUT.

      *> Test B-N004-1: 88-level 單值條件
           MOVE 'AC' TO WS-STATUS-X.
           IF WS-ACTIVE
               DISPLAY "B-N004-1: AC → ACTIVE PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-1: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

      *> Test B-N004-2: 88-level false condition
           MOVE 'IN' TO WS-STATUS-X.
           IF WS-ACTIVE
               DISPLAY "B-N004-2: IN → ACTIVE? FAIL"
               ADD 1 TO WS-FAIL
           ELSE
               DISPLAY "B-N004-2: IN → NOT ACTIVE PASS"
               ADD 1 TO WS-PASS
           END-IF.

      *> Test B-N004-3: 88-level 複數值
           MOVE 'A01' TO WS-CODE-X.
           IF WS-CODE-A
               DISPLAY "B-N004-3: A01 → CODE-A PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-3: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

           MOVE 'A02' TO WS-CODE-X.
           IF WS-CODE-A
               DISPLAY "B-N004-4: A02 → CODE-A PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-4: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

      *> Test B-N004-5: 88-level with NOT
           MOVE 'PE' TO WS-STATUS-X.
           IF NOT WS-ACTIVE AND NOT WS-INACTIVE
               DISPLAY "B-N004-5: PE → NOT ACTIVE/INACTIVE PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-5: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

      *> Test B-N004-6: 88-level error code
           MOVE 'ERR' TO WS-CODE-X.
           IF WS-CODE-ERR
               DISPLAY "B-N004-6: ERR → CODE-ERR PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-6: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

      *> Test B-N004-7: Y/N flag 88-level
           MOVE 'Y' TO WS-FLAG-X.
           IF WS-FLAG-YES
               DISPLAY "B-N004-7: Y → FLAG-YES PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-7: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

           MOVE 'N' TO WS-FLAG-X.
           IF WS-FLAG-NO
               DISPLAY "B-N004-8: N → FLAG-NO PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-N004-8: FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

      *> Test B-R001: COBOL85 關係運算子
           IF WS-PASS > WS-FAIL
               DISPLAY "B-R001: RELOP > PASS"
           END-IF.
           IF WS-FAIL < WS-PASS
               DISPLAY "B-R001: RELOP < PASS"
           END-IF.
           IF WS-PASS >= 6
               DISPLAY "B-R001: RELOP >= PASS"
           END-IF.
           IF WS-FAIL <= 2
               DISPLAY "B-R001: RELOP <= PASS"
           END-IF.

      *> 88-level with EVALUATE
           MOVE 'CL' TO WS-STATUS-X.
           EVALUATE TRUE
               WHEN WS-ACTIVE
                   MOVE 'ACTIVE' TO WS-TYPE
               WHEN WS-INACTIVE
                   MOVE 'INACTIVE' TO WS-TYPE
               WHEN WS-PENDING
                   MOVE 'PENDING' TO WS-TYPE
               WHEN WS-CLOSED
                   MOVE 'CLOSED' TO WS-TYPE
               WHEN WS-ERROR
                   MOVE 'ERROR' TO WS-TYPE
           END-EVALUATE.
           IF WS-TYPE = 'CLOSED'
               DISPLAY "B-R001: EVALUATE+88-level PASS"
               ADD 1 TO WS-PASS
           ELSE
               DISPLAY "B-R001: EVALUATE+88-level FAIL"
               ADD 1 TO WS-FAIL
           END-IF.

           CLOSE FILE-IN FILE-OUT.
           DISPLAY " "
           DISPLAY "88-LEVEL: PASS=" WS-PASS " FAIL=" WS-FAIL
           IF WS-FAIL = 0
               DISPLAY "88-LEVEL: ALL PASSED"
               STOP RUN RETURNING 0
           ELSE
               DISPLAY "88-LEVEL: FAILED"
               STOP RUN RETURNING 1
           END-IF
           .

       END PROGRAM Test88Level.