Batch job · 5 steps · CREADB21.jcl:1CREADB2

  … 14 comment lines
 DSN SYSTEM(DAZ1)
  FREE PLAN(CARDDEMO)
  FREE PLAN(COTRTLIC)
  FREE PACKAGE(COTRTLIC.*)
 END

  … 14 comment lines
  SET CURRENT SQLID = 'SYSADM';

      CREATE DATABASE CARDDEMO
             STOGROUP AWST1STG
             BUFFERPOOL BP0
             CCSID EBCDIC;

      COMMIT ;

      CREATE TABLESPACE CARDSPC1
        IN CARDDEMO
        USING STOGROUP AWST1STG
        SEGSIZE 4
        LOCKSIZE TABLE
        BUFFERPOOL BP0
        CLOSE NO
        CCSID EBCDIC;

      COMMIT ;

      CREATE TABLE  CARDDEMO.TRANSACTION_TYPE
       (       TR_TYPE   CHAR(2)      NOT NULL,
        TR_DESCRIPTION   VARCHAR(50)  NOT NULL,
                 PRIMARY KEY(TR_TYPE))
         IN CARDDEMO.CARDSPC1
         CCSID EBCDIC;
…

  … 14 comment lines
  DSN SYSTEM(DAZ1)
  RUN PROGRAM(DSNTIAD) -
  PARMS('RC0')

  … 14 comment lines
 INSERT INTO CARDDEMO.TRANSACTION_TYPE
        (TR_TYPE,TR_DESCRIPTION)
 SELECT '01','PURCHASE'      FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '02','PAYMENT'       FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '03','CREDIT'        FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '04','AUTHORIZATION' FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '05','REFUND'        FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '06','REVERAL'       FROM SYSIBM.SYSDUMMY1 UNION ALL
 SELECT '07','ADJUSTMENT'    FROM SYSIBM.SYSDUMMY1
 COMMIT;

  … 14 comment lines
  DSN SYSTEM(DAZ1)
  RUN PROGRAM(DSNTEP4) -
  PLAN(DSNTEP4) -
  PARMS('/ALIGN(LHS) MIXED')

  … 14 comment lines
 INSERT INTO CARDDEMO.TRANSACTION_TYPE_CATEGORY
      (TRC_TYPE_CODE    ,
       TRC_TYPE_CATEGORY,
       TRC_CAT_DATA     )
 WITH DMY AS (SELECT * FROM SYSIBM.SYSDUMMY1)
 SELECT '01','0001','REGULAR SALES DRAFT'           FROM DMY UNION ALL
 SELECT '01','0002','REGULAR CASH ADVANCE'          FROM DMY UNION ALL
 SELECT '01','0003','CONVENIENCE CHECK DEBIT'       FROM DMY UNION ALL
 SELECT '01','0004','ATM CASH ADVANCE'              FROM DMY UNION ALL
 SELECT '01','0005','INTEREST AMOUNT'               FROM DMY UNION ALL
 SELECT '02','0001','CASH PAYMENT'                  FROM DMY UNION ALL
 SELECT '02','0002','ELECTRONIC PAYMENT'            FROM DMY UNION ALL
 SELECT '02','0003','CHECK PAYMENT'                 FROM DMY UNION ALL
 SELECT '03','0001','CREDIT TO ACCOUNT'             FROM DMY UNION ALL
 SELECT '03','0002','CREDIT TO PURCHASE BALANCE'    FROM DMY UNION ALL
 SELECT '03','0003','CREDIT TO CASH BALANCE'        FROM DMY UNION ALL
 SELECT '04','0001','ZERO DOLLAR AUTHORIZATION'     FROM DMY UNION ALL
 SELECT '04','0002','ONLINE PURCHASE AUTHORIZATION' FROM DMY UNION ALL
 SELECT '04','0003','TRAVEL BOOKING AUTHORIZATION'  FROM DMY UNION ALL
 SELECT '05','0001','REFUND CREDIT'                 FROM DMY UNION ALL
 SELECT '06','0001','FRAUD REVERSAL'                FROM DMY UNION ALL
 SELECT '06','0002','NON FRAUD REVERSAL'            FROM DMY UNION ALL
 SELECT '07','0001','SALES DRAFT CREDIT ADJUSTMENT' FROM DMY

 COMMIT;

  … 14 comment lines
  DSN SYSTEM(DAZ1)
  RUN PROGRAM(DSNTEP4) -
  PLAN(DSNTEP4) -
  PARMS('/ALIGN(LHS) MIXED')