FSVW2 Datablock

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 %ProgramFiles(x86)%\Micro Focus\Visual COBOL for Visual Studio 2013\cpylib .

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