Untitled

000000    PROGRAM-ID    PAJSFN32
000908    IF (LS-ABK-EPIC-CODE = 'I')  AND (LS-ABK-STA-CODE = 'J')   AND (PBSC-INN-CD = 'I')       AND (LS-ABL-TYPE-CODE = 'I') AND (LS-BRY-CODE = 'R')      AND (LS-PCOWNS-CD(1:2) = 'WW') AND (ABL-NET-AMT = 0 OR ABL-NET-AMT < 0)
000909        PERFORM 3500-GET-ABEP THRU 3500-EXIT
000910        IF LS-FATAL-ERROR-IND = 'Y'
000911            GO TO 5000-EXIT
000912            END-IF
000913        IF ABL-RTN-PAY-AMT = ABE-RCP-CLM-AMT
000914            MOVE 'E0856' TO ABQ-RSN-CODE OF WS-SCOPE-QWABQVX1
000915            ELSE
000916                MOVE 'E0857' TO ABQ-RSN-CODE OF WS-SCOPE-QWABQVX1
000917            END-IF
000918        MOVE 'I' TO ACTION-1 OF WS-SCOPE-QWABQVX1
000919        PERFORM 5100-FIND-ABQP-SUSP THRU 5100-EXIT
000920        IF LS-FATAL-ERROR-IND = 'Y'
000921            GO TO 5000-EXIT
000922            END-IF
000923        IF WS-SUSP-FOUND-SW = 'Y'
000924            CONTINUE
000925            ELSE
000926                MOVE ABQ-RSN-CODE OF WS-SCOPE-QWABQVX1 TO AIG-CODE
000927                PERFORM 9000-HANDLE-SUSPENSIONS THRU 9000-EXIT
000928            END-IF
000929        END-IF .