IF WS-PREV-KEY = WS-CURR-KEY
IF I-PREV-SEG = I-CURR-SEG
PERFORM 2100-READ-PREV
PERFORM 2100-READ-CURR
ELSE
MOVE I-CURR-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-PREV
PERFORM 2100-READ-CURR
ELSE
IF WS-PREV-KEY < WS-CURR-KEY
MOVE I-PREV-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-PREV
ELSE
MOVE I-CURR-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-CURR
END-IF
END-IF.
IF I-PREV-SEG = I-CURR-SEG
PERFORM 2100-READ-PREV
PERFORM 2100-READ-CURR
ELSE
MOVE I-CURR-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-PREV
PERFORM 2100-READ-CURR
ELSE
IF WS-PREV-KEY < WS-CURR-KEY
MOVE I-PREV-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-PREV
ELSE
MOVE I-CURR-REC(1:10) TO WS-OUTA
PERFORM 2300-WRITE-DELTA
PERFORM 2100-READ-CURR
END-IF
END-IF.
FYI:
01 I-PREV-REC.
05 I-PREV-KEY PIC X(10).
05 I-PREV-DUMMY-KEY PIC X(03).
05 I-PREV-SEG-KEY PIC X(09).
05 I-PREV-SEG PIC X(067).
01 I-CURR-REC.
05 I-CURR-KEY PIC X(10).
05 I-CURR-DUMMY-KEY PIC X(03).
05 I-CURR-SEG-KEY PIC X(09).
05 I-CURR-SEG PIC X(067).
05 I-PREV-KEY PIC X(10).
05 I-PREV-DUMMY-KEY PIC X(03).
05 I-PREV-SEG-KEY PIC X(09).
05 I-PREV-SEG PIC X(067).
01 I-CURR-REC.
05 I-CURR-KEY PIC X(10).
05 I-CURR-DUMMY-KEY PIC X(03).
05 I-CURR-SEG-KEY PIC X(09).
05 I-CURR-SEG PIC X(067).
Coded'd