Editing Naming and Coding Standards (section)

== 11. Error Handling Standard ==

<span id="sql-errors"></span>
=== 11.1 SQL errors ===

Every EXEC SQL block must check SQLCODE as specified in §7.3. On error:

# Move <code>SQLERRMC</code> to <code>program-message</code>.
# Set the tier’s result field to 1 (nok).
# Call primesui with <code>ui-methods = &quot;log-message&quot;</code> to log the error.
# EXIT PROGRAM — do not STOP RUN from within a subprogram.

<span id="file-io-errors"></span>
=== 11.2 File I/O errors ===

Every file OPEN, READ, WRITE, CLOSE must check the file-status field:

<syntaxhighlight lang="cobol">           IF <file>-status = "00" THEN
             <success>
           ELSE
             MOVE <file>-status TO program-message
             PERFORM r98-message-ui
             MOVE 1 TO ui-method-result
           END-IF.</syntaxhighlight>
<span id="return-code"></span>
=== 11.3 Return code ===

At the end of <code>primesmain</code> (the only <code>STOP RUN</code> in the system), set the process return code:

<syntaxhighlight lang="cobol">           IF <any-error-indicator> THEN
             MOVE 1 TO RETURN-CODE
           ELSE
             MOVE 0 TO RETURN-CODE
           END-IF.
           STOP RUN.</syntaxhighlight>

-----

<span id="compliance-checklist"></span>