blob: 5868ed2a33e80605228062fb6ac3822bcf315b7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
*> ---------------------------------------------------------------------
*> Internal layouts shared between CEPIS-REQUEST and its callers. Not
*> part of the public surface; nothing outside this library needs it.
*>
*> HTTP-BODY is fixed at 256 KiB. A response larger than that is reported
*> as CEPIS-INVALID-RESPONSE rather than being silently cut: 500 CSV rows
*> come to roughly 60 KiB, so the margin is wide.
*> ---------------------------------------------------------------------
01 CEPIS-HTTP-REQUEST.
05 HTTPQ-PATH PIC X(8192).
05 HTTPQ-PATH-LEN PIC 9(9).
05 HTTPQ-ALLOW-503 PIC X.
01 CEPIS-HTTP-RESPONSE.
05 HTTP-STATUS PIC 9(3).
05 HTTP-BODY-LEN PIC 9(9).
05 HTTP-BODY PIC X(262144).
|