Communications Blocks and Error Detection › Error Detection › IDMS_STATUS Routine › IDMS_STATUS Routine Used Under a DC/UCF System

IDMS_STATUS Routine Used Under a DC/UCF System

The following code is copied into DC/UCF programs by the INCLUDE IDMS (IDMS_STATUS) statement:

    IDMS_STATUS:  PROC;
      IF ERROR_STATUS='0000' THEN GOTO END_STATUS;
      SSC_ERRSTAT_SAVE=ERROR_STATUS;
      SSC_DMLSEQ_SAVE=DML_SEQUENCE;
      SNAP FROM (SUBSCHEMA_CTRL) TO (SUBSCHEMA_CTRL_END);
      ABEND CODE (SSC_ERRSTAT_SAVE);
    END_STATUS: END;

IDMS_STATUS abends your program if the ERROR_STATUS field contains a nonzero value. Because some values do not indicate processing errors, your program should check ERROR_STATUS for nonzero values before calling IDMS_STATUS.