The CICS Application Programming Primer sample application

You can use this sample application to demonstrate the design and programming of a standard CICS® application.

It provides online inquiry and maintenance for a sample customer credit file in a department store. The application uses VSAM files and 3270 display and printer terminals. It was written before publication of the Common User Access guidelines, and provides similar function, without CUA support, as the CUA sample application.

Creating the data sets for the Primer application

To create the data sets that the Primer sample application requires, edit and submit the sample job.
Figure 1. Example JCL to create the Primer sample data sets
//DEFACCTF JOB (accounting parameters),MSGCLASS=A,MSGLEVEL=(1,1),
//         CLASS=A,NOTIFY=userid
//*
//*********************************************************************
//*          CICS sample jobs to define ACCT files
//*
//* This job deletes and defines the following data sets for the
//* ACCT sample described in the CICS Application Programming Primer
//*
//*  STEPS:
//*  . DELETE AND DEFINE
//*      - DELETE/DEFINE THE CLUSTERS FOR:
//*          . CICSTS53.CICS.ACCTFILE
//*          . CICSTS53.CICS.ACIXFILE
//*
//*  THE HIGH-LEVEL-QUALIFIER(S) OF THE DATASETS: CICSTS53.CICS
//*  THE VOLUME SERIAL                            CICS41
//*  THE UNIT TYPE                                3390
//*
//*********************************************************************
//DELETE    EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 DELETE CICSTS53.CICS.ACCTFILE
 DELETE CICSTS53.CICS.ACIXFILE
 SET MAXCC=0
/*
//DEFINE    EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 /*                              */
 DEFINE CLUSTER(NAME(CICSTS53.CICS.ACCTFILE)-
          KEYS(5 0)-
          INDEXED -
          RECORDSIZE(383 383)-
          REC(80)-
          SHR(2 3)-
          VOLUMES(CICS41)) -
        DATA(NAME(CICSTS53.CICS.ACCTFILE.DATA)-
          UNIQUE)-
       INDEX(NAME(CICSTS53.CICS.ACCTFILE.INDEX)-
          UNIQUE)
          /*                              */
 DEFINE CLUSTER(NAME(CICSTS53.CICS.ACIXFILE)-
          KEYS(17 0)-
          INDEXED -
          RECORDSIZE(63 63)-
          REC(80)-
          SHR(2 3)-
          VOLUMES(CICS41)) -
        DATA(NAME(CICSTS53.CICS.ACIXFILE.DATA)-
          UNIQUE)-
       INDEX(NAME(CICSTS53.CICS.ACIXFILE.INDEX)-
          UNIQUE)
/*
//*

Making the data sets available to CICS

You can cause CICS to dynamically allocate the files for these data sets and open them on first reference by installing the sample resource definitions in the group DFH$ACCT.

If no DD statement exists for these data sets in the CICS startup job stream, the files are allocated to the data sets with DSNAMEs that are specified in the resource definitions: hlq.ACCTFILE and hlq.ACIXFILE. Alternatively, you can add DD statements for the data sets to your CICS startup job, which causes CICS to use the DSNAMEs specified on the DD statements instead of those in the resource definitions.

For information about this sample application, see the CICS Application Programming Primer.