//*
//*             COPYRIGHT (C) 1995, SAS INSTITUTE INC.
//*               Unpublished - All Rights Reserved
//*
//*
//*  NAME: SASCTBLS
//*
//*  PURPOSE: Sample table entries for the traditional CICS FILEA
//*             sample.  Copy the macros into your appropriate table
//*             source and reassemble; then, reinstall your tables.
//*             Used with the SASCALL, SASCMNU, and SASCBRW sample
//*             programs.
//*
*             PROGRAM ENTRIES
         DFHPPT TYPE=ENTRY,PGMLANG=ASSEMBLER,PROGRAM=SASCMNU
         DFHPPT TYPE=ENTRY,PGMLANG=ASSEMBLER,PROGRAM=SASCALL
         DFHPPT TYPE=ENTRY,PGMLANG=ASSEMBLER,PROGRAM=SASCBRW
*             MAP ENTRIES
         DFHPPT TYPE=ENTRY,MAPSET=SASCAGA
         DFHPPT TYPE=ENTRY,MAPSET=SASCAGB
         DFHPPT TYPE=ENTRY,MAPSET=SASCAGC
*             TRANSACTION ENTRIES
         DFHPCT TYPE=ENTRY,TRANSID=SMNU,PROGRAM=SASCMNU,               X
               TPURGE=YES,SPURGE=YES
         DFHPCT TYPE=ENTRY,TRANSID=SINQ,PROGRAM=SASCALL,               X
               TPURGE=YES,SPURGE=YES
         DFHPCT TYPE=ENTRY,TRANSID=SADD,PROGRAM=SASCALL,               X
               TPURGE=YES,SPURGE=YES
         DFHPCT TYPE=ENTRY,TRANSID=SUPD,PROGRAM=SASCALL,               X
               TPURGE=YES,SPURGE=YES
         DFHPCT TYPE=ENTRY,TRANSID=SBRW,PROGRAM=SASCBRW,               X
               TPURGE=YES,SPURGE=YES