MFmainframe-rea
WS carddemo · 26f629ef

DB2 tableCARDDEMO.AUTHFRDS

SQL

Who touches it

read
—
inserted
COPAUS2C
updated
COPAUS2C
deleted
—
declared
COPAUS2C
DDL

Definition

CARDDEMO.AUTHFRDS AUTHFRDS.ddl:1

CARD_NUMCHAR(16) NOT NULL
AUTH_TSTIMESTAMP NOT NULL
AUTH_TYPECHAR(4)
CARD_EXPIRY_DATECHAR(4)
MESSAGE_TYPECHAR(6)
MESSAGE_SOURCECHAR(6)
AUTH_ID_CODECHAR(6)
AUTH_RESP_CODECHAR(2)
AUTH_RESP_REASONCHAR(4)
PROCESSING_CODECHAR(6)
TRANSACTION_AMTDECIMAL(12,2)
APPROVED_AMTDECIMAL(12,2)
MERCHANT_CATAGORY_CODECHAR(4)
ACQR_COUNTRY_CODECHAR(3)
POS_ENTRY_MODESMALLINT
MERCHANT_IDCHAR(15)
MERCHANT_NAMEVARCHAR(22)
MERCHANT_CITYCHAR(13)
MERCHANT_STATECHAR(02)
MERCHANT_ZIPCHAR(09)
TRANSACTION_IDCHAR(15)
MATCH_STATUSCHAR(1)
AUTH_FRAUDCHAR(1)
FRAUD_RPT_DATEDATE
ACCT_IDDECIMAL(11)
CUST_IDDECIMAL(9)
3

Statements

COPAUS2C
MAIN-PARA
INSERTINSERT INTO CARDDEMO.AUTHFRDS (CARD_NUM ,AUTH_TS ,AUTH_TYPE ,CARD_EXPIRY_DATE ,MESSAGE_TYPE ,MESSAGE_SOURCE ,AUTH_ID_CODE ,AUTH_RESP_CODE ,AUTH_RESP_REASON ,PROCESSING_CODE ,TRANSACTION_AMT ,APPROVED_AMT ,MERCHANT_CATAGORY_CODE ,ACQR_COUNTRY_CODE ,POS_ENTRY_MODE ,MERCHANT_ID ,MERCHANT_NAME ,MERCHANT_CITY ,MERCHANT_STATE ,MERCHANT_ZIP ,TRANSACTION_ID ,MATCH_STATUS ,AUTH_FRAUD ,FRAUD_RPT_DATE ,ACCT_COPAUS2C.cbl:141–198
COPAUS2C
FRAUD-UPDATE
UPDATEUPDATE CARDDEMO.AUTHFRDS SET AUTH_FRAUD = :AUTH-FRAUD FRAUD_RPT_DATE = CURRENT DATE WHERE CARD_NUM = :CARD-NUM AND AUTH_TS = TIMESTAMP_FORMAT (:AUTH-TS 'YY-MM-DD HH24.MI.SSNNNNNN')COPAUS2C.cbl:222–229
COPAUS2C
(DATA DIVISION)
DECLARE TABLEDECLARE CARDDEMO.AUTHFRDS TABLE ( CARD_NUM CHAR(16) NOT NULL AUTH_TS TIMESTAMP NOT NULL AUTH_TYPE CHAR(4) CARD_EXPIRY_DATE CHAR(4) MESSAGE_TYPE CHAR(6) MESSAGE_SOURCE CHAR(6) AUTH_ID_CODE CHAR(6) AUTH_RESP_CODE CHAR(2) AUTH_RESP_REASON CHAR(4) PROCESSING_CODE CHAR(6) TRANSACTION_AMT DECIMAL(12 2) APPROVED_AMT DECIMAL(12 2) MERCHANT_CATAGORY_CODE CHAR(4) ACQR_COUNTRY_CODE CHAR(3) POS_ENTRY_MODE SMAAUTHFRDS.dcl:24–51 via COPAUS2C.cbl:68