Cool ICE Post-Query Service.  

Service Input Parameters

@001.        Not JavaScript Compatible.

@LDV,p <GIceRepCab>a4=3950 .           Cool ICE Repository Cabinet Location
@LDV,p <GSvcHndCab>a4=3950 .                      SvcHnd Cabinet Location
@LDV,p <GSvcHndDrw>a1=B .                      SvcHnd Drawer Location
@LDV,p <GGatewayIn>s80='' .             Gateway Input File
@LDV,p <GSysImgDir>s85='C:\BIS$1\CIUtilities\Images\' .     System Image Directory
@LDV,p <GSysImgAls>s40='/CISystem/Images/' .     System Image Alias
@LDV,p <GTempDir>s85='C:\BIS$1\ICETemp\' .         Temp Directory
@LDV,p <GSysCat>s20='ICEAdm' .            Name of System Category
@LDV,p <GIceGateway>s20='CIOBJ' .   Gateway CIOBJ,WEBTX,BATCH
@LDV,p <GSesTimeOut>a6='20' .    Session Timeout Value
@LDV,p <GSvrName>s80='khl-software.com' .         Name of Server
@LDV,p <GSvrProtocol>s20='HTTP/1.1' . Server Protocol
@LDV,p <GSvrPort>s20='443' .         Server Port
@LDV,p <GHttpHost>s80='khl-software.com' .       Name of HTTP Host
@LDV,p <GHttpMethod>s80='GET' . Name of HTTP Method
@LDV,p <GRemoteAddr>s80='3.141.29.162' .   Address of Client
@LDV,w <I#erpt>i4=erpt$ .
@IF sysnam$(1-1) eq M ldv <I#erpt>=-8 ;.
@LDV,w <I#elin>i6=eline$ RDL,edrw$,<I#erpt>,<I#elin> 1-1 <I#kwdl>a1 .
@INC,3 <I#elin> RLN,<I#elin> 1-256 <GUserAgent>s998  GTO LIN3 .
@.  **** GUserAgent is on the following lines **** (Http_User_Agent) .
Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)
@LDV,p <GUserAgent> .                               Client Browser
@LDV,p <GInvkSignon>a1='N' .    Invoke Signon (y/n)
@LDV,p <GSignonSvc>s20='SIGNON' .      Signon Service Name
@LDV,p <GValidationT>i1='0' .  Signon Validation (0/1/2)
@LDV,p <GCompatMode>i1='0' .    Error Handling Type(0/1)
@LDV,p <GUserCtlSvc>s20='USERCONTROL' .    User Control Service Name
@LDV,p <GUrl>s255='https://khl-software.com/etn/default.asp?' .                URL for Cool ICE Objects
@LDV,p <GUrlAsp>s255='https://khl-software.com/etn/default.asp?' .          URL for ASP File
@LDV,p <GUrlVirDir>s255='https://khl-software.com/etn' .    URL for Virtual Dir
@LDV,p <GDefASPFile>s85='default.asp' .   Name of default ASP File
@LDV,p <GAspAlsDir>s40='etn' .     Name of virtual ASP Dir
@LDV,p <GAspFile>s85='default.asp' .         Name of ASP File
@LDV,p <GSysKwd1>a10=Category .                     Category Keyword
@LDV,p <GSysKwd2>a10=Service .                      Service Keyword
@LDV,p <GCatKwd>s20='Category=' .           2.0 Category Keyword
@LDV,p <GSvcKwd>s20='&Service=' .           2.0 Service Keyword
@LDV,p <GSvcAKwd>s20='&amp;Service=' .         2.0 Service Keyword
@LDV,p <SvcTitle>s80='Post Query - forms input received.' .         Title of Service
@LDV,p <GExeCategory>s20='Examples' .           Executing Category
@LDV,p <GExeService>s20='post-query' .            Executing Service
@LDV,p <GUrlCat>s256='https://khl-software.com/etn/default.asp?Category=Examples&Service=' . Url to Cat
@LDV,p <GUrlACat>s256='https://khl-software.com/etn/default.asp?Category=Examples&amp;Service=' .  &amp;

@.  Global * variables are defined for ICE system usage and subject to change
@DEF,,lin1 <setv>a1,<*GStateRpt> gto lin2 . skip if already defined
@LDV,p <*GStateRpt>i4='711' .   Index of Session Mgmnt
@DEF,,lin1 <setv>a1,<*GSessionId> gto lin2 . skip if already defined
@LDV <*GSessionId>s20='1732232852ICE665    ' .
@DEF,,lin1 <setv>a1,<*GSMCab> gto 0050 . skip if already defined
@LDV,p <*GSMCab>i4=4000,<*GSMDrw>a1=B .
@LDV,p <*GSMRptStrt>i4=1,<*GSMRptEnd>i4=4999 .
@DEF,,lin1 <setv>a1,<*category> gto 0050 . skip is allready defined
@LDV <*category>s20='Examples' .
@LDV <*service>s20='post-query' .
@LDV <*SessionId>s20='1732232852ICE665' .
@0050: .

@LDV,p <Category>s20='Examples' .
@LDV,p <Service>s20='post-query' .
@LDV,p <SessionId>s20='1732232852ICE665' .
@LDV,p <TransId>s11='08608-27514' .
@. This section loads your input values from the screen into variables.
@. The @RLN statements perform the equivalent of @LDV statements.
@LDV,w <I#erpt>i4=erpt$ .
@IF sysnam$(1-1) eq M ldv <I#erpt>=-8 ;.

@LDV,w <I#elin>i6=eline$ RDL,edrw$,<I#erpt>,<I#elin> 1-1 <I#kwdl>a1 .
@LDV,w <I#elin>i6=eline$ .
@INC,3 <I#elin> RLN,<I#elin> 1-45 <CookieErr001>s45 GTO LIN3 .
@.  **** CookieErr001 is on the following line ****    .
care_did=557bb6c2-e7b4-4e0d-8fee-1f9530288988

@LDV,p <ALinkClr>a1=' ' .
@LDV,p <DocBgClr>s17='bgcolor="#C0C0C0"' .
@LDV,p <DocBgImg>a1=' ' .
@LDV,p <FrmBgClr>s17='bgcolor="#008080"' .
@LDV,p <LinkClr>a1=' ' .
@LDV,p <TblBgClr>s17='bgcolor="#DDDDDD"' .
@LDV,p <TextClr>a14='text="#000000"' .
@LDV,p <VLinkClr>a1=' ' .
@LDV,p <GUniLink>s21='http://www.unisys.com' .

@ESR .

@100.
@DEF,s,LIN1 <kwdl>i6,<GResultName> IF <GResultName> ne '',(LIN3) ;.
@LDV <GResultName>s50 .
@DEF,,LIN1 <setv>a1,<MULTILINE> LDV <GResultName>=<MULTILINE> .
@IF <kwdl> ge 2 IF <GResultName>(1-2) = R_,R- . ; GTO LIN4 .
.<GResultName>
*Keyword             .Value
*====================.====================================================...==.
@LDV <GResultName>='' .  .
@BRK ESR .