*> ---------------------------------------------------------------------
*> Status layout without its 01 level, so the library can keep a private
*> scratch status alongside the caller's without duplicating the
*> definition. Replace the field-name tag and the level number.
*>
*> The six failure categories are split by the decision the caller has to
*> make, not by the HTTP status that produced them.
*> ---------------------------------------------------------------------
:L1:  :P:-STATUS-CODE              PIC 9(2).
      88  :P:-OK                   VALUE 0.
      88  :P:-INVALID-CEP          VALUE 1.
      88  :P:-NOT-FOUND            VALUE 2.
      88  :P:-RATE-LIMITED         VALUE 3.
      88  :P:-SERVER-ERROR         VALUE 4.
      88  :P:-NETWORK-ERROR        VALUE 5.
      88  :P:-INVALID-RESPONSE     VALUE 6.
      88  :P:-FAILED               VALUE 1 THRU 6.
      88  :P:-RETRIABLE            VALUE 3 THRU 5.
:L1:  :P:-STATUS-MESSAGE           PIC X(200).
:L1:  :P:-STATUS-HTTP              PIC 9(3).
:L1:  :P:-STATUS-RETRY-AFTER-MS    PIC S9(9)
                                   SIGN IS LEADING SEPARATE.
:L1:  :P:-STATUS-ATTEMPTS          PIC 9(4).