      * $Revision: 1.9.12.1 $
      * $Date: 2007/07/13 09:49:42 $
      * $Author: cht $
      * **********************
      * Copyright (C) 2003 Micro Focus Ltd.
      *
      * All rights reserved. Unpublished, all rights reserved under
      * copyright law and international treaty. Use of a copyright
      * notice is precautionary only and does not imply publication or
      * disclosure.  This software contains confidential information
      * and trade secrets of Micro Focus International Ltd. and no part
      * of this program or publication may be reproduced, transmitted,
      * transcribed, stored in a retrieval system, or translated into
      * any language or computer language, in any form or by any
      * means, electronic, mechanical, magnetic, optical, chemical,
      * manual or otherwise, without the prior written permission of:
      *
      * Micro Focus Ltd,
      * The Lawn, 22-30 Old Bath Road, Newbury, Berkshire, RG14 1QN.
      * (01635) 32646
      *
      * RESTRICTED RIGHTS LEGEND
      * Use, duplication, or disclosure by the Government is subject
      * to restrictions as set forth in subparagraph (c)(1)(ii) of
      * the Rights in Technical Data and Computer Software clause at
      * DFARS 52.227-7013 or subparagraphs (c)(1) and (2) of
      * Commercial Computer Software - Restricted Rights at 48 CFR
      * 52.227-19, as applicable.  Contact Micro Focus International Ltd
      * 701 E. Middlefield Road, Mountain View, Calif. 94043.      * FSVIEWOP.CPY
      *

      * Contains the entry points to the fsview API

       78  FSV-C                      VALUE "fsviewc".
       78  FSV-CMDCB                  VALUE "fsvcmdcb".
       78  FSV-C-DS                   VALUE "fsvc_DS".
       78  FSV-C-get-server-info      VALUE "FSV_C_get_server_info".
       78  FSV-C-get-log-file-info    VALUE "FSV_C_get_log_file_info".
       78  FSV-C-get-database-info    VALUE "FSV_C_get_database_info".
       78  FSV-C-get-user-info        VALUE "FSV_C_get_user_info".
       78  FSV-C-logoff-user          VALUE "FSV_C_logoff_user".
       78  FSV-C-get-open-user-files  VALUE "FSV_C_get_open_user_files".
       78  FSV-C-close-user-file      VALUE "FSV_C_close_user_file".
       78  FSV-C-check-password       VALUE "FSV_C_check_password".
       78  FSV-C-get-open-files       VALUE "FSV_C_get_open_files".
       78  FSV-C-close-file           VALUE "FSV_C_close_file".
       78  FSV-C-get-files-users      VALUE "FSV_C_get_files_users".
       78  FSV-C-get-comms-info       VALUE "FSV_C_get_comms_info".
       78  FSV-C-change-server        VALUE "FSV_C_change_server".
       78  FSV-C-shutdown-server      VALUE "FSV_C_shutdown_server".
       78  FSV-C-call-help            VALUE "FSV_C_call_help".
       78  FSV-C-rename-logfile       VALUE "FSV_C_rename_logfile".
       78  FSV-C-auto-rename-logfile  VALUE "FSV_C_auto_rename_logfile".
       78  FSV-C-odd-even             VALUE "FSV_C_odd_even".
       78  FSV-C-extract-user-id      VALUE "FSV_C_extract_user_id".
       78  FSV-C-toggle-trace         VALUE "FSV_C_toggle_trace".        1902
       78  FSV-C-toggle-XFH-trace     VALUE "FSV_C_toggle_XFH_trace".    1902
       78  FSV-C-toggle-open-trace    VALUE "FSV_C_toggle_open_trace".   1902
053612 78  FSV-C-add-login-user       VALUE "FSV_C_add_login_user".          
       78  FSVIEW-C-TERM              VALUE "fsviewc_term".

      *** call backs
       78  FSV-C-add-to-file-list    VALUE "FSV_add_to_file_list".
       78  FSV-C-add-to-user-list    VALUE "FSV_add_to_user_list".
       78  FSV-C-add-to-dbase-list   VALUE "FSV_add_to_dbase_list".      1902

      ***  passing-values.
       01  l-server-name                    pic x(20) value spaces.
       01  l-server-password                pic x(20) value spaces.
       01  l-user-name                      pic x(20) value spaces.
       01  l-user-id                        pic 9(5).
053612 01  l-new-user                       pic x(20) value spaces.
053612 01  l-new-user-password              pic x(20) value spaces.
       01  l-server-userid                  pic x(20) value spaces.
       01  l-filename                       pic x(260) value spaces.
538342 01  l-set-state                      pic x comp-x value 0.


