DB2 tableCARDDEMO.TRANSACTION_TYPE
Who touches it
Definition
CARDDEMO.TRANSACTION_TYPE TRNTYPE.ddl:1
| TR_TYPE | CHAR(2) NOT NULL |
| TR_DESCRIPTION | VARCHAR(50) NOT NULL |
Statements
| COBTUPDT 10031-INSERT-DB | INSERT | INSERT INTO CARDDEMO.TRANSACTION_TYPE ( TR_TYPE TR_DESCRIPTION ) VALUES ( :INPUT-REC-NUMBER :INPUT-REC-DESC ) | COBTUPDT.cbl:137–148 |
| COBTUPDT 10032-UPDATE-DB | UPDATE | UPDATE CARDDEMO.TRANSACTION_TYPE SET TR_DESCRIPTION = :INPUT-REC-DESC WHERE TR_TYPE = :INPUT-REC-NUMBER | COBTUPDT.cbl:171–175 |
| COBTUPDT 10033-DELETE-DB | DELETE | DELETE FROM CARDDEMO.TRANSACTION_TYPE WHERE TR_TYPE = :INPUT-REC-NUMBER | COBTUPDT.cbl:201–204 |
| COBTUPDT (DATA DIVISION) | DECLARE TABLE | DECLARE CARDDEMO.TRANSACTION_TYPE TABLE ( TR_TYPE CHAR(2) NOT NULL TR_DESCRIPTION VARCHAR(50) NOT NULL ) | DCLTRTYP.dcl:28–31 via COBTUPDT.cbl:54 |
| COTRTLIC 9100-CHECK-FILTERS | SELECT | SELECT COUNT(1) INTO :WS-RECORDS-COUNT FROM CARDDEMO.TRANSACTION_TYPE WHERE ((:WS-EDIT-TYPE-FLAG = '1' AND TR_TYPE = :WS-TYPE-CD-FILTER) OR :WS-EDIT-TYPE-FLAG <> '1') AND ((:WS-EDIT-DESC-FLAG = '1' AND TR_DESCRIPTION LIKE TRIM(:WS-TYPE-DESC-FILTER)) OR :WS-EDIT-DESC-FLAG <> '1') | COTRTLIC.cbl:1803–1815 |
| COTRTLIC 9200-UPDATE-RECORD | UPDATE | UPDATE CARDDEMO.TRANSACTION_TYPE SET TR_DESCRIPTION = :DCL-TR-DESCRIPTION WHERE TR_TYPE = :DCL-TR-TYPE | COTRTLIC.cbl:1846–1850 |
| COTRTLIC 9300-DELETE-RECORD | DELETE | DELETE FROM CARDDEMO.TRANSACTION_TYPE WHERE TR_TYPE = :DCL-TR-TYPE | COTRTLIC.cbl:1900–1903 |
| COTRTLIC (DATA DIVISION) | DECLARE TABLE | DECLARE CARDDEMO.TRANSACTION_TYPE TABLE ( TR_TYPE CHAR(2) NOT NULL TR_DESCRIPTION VARCHAR(50) NOT NULL ) | DCLTRTYP.dcl:28–31 via COTRTLIC.cbl:333 |
| COTRTLIC (DATA DIVISION) | DECLARE CURSOR | DECLARE C-TR-TYPE-FORWARD CURSOR FOR SELECT TR_TYPE ,TR_DESCRIPTION FROM CARDDEMO.TRANSACTION_TYPE WHERE TR_TYPE >= :WS-START-KEY AND ((:WS-EDIT-TYPE-FLAG = '1' AND TR_TYPE = :WS-TYPE-CD-FILTER) OR (:WS-EDIT-TYPE-FLAG <> '1')) AND ((:WS-EDIT-DESC-FLAG = '1' AND TR_DESCRIPTION LIKE TRIM(:WS-TYPE-DESC-FILTER)) OR (:WS-EDIT-DESC-FLAG <> '1')) ORDER BY TR_TYPE | COTRTLIC.cbl:338–352 |
| COTRTUPC 9100-GET-TRANSACTION-TYPE | SELECT | SELECT TR_TYPE ,TR_DESCRIPTION INTO :DCL-TR-TYPE ,:DCL-TR-DESCRIPTION FROM CARDDEMO.TRANSACTION_TYPE WHERE TR_TYPE = :DCL-TR-TYPE | COTRTUPC.cbl:1475–1482 |
| COTRTUPC 9600-WRITE-PROCESSING | UPDATE | UPDATE CARDDEMO.TRANSACTION_TYPE SET TR_DESCRIPTION = :DCL-TR-DESCRIPTION WHERE TR_TYPE = :DCL-TR-TYPE | COTRTUPC.cbl:1544–1548 |
| COTRTUPC 9700-INSERT-RECORD | INSERT | INSERT INTO CARDDEMO.TRANSACTION_TYPE (TR_TYPE TR_DESCRIPTION) VALUES ( :DCL-TR-TYPE ,:DCL-TR-DESCRIPTION) | COTRTUPC.cbl:1597–1602 |
| COTRTUPC 9800-DELETE-PROCESSING | DELETE | DELETE FROM CARDDEMO.TRANSACTION_TYPE WHERE TR_TYPE = :DCL-TR-TYPE | COTRTUPC.cbl:1627–1630 |
| COTRTUPC (DATA DIVISION) | DECLARE TABLE | DECLARE CARDDEMO.TRANSACTION_TYPE TABLE ( TR_TYPE CHAR(2) NOT NULL TR_DESCRIPTION VARCHAR(50) NOT NULL ) | DCLTRTYP.dcl:28–31 via COTRTUPC.cbl:286 |