When FSVIEW is initialized using FSC-C-long-password it makes extensive use of the FSVW2 datablock.
This data definition copybook file (fsdatabv2.cpy) can be found in $COBDIR/copylib .
Add the following data definitions to the datablock in your FSVIEW calls:
01 fsvw2-data-block.
*server information
03 fsvw2-server-name pic x(20).
03 fsvw2-server-startup pic x(20).
03 fsvw2-server-usage pic x(4).
03 fsvw2-trace-on pic x comp-x.
*log file information
03 fsvw2-log-filename pic x(255).
03 fsvw2-timings-table redefines fsvw2-log-filename.
05 fsvw2-timing-fs pic x comp-x.
05 fsvw2-timing-receiveall pic x comp-x.
05 fsvw2-timing-query pic x comp-x.
05 fsvw2-timing-comms-other pic x comp-x.
05 fsvw2-timing-fh pic x comp-x.
05 fsvw2-timing-io-cnt pic x(4) comp-x.
03 fsvw2-log-filename-size pic x(2) comp-x.
03 fsvw2-log-filesize pic x(16).
03 fsvw2-disk-space pic x(16).
03 fsvw2-disk-size pic x(16).
*database information
03 fsvw2-dbase-filename-size pic x(2) comp-x.
03 fsvw2-dbase-filesize pic x(16).
*various flags
03 fsvw2-exit-flg pic 9.
88 fsvw2-exit-flg-true value 1.
03 fsvw2-function pic 9(2).
03 fsvw2-status-key-1 pic x(2) comp-x.
03 fsvw2-status-key-2 pic x(2) comp-x.
03 fsvw2-date-format pic x.
03 fsvw2-fsview-user-id pic x(5).
*windows show flags
03 fsvw2-log-win-flg pic 9.
88 fsvw2-log-win-flg-true value 1.
03 fsvw2-dbase-win-flg pic 9.
88 fsvw2-dbase-win-flg-true value 1.
03 fsvw2-user-win-flg pic 9.
88 fsvw2-user-win-flg-true value 1.
03 fsvw2-user-file-win-flg pic 9.
88 fsvw2-user-file-win-flg-true value 1.
03 fsvw2-file-info-win-flg pic 9.
88 fsvw2-file-info-win-flg-true value 1.
03 fsvw2-file-user-win-flg pic 9.
88 fsvw2-file-user-win-flg-true value 1.
03 fsvw2-comms-win-flg pic 9.
88 fsvw2-comms-win-flg-true value 1.
03 fsvw2-password-win-flg pic 9.
88 fsvw2-password-win-flg-true value 1.
03 fsvw2-change-srvr-win-flg pic 9.
88 fsvw2-change-srvr-win-flg-true value 1.
03 fsvw2-logid-needed-flg pic 9.
88 fsvw2-logid-needed-flg-true value 1.
03 fsvw2-comms-too-small-flg pic 9.
88 fsvw2-comms-too-small-flg-true value 1.
*
03 fsvw2-insert-list-box.
04 fsvw2-insert-list-box-item occurs 10.
05 fsvw2-list-box-data pic x(255).
*user details
03 fsvw2-number-of-users pic 9(5).
03 fsvw2-peak-number-of-users pic 9(5).
03 fsvw2-logoff-id pic x(5).
03 fsvw2-file-list-user-id pic x(5).
03 fsvw2-extracted-user-id pic x(5).
*
03 fsvw2-number-files-open pic 9(10).
03 fsvw2-peak-files-open pic 9(10).
*various fs state flags
03 fsvw2-user-not-found-flg pic 9.
88 fsvw2-user-not-found-flg-true value 1.
03 fsvw2-invalid-password-flg pic 9.
88 fsvw2-invalid-password-flg-true value 1.
03 fsvw2-file-not-found-flg pic 9.
88 fsvw2-file-not-found-flg-true value 1.
03 fsvw2-no-server-flg pic 9.
88 fsvw2-no-server-flg-true value 1.
03 fsvw2-shutdown-already-flg pic 9.
88 fsvw2-shutdown-already-flg-true value 1.
03 fsvw2-rename-error-flg pic 9.
88 fsvw2-rename-error-flg-true value 1.
03 fsvw2-rename-clash pic 9.
88 fsvw2-rename-clash-true value 1.
*
03 fsvw2-comms-module-line2 pic x(42).
03 fsvw2-comms-module-line1 pic x(42).
03 fsvw2-send-failures pic 9(10).
03 fsvw2-comms-busy pic 9(10).
03 fsvw2-comms-timeouts pic 9(10).
*misc
03 fsvw2-filename pic x(255).
03 fsvw2-start-pt pic x(2) comp-x.
03 fsvw2-user-tbl-z pic x(2) comp-x.
03 fsvw2-server-error-flg pic 9.
88 fsvw2-server-error-flg-true value 1.
*password check data
03 fsvw2-supervisor-mode pic 9.
88 fsvw2-supervisor-mode-true value 1.
03 fsvw2-password pic x(100).
03 fsvw2-title pic x(255).
03 fsvw2-help-topic pic 9(2).
03 fsvw2-version pic x(8).
03 fsvw2-user-id-len pic x(2) comp-5 value 20.
03 fsvw2-user-password-len pic x(2) comp-5 value 20.
03 fsvw2-user-id.
05
occurs 20 to 78-user-name-length
times depending on fsvw2-user-id-len pic x.
03 fsvw2-user-password.
05
occurs 20 to 78-user-password-length
times depending on fsvw2-user-password-len pic