******************************************************************
      *** Working-Storage-velden die in vrijwel alle programma's     ***
      *** worden gebruikt.    .                                      ***
      *** Werkwijze:                                                 ***
      ***   Copy VBNCS001 replacing ==($$)== by ==???===.            ***
      ***   (Voor ??? zelf (n)iets invullen.)                        ***
      ***                                                            ***
      *** LET OP: in dit copybook zit een 01-level. (Omdat deze vel- ***
      ***         den niet mogen worden geïnitialiseerd.             ***
      ***                                                            ***
      ******************************************************************
           06  ($$)SW-FAULT            PIC S9(004) COMP-3.
               88  GEEN-FOUT                       VALUE  0.
               88  FUNCTIONELE-FOUTEN              VALUE  1 THRU  9999.
               88  TECHNISCHE-FOUTEN               VALUE -9999 THRU -1.
               88  FUNCTIONELE-FOUT1               VALUE  1.
               88  FUNCTIONELE-FOUT2               VALUE  2.
               88  FUNCTIONELE-FOUT3               VALUE  3.
               88  FUNCTIONELE-FOUT4               VALUE  4.
               88  FUNCTIONELE-FOUT5               VALUE  5.
               88  FUNCTIONELE-FOUT6               VALUE  6.
               88  FUNCTIONELE-FOUT7               VALUE  7.
               88  FUNCTIONELE-FOUT8               VALUE  8.
               88  FUNCTIONELE-FOUT9               VALUE  9.
               88  TECHNISCHE-FOUT1                VALUE -1.
               88  SQL-FOUT                        VALUE -1.
               88  TECHNISCHE-FOUT2                VALUE -2.
               88  GENERATE-FOUT                   VALUE -2.
               88  TECHNISCHE-FOUT3                VALUE -3.
               88  PARSE-FOUT                      VALUE -3.
               88  TECHNISCHE-FOUT4                VALUE -4.
               88  TECHNISCHE-FOUT5                VALUE -5.
               88  TECHNISCHE-FOUT6                VALUE -6.
               88  ASR-TIMESTAMP-FOUT              VALUE -6.
               88  TECHNISCHE-FOUT7                VALUE -7.
               88  QUEUE-FOUT                      VALUE -7.
               88  TECHNISCHE-FOUT8                VALUE -8.
               88  TECHNISCHE-FOUT9                VALUE -9.
           06  ($$)SQL-MELDING.
               11                      PIC  X(010) VALUE 'SQL-code: '.
               11  ($$)SQL-CODE        PIC S9(005)
                                            SIGN LEADING SEPARATE.
           06  ($$)TESTVELDEN.
               11                      PIC S9(004) COMP-3 VALUE ZERO.
                   88  TOON-DISPLAYS                      VALUE  1.
               11  ($$)CV-TALLY        PIC S9(004) COMP   VALUE ZERO.
               11  ($$)CV-DISP-EBCDIC  PIC  X(10000).

      *** Een aantal hulpvelden om SonarCube tevreden te stellen.    ***
       01  FILLER.
           06  TS-MAX value '9999-12-31-24.00.00.000000'.
               11  TS-DATUM-MAX        PIC  X(010).
               11  TS-TIJD-LANG-MAX.
                   16                  PIC  X(001).
                   16  TS-TIJD-MAX     PIC  X(008).
                   16                  PIC  X(007).
           06  TS-MIN value '0001-01-01-00.00.00.000000'.
               11  TS-DATUM-MIN        PIC  X(010).
               11  TS-TIJD-LANG-MIN.
                   16                  PIC  X(001).
                   16  TS-TIJD-MIN     PIC  X(008).
                   16                  PIC  X(007).
           06  EBCDIC-CCSID            PIC  9(004) BINARY VALUE 1140.
           06  UTF8-CCSID              PIC  9(004) BINARY VALUE 1208.