exit-http-resp-header ユーザー出口は、SOAP Web サービスからの応答メッセージに存在するすべての HTTP ヘッダーへのアクセスを提供します。存在する場合、Web サービスが呼び出される前に InvokeService02 によって 1 から 100 回呼び出されます。
Web サービス HTTP-RESP-HEADER ユーザー出口関数のシグネチャ
Function_Name(int header, char * headerName, char * headerValue)
LINKAGE SECTION. 01 headerArrayPtr pointer. 01 headerCount pic 9(9) usage comp-5. 01 header. 03 namePtr pointer. 03 valuePtr pointer. 01 headerName pic x(1). 01 headerValue pic x(1). PROCEDURE DIVISION. EXIT PROGRAM. … ENTRY "exit-http-resp-headers" using By value headerArrayPtr, headerCount. set address of header to headerArrayPtr perform headerCount times set address of headerName to namePtr of header set address of headerValue to valuePtr of header perform varying headerNameLen from 1 by 1 until headerName(headerNameLen:1) = low-value end-perform subtract 1 from headerNameLen perform varying headerValueLen from 1 by 1 until headerValue(headerValueLen:1) = low-value end-perform . … EXIT PROGRAM.
このユーザー出口は、1 から 100 回繰り返し呼び出されます。headerNum は単なる C の for ループの索引です。ループの終了は、次の場合に発生します。