Identity Resolution
- Identity Resolution 10.0
- All Products
VARIABLE DECLARATIONS. . . . . SSA-NAME3-RESPONSE-CODE CHAR 20 REDEFINE SSA-NAME3-RESPONSE-CODE SSA-NAME3-ERROR-NUMBER CHAR 2 SSA-NAME3-ERROR-REASON CHAR 2 SSA-NAME3-ERROR-MODULE CHAR 2 SSA-NAME3-ERROR-SEVERITY CHAR 1 SSA-NAME3-ERROR-UNUSED CHAR 3 SSA-NAME3-SECONDARY-RESPONSE-CODE CHAR 10 . . . SSA-NAME3-WORK-AREA CHAR 99999 REDEFINE SSA-NAME3-WORK-AREA SSA-NAME3-WORK-FIRST CHAR 42 SSA-NAME3-EXTENDED-RC CHAR 20 . . . . MAIN CODE. . . . . MOVE ’90’ TO SSA-NAME3-ERROR-NUMBER CALL ’N3SGUS’ USING SSA-NAME3-SERVICE, SSA-NAME3-RESPONSE-CODE, . . . . IF SSA-NAME3-ERROR-NUMBER NOT = ’00’ IF SSA-NAME3-ERROR-NUMBER >= ’90’ PERFORM SSA-NAME3-ERROR-ABORT END-IF MOVE SSA-NAME3-EXTENDED-RC TO SSA-NAME3-RESPONSE-CODE
IF SSA-NAME3-ERROR-SEVERITY >= ’2’ PERFORM SSA-NAME3-ERROR-ABORT END-IF IF SSA-NAME3-ERROR-SEVERITY = ’1’ PERFORM SSA-NAME3-WARNING-PRINT END-IF END-IF . . . . SSA-NAME3-ERROR-ABORT. PRINT ’\ssaproduct{} RESPONSE CODE: ’ SSA-NAME3-RESPONSE-CODE ABORT SSA-NAME3-WARNING-PRINT PRINT ’\ssaproduct{} RESPONSE CODE: ’ SSA-NAME3-RESPONSE-CODE CONTINUE
IF SSA-NAME3-ERROR-SEVERITY = ’1’ IF SSA-NAME3-ERROR-NUMBER = ’02’ OR ’32’ CONTINUE ELSE PERFORM SSA-NAME3-WARNING-PRINT END-IF END-IF