SAS/ACCESS Interface to IMS-DL/I Software

View Descriptors

ACCTDBD Database View Descriptors

This section shows SAS statements used to create the view descriptors for the ACCTDBD database used in the examples in this book. The ACCTDBD database is described in Understanding IMS-DL/I Essentials. The view descriptors are presented here in alphabetical order for easy reference.

You can create all the view descriptors used in the book by using PROC ACCESS statements. The view descriptors are based on the MYLIB.ACCOUNT access descriptor shown earlier in this appendix.

proc access dbms=ims ad=mylib.account;
  create vlib.account.view psb=accupsb;
    select  soc_sec_number
            customer_name
            city
            state
            zip_code;
  list view;

  create vlib.cdbtdate.view psb=accupsb;
    select  check_account_number
            check_date;
  list view;

  create vlib.chckacct.view psb=accupsb;
    select  soc_sec_number
            customer_name
            check_account_number
            check_date
            check_balance;
  list view;

  create vlib.chkcrd.view psb=accupsb pcb=2;
    select  customer_record
            checking_account_record
            checking_credit_record;
    reset 17 28;
  list view;

  create vlib.chkdeb.view psb=accupsb pcb=3;
    select  customer_record
            checking_account_record
            checking_debit_record;
    reset 17 22;
  list view;

  create vlib.chktrans.view psb=accupsb;
    select  customer_name
            check_account_number
            check_date
            check_balance;
  list view;

  create vlib.credits.view psb=accupsb;
    select  soc_sec_number
            check_account_number
            check_credit_amount
            check_credit_date
            check_credit_time
            check_credit_desc;
  list view;

  create vlib.custacct.view psb=accupsb;
    select  soc_sec_number
            customer_name
            check_account number;
  list view;

  create vlib.custinfo.view psb=accupsb;
    select  2 3 5 6 7 8 9 10 11 12;
  list view;

  create vlib.custphon.view psb=accupsb;
    select  soc_sec_number
            customer_name
            home_phone
            office_phone;
  list view;

  create vlib.savebal.view psb=accupsb;
    select  soc_sec_number
            customer_name
            city
            32 36;
  list view;

  create vlib.ssname.view psb=accupsb;
    select  soc_sec_number
            customer_name;
  list view;

  create vlib.trans.view psb=accupsb;
    select  soc_sec_number
            check_account_number
            check_debit_amount;
  list view;

run;

EMPLINF2 Database View Descriptors

This section shows SAS statements used to create the view descriptors for the EMPLINF2 database used in the examples in this book. The view descriptors are presented here in alphabetical order for easy reference. You can create all the view descriptors used in the book by using PROC ACCESS statements. The view descriptors are based on the MYLIB.EMPLOYEE access descriptor shown earlier in this appendix.

proc access dbms=ims accdesc=mylib.employee;
  create vlib.emplload.view psbname=empilpsb;
    select  employee_record;
  list view;

  create vlib.emplview.view psbname=empiupsb;
    select  employee_record;
  list view;

  create vlib.empbday.view psbname=empiupsb;
    select  employee_id
            last_name
            first_name
            birthday
            phone_extension;
  list view;
run;

WIRETRAN Database View Descriptor

This section shows SAS statements used to create the VLIB.WIREDATA view descriptor for the WIRETRAN database used in the examples in this book. The view descriptor is based on the MYLIB.WIRETRAN access descriptor shown earlier in this appendix.

proc access dbms=ims ad=mylib.wiretran;
  create vlib.wiredata.view psbname=acctsam
     pcbindex=5;
    select 'wire transaction';
  list view;
run;

Chapter Contents
Previous
Next
Top of Page