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.2.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.