void getResponseAttachmentIDs( ids ) |
... configuration section. repository. class http-client as "com.iscobol.rts.HTTPClient" ... working-storage section. 77 http object reference http-client. 77 aids pic x any length. 77 anames pic x any length. 77 curr-id pic x any length. 77 curr-name pic x any length. 77 curr-val pic x any length. 77 curr-body pic x any length. 77 ptr-id pic 9(3). 77 ptr-name pic 9(3). ... procedure division. ... http:>getResponseAttachmentIDs(aids). move 1 to ptr-id. perform until exit unstring aids delimited by "," into curr-id pointer ptr-id perform GET-ATTRS perform GET-BODY if ptr-id > function length(aids) exit perform end-if end-perform. ... GET-ATTRS. http:>getResponseAttachmentAttrNames(curr-id, anames) move 1 to ptr-name perform until exit unstring aids delimited by "," into curr-name pointer ptr-name http:>getResponseAttachmentAttr(curr-id, curr-name, curr-val) if ptr-name > function length(anames) exit perform end-if end-perform. ... GET-BODY. http:>getResponseAttachmentBody (curr-id, curr-body). |