      ***------------------------------------------------------------***
      *** dfhcwai.cpy                                                ***
      ***------------------------------------------------------------***
      *** Copyright (C) 1998-2004 Micro Focus International Ltd.     ***
      *** All rights reserved.                                       ***
      ***------------------------------------------------------------***
        01 ws-AI-parm-list.
           05  ws-AI-parm-function-code        pic x(4)
                                               value '0   '.
           05  ws-AI-parm-Netname-ptr          pointer.
           05  ws-AI-parm-AImodel-ptr          pointer.
           05  ws-AI-parm-Userinf-ptr          pointer.
           05  ws-AI-parm-Terminf-ptr          pointer.
           05  ws-AI-parm-Server-IP-addr-ptr   pointer.
           05  ws-AI-parm-Client-IP-addr-ptr   pointer.
       01  ws-AI-parm-Netname.
           05  ws-AI-parm-Netname-len          pic 9(2)    comp-x.
           05  ws-AI-parm-Netname-Name         pic x(8).
       01  ws-AI-parm-AImodel.
           05  ws-AI-parm-AImodel-len          pic 9(2)    comp-x.
           05  ws-AI-parm-AImodel-array        pic x(8)
                                               occurs 100.
       01  ws-AI-parm-Userinf.
           05  ws-AI-parm-Userinf-AImodel      pic x(8).
           05  ws-AI-parm-Userinf-Termname     pic x(4).
           05  ws-AI-parm-Userinf-Printer      pic x(4).
           05  ws-AI-parm-Userinf-Alt-Printer  pic x(4).
           05  ws-AI-parm-Userinf-Status-Byte  pic x(1).
       01  ws-AI-parm-Terminf.
           05  ws-AI-parm-Terminf-len          pic 9(2)    comp-x.
           05  ws-AI-parm-Terminf-data.
               10  ws-AI-parm-Terminf-scrhgt   pic x       comp-x.
               10  ws-AI-parm-Terminf-scrwdt   pic x       comp-x.
               10  ws-AI-parm-Terminf-UCtran   pic x.
                   88  AI-parm-Terminf-UCtran-88           value 'A'.
                   88  AI-parm-Terminf-UCtran-tran-88      value 'U'.
                   88  AI-parm-Terminf-no-UCtran-88        value
                                                             low-values.
y56310         10                              pic x.
y56310         10  ws-AI-parm-Terminf-Assoc-len pic x(2)   comp-x.
y56310         10  ws-AI-parm-Terminf-Associate pic x(8).
       01  ws-AI-parm-IP-address.
           05  ws-AI-parm-IP-type              pic x.
               88  ws-AI-parm-IP-type-4-88                 value '4'.
               88  ws-AI-parm-IP-type-6-88                 value '6'.
           05                                  pic x.
           05  ws-AI-parm-IP-port              pic x(2)    comp-x.
           05  ws-AI-parm-IP-address-6.
               10  ws-AI-parm-address-4        pic x(4).
               10                              pic x(12).
      ***------------------------------------------------------------***
      *** dfhcwai.cpy end                                            ***
      ***------------------------------------------------------------***
