@001.        Not JavaScript Compatible.
@. **** BEGIN MULTI-LINE-FIELDS ****
@DEF,,lin1 <setv>a1,<MULTILINE> IF <MULTILINE> ne '',(100) ;.
@DEF,,lin1 <setv>a1,<GResultName> IF <GResultName> ne '',(100) ;.
@. **** END MULTI-LINE-FIELDS ****
@. **** BEGIN GLOBAL SYSTEM VARIABLES ****
@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='216.73.216.109' .   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='ETN_Stats' .         Title of Service
@LDV,p <GExeCategory>s20='ETN' .           Executing Category
@LDV,p <GExeService>s20='ETN_Stats' .            Executing Service
@LDV,p <GUrlCat>s256='https://khl-software.com/etn/default.asp?Category=ETN&Service=' . Url to Cat
@LDV,p <GUrlACat>s256='https://khl-software.com/etn/default.asp?Category=ETN&amp;Service=' .  &amp;
@. **** END GLOBAL SYSTEM VARIABLES ****
@. **** BEGIN INTERNAL GLOBAL SYSTEM VARIABLES ****
@.  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='4073' .   Index of Session Mgmnt
@DEF,,lin1 <setv>a1,<*GSessionId> gto lin2 . skip if already defined
@LDV <*GSessionId>s20='1759627707ICE289    ' .
@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='ETN' .
@LDV <*service>s20='ETN_Stats' .
@LDV <*SessionId>s20='1759627707ICE289' .
@0050: .
@. **** END INTERNAL GLOBAL SYSTEM VARIABLES ****
@. **** BEGIN BROWSER INPUT ****
@LDV,p <Category>s20='ETN' .
@LDV,p <Service>s20='ETN_Stats' .
@LDV,p <SessionId>s20='1759627707ICE289' .
@LDV,p <TransId>s11='10340-13702' .
@. 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 ;.
@. **** END BROWSER INPUT ****
@. **** BEGIN APPLICATION INPUT **** Marker for ICEAdm\SIGNON
@LDV,w <I#elin>i6=eline$ RDL,edrw$,<I#erpt>,<I#elin> 1-1 <I#kwdl>a1 .
@. **** END APPLICATION INPUT ****
@. **** BEGIN STYLE GUIDE ****
@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' .
@. **** END STYLE GUIDE ****
@. **** BEGIN SECURITY AUTHENTICATION ****
@. **** END SECURITY AUTHENTICATION ****
@. **** BEGIN SESSION VARIABLES ****
@. **** END SESSION VARIABLES ****
@. **** BEGIN APPLICATION VARIABLES ****
@LDV,w <setv>i6=eline$ .
@INC,2 <setv> RLN,<setv> 1-3 <ghttpmethod>S3 GTO LIN2 .
GET
@INC,2 <setv> RLN,<setv> 1-13 <gsvcakwd>S13 GTO LIN2 .
&amp;Service=
@INC,2 <setv> RLN,<setv> 1-66 <gurlacat>S66 GTO LIN2 .
https://khl-software.com/etn/default.asp?Category=ETN&amp;Service=
@INC,2 <setv> RLN,<setv> 1-21 <gunilink>S21 GTO LIN2 .
http://www.unisys.com
@INC,2 <setv> RLN,<setv> 1-3 <msg>A3 GTO LIN2 .
00
@INC,2 <setv> RLN,<setv> 1-1 <status>A1 GTO LIN2 .
0
@INC,2 <setv> RLN,<setv> 1-4 <rd>I4 GTO LIN2 .
 329
@INC,2 <setv> RLN,<setv> 1-11 <cnumber>H11 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-1 <t>H1 GTO LIN2 .
'
@INC,2 <setv> RLN,<setv> 1-6 <ln>I6 GTO LIN2 .
    15
@INC,2 <setv> RLN,<setv> 1-12 <variable>H12 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-80 <value>S80 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-1 <ty>H1 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-2 <ln1>I2 GTO LIN2 .
 0
@INC,2 <setv> RLN,<setv> 1-3 <pnt>I3 GTO LIN2 .
  1
@INC,2 <setv> RLN,<setv> 1-12 <system>H12 GTO LIN2 .
ETNVariables
@INC,2 <setv> RLN,<setv> 1-12 <vname>H12 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <arraysize>I5 GTO LIN2 .
    0
@INC,2 <setv> RLN,<setv> 1-3 <size>H3 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-80 <xqt>S80 GTO LIN2 .
@def,q <vararray>i2,<zemail> .
@INC,2 <setv> RLN,<setv> 1-1 <testv>H1 GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-2 <errpnt>I2 GTO LIN2 .
 1
@INC <setv> LDA <save-rsl>H5[16] .
@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[1] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[2] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[3] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[4] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[5] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[6] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[7] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[8] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[9] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[10] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[11] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[12] GTO LIN2 .
n
@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[13] GTO LIN2 .
n
@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[14] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[15] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-5 <save-rsl>[16] GTO LIN2 .
n
@INC <setv> LDV <emsg>S0 .
@INC,2 <setv> RLN,<setv> 1-6 <gmsg>S6 GTO LIN2 .
&nbsp;
@INC,2 <setv> RLN,<setv> 1-4 <intcab>I4 GTO LIN2 .
  46
@INC,2 <setv> RLN,<setv> 1-1 <intdrw>H1 GTO LIN2 .
<
@INC,2 <setv> RLN,<setv> 1-4 <intrid>I4 GTO LIN2 .
<rd1
@INC,2 <setv> RLN,<setv> 1-4 <projcab>I4 GTO LIN2 .
  48
@INC,2 <setv> RLN,<setv> 1-1 <projdrw>H1 GTO LIN2 .
<
@INC,2 <setv> RLN,<setv> 1-4 <projrid>I4 GTO LIN2 .
<rd1
@INC,2 <setv> RLN,<setv> 1-6 <form>H6 GTO LIN2 .
Signon
@INC,2 <setv> RLN,<setv> 1-7 <field>H7 GTO LIN2 .
*******
@INC <setv> LDA <m-array>H18[14] .
@INC,2 <setv> RLN,<setv> 1-18 <m-array>[1] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[2] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[3] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[4] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[5] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[6] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[7] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[8] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[9] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[10] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[11] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[12] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[13] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-18 <m-array>[14] GTO LIN2 .

@INC,2 <setv> RLN,<setv> 1-1 <tic>H1 GTO LIN2 .
'
@INC,2 <setv> RLN,<setv> 1-12 <msec>I12 GTO LIN2 .
    73707975
@. **** END APPLICATION VARIABLES ****
@. **** BEGIN SERVICE VARIABLES ****
@. **** END SERVICE VARIABLES ****
@ESR .
@. **** BEGIN MULTI-LINE/REPORT-INPUT HANDLING ****
@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 .
@. **** END MULTI-LINE/REPORT-INPUT HANDLING ****