Initial importv0.1.0

1 files changed, 23 insertions, 0 deletions

diff --git a/copy/cepis-status.cpy b/copy/cepis-status.cpy
new file mode 100644
index 0000000..75632c8
--- /dev/null
+++ b/copy/cepis-status.cpy
@@ -0,0 +1,23 @@
+*> ---------------------------------------------------------------------
+*> 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).