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
↧