Quantcast
Channel: Visual COBOL
Viewing all articles
Browse latest Browse all 5819

Forum Post: RE: Errors migrating from Netexpress 5.1 to Visual Cobol 2.3

$
0
0
Hi Chris,       01  STRBUFF             PIC X(30).             01  WS-FETCH-CNT        PIC 9(08).       01  WS-SQLCODE-OUD      PIC S9(9) COMP.       01  WS-IX               PIC 9(03).      *KM044-START      *01  WS-MAX              PIC 9(03) VALUE 55.       01  WS-MAX              PIC 9(03) VALUE 110.      *KM044-END       01  WS-HLPMAX           PIC 9(03).       01  PC-FLD.           03  PC-FLDNAM       PIC X(32).           03  PC-FLDVAL       PIC X(80).       01  DB-FLDNAM           PIC X(32).       01  PC-SELVAL           PIC X(80).       01  DB-WHRAND           PIC X(06).       01  DB-EQL              PIC X(06).       01  DB-SELLEN           PIC S9(04) COMP.       01  WS-LEN              PIC 9(04).       01  WS-SELQUEUE-1       PIC X.           88 SELQUEUE-1-OPEN  VALUE "J".           88 SELQUEUE-1-DICHT VALUE "N".       01  WS-SELQUEUE-2       PIC X.           88 SELQUEUE-2-OPEN  VALUE "J".           88 SELQUEUE-2-DICHT VALUE "N".       01  WS-DEBUG-MODE                PIC 9(1).           88 WS-DEBUG-UIT              VALUE 0.           88 WS-DEBUG-AAN              VALUE 1.           EXEC SQL BEGIN DECLARE SECTION END-EXEC.       01  DB-SELSTMT                   PIC X(620).       01  nullind-array.      * Array 1 groter dan ws-max i.v.m. maxexeed      *     03  NULLIND                  OCCURS 56 PIC S9(4) COMP.            03  NULLIND                      PIC S9(4) COMP.       01  WS-QUR-VZD-ID                PIC X(10).       01  WS-QUE-DATUM-VAN             PIC X(14).       01  WS-QUE-DATUM-TEM             PIC X(14).       01  WS-QUE-DATUM-WENS-VAN        PIC X(14).       01  WS-QUE-DATUM-WENS-TEM        PIC X(14).       01  WS-KCT-INSTAL-IND            PIC X(01).       01  WS-KCT-INFRA-IND             PIC X(01).       01  WS-KCT-CONTRACT-IND          PIC X(01).       01  WS-KCT-OVR-INFRA-IND         PIC X(01).       01  WS-KCT-RANDAPP-IND           PIC X(01).       01  WS-KCT-BELETSEL-IND          PIC X(01).       01  WS-UITV-NA-WENS-IND          PIC X(01).       01  WS-QUE-DATUM-WENS            PIC X(08).       01  WS-KCT-ID                    PIC X(10).      *Rel27: Extra column in WFM for Afsluiter : Start       01  WS-QUE-DATUM-UITV            PIC X(08).      *Rel27: Extra column in WFM for Afsluiter : End      *REL27: WFM change foe WorkFlow - Start       01  WS-QUE-TREFWOORD             PIC X(040).          *SI361-Start      *KM007-START      *01  I-KCT-ID-VAN-IN1             PIC X(010).      *01  I-KCT-ID-TEM-IN1             PIC X(010).          *01  WS-COUNT                     PIC 9(02).      *01  WS-LENGTH                    PIC 9(02).      *01  WS-ACTUAL                    PIC 9(02).      *KM007-END      *SI361-End       01  DAT-DB.      * Array 1 groter dan ws-max i.v.m. maxexeed           02  I-KCT-ID-DB OCCURS 111 PIC X(010).           02  I-VZD-ID-DB OCCURS 111 PIC X(010).           02  I-QUE-VZD-ID-VK-DB OCCURS 111 PIC X(010).           02  S-VZD-NAAM-VK-DB OCCURS 111 PIC X(030).           02  I-QUE-VZD-ID-UITV-DB OCCURS 111 PIC X(010).           02  S-VZD-NAAM-UITV-DB OCCURS 111 PIC X(030).           02  S-QNM-QUEUE-CODE-DB OCCURS 111 PIC X(002).           02  S-QUE-FSS-STATUS-DB OCCURS 111 PIC X(006).           02  D-QUE-MUTATIE-TIJDSTIP-DB OCCURS 111 PIC X(014).           02  S-QUE-MUTATOR-DB OCCURS 111 PIC X(011).           02  S-QUE-NIEUW-IND-DB OCCURS 111 PIC X(001).           02  S-QUE-LOCK-IND-DB OCCURS 111 PIC X(001).           02  S-QUE-LOCK-USERNAME-DB OCCURS 111 PIC X(011).           02  D-QUE-LOCK-TIJDSTIP-DB OCCURS 111 PIC X(014).           02  S-KCT-VERKOPER-DB OCCURS 111 PIC X(011).           02  D-KCT-CREATIE-TIJDSTIP-DB OCCURS 111 PIC X(014).           02  S-KCT-TREFWOORD-DB OCCURS 111 PIC X(040).           02  S-QUE-STATUS-OMS-DB OCCURS 111 PIC X(040).           02  S-QUE-GEBR-NAAM-OPMAAK-DB OCCURS 111 PIC X(070).           02  S-QUE-GEBR-POSTCODE-DB OCCURS 111 PIC X(006).           02  S-QUE-GEBR-WOONPLAATS-DB OCCURS 111 PIC X(024).           02  S-QUE-CONTRACTANT-NAAM-DB OCCURS 111 PIC X(070).           02  S-QUE-CONTRACTANT-CKRNR-DB OCCURS 111 PIC X(070).           02  S-FSS-REDEN-DB OCCURS 111 PIC X(030).           02  S-QUE-VERKOPER-NAAM-DB OCCURS 111 PIC X(040).           02  D-QUE-DATUM-WENS-DB OCCURS 111 PIC X(008).           02  S-KCT-INSTAL-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-INFRA-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-CONTRACT-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-OVR-INFRA-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-RANDAPP-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-REGIE-IND-DB OCCURS 111 PIC X(001).           02  S-KCT-BELETSEL-IND-DB OCCURS 111 PIC X(001).           02  S-UITV-NA-WENS-IND-DB OCCURS 111 PIC X(001).           02  S-QUE-VERK-DOORGESTUURD-DB OCCURS 111 PIC X(040).           02  S-QUE-IND-FYSIEK-DOC-DB OCCURS 111 PIC X(001).      *Rel27: Extra column in WFM for Afsluiter : Start           02  D-QUE-DATUM-UITV-DB OCCURS 111 PIC X(008).      *Rel27: Extra column in WFM for Afsluiter : End      *SI361-Start      *KM007-START          *01  WS-X-KCT-ID-TEM-IN           PIC X(01).      *01  WS-X-KCT-INSTAL-IND-IN       PIC X(01).      *01  WS-I-KCT-ID-TEM-IN           PIC X(010).      *01  WS-X-KCT-INFRA-IND-IN        PIC X(01).      *01  WS-S-KCT-INSTAL-IND-IN       PIC X(01).      *01  WS-S-KCT-INFRA-IND-IN        PIC X(01).      *01  WS-X-KCT-CONTRACT-IND-IN     PIC X(01).      *01  WS-S-KCT-CONTRACT-IND-IN     PIC X(01).      *01  WS-X-KCT-RANDAPP-IND-IN      PIC X(01).      *01  WS-S-KCT-RANDAPP-IND-IN      PIC X(01).      *01  WS-X-KCT-BELETSEL-IND-IN     PIC X(01).      *01  WS-S-KCT-BELETSEL-IND-IN     PIC X(01).      *KM007-END        *SI361-End      *    EXEC SQL INCLUDE rec_wfm_queue_rr_db.inc END-EXEC.           EXEC SQL END DECLARE SECTION END-EXEC. Thank You Ramesh

Viewing all articles
Browse latest Browse all 5819

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>