blob: 0f17fd13d63e85f0ffe86a3350a8d901b4d6e5a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
IDENTIFICATION DIVISION.
PROGRAM-ID. CEPIS-DEFAULT-CONFIG.
*> ---------------------------------------------------------------------
*> Fill CEPIS-CONFIG with the shipped defaults.
*>
*> CALL "CEPIS-DEFAULT-CONFIG" USING CEPIS-CONFIG
*>
*> Call this before anything else, then override what you need. Every
*> field is written, so a record left over from another use is safe to
*> pass in. CFG-BASE-URL is the one that usually differs between
*> environments: point it at a local instance and the whole library
*> follows.
*> ---------------------------------------------------------------------
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CEPIS-VERSION PIC X(5) VALUE "0.1.0".
LINKAGE SECTION.
COPY "cepis.cpy".
PROCEDURE DIVISION USING CEPIS-CONFIG.
MAIN-START.
MOVE "https://cep.is" TO CFG-BASE-URL
MOVE 10000 TO CFG-TIMEOUT-MS
MOVE 3 TO CFG-MAX-ATTEMPTS
MOVE 500 TO CFG-BACKOFF-BASE-MS
MOVE 8000 TO CFG-BACKOFF-MAX-MS
MOVE 0 TO CFG-TOTAL-TIMEOUT-MS
MOVE SPACES TO CFG-USER-AGENT
STRING "cepis-cobol/" CEPIS-VERSION " (+https://cep.is)"
DELIMITED BY SIZE INTO CFG-USER-AGENT
END-STRING
GOBACK.
END PROGRAM CEPIS-DEFAULT-CONFIG.
|