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
//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.