Prerequisites

//IBMUSERC JOB ACCT,REGION=32M,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
/*JOBPARM LINES=9999
//*REGION=32M
//*
//*
//*********************************************************************
//* IVP IMS 8.1
//*
//* SKELETON: DFSIXSE9
//*
//* FUNCTION: DEFINE DRA START-UP TABLE FOR USE BY CICS/DBCTL
//*********************************************************************
//*
//************************************************************@SCPYRT**
//* *
//* LICENSED MATERIALS - PROPERTY OF IBM *
//* *
//* RESTRICTED MATERIALS OF IBM *
//* *
//* 5655-C56 *
//* *
//* (C) COPYRIGHT IBM CORP. 1989,2002 *
//* *
//************************************************************@ECPYRT**
//*
//*********************************************************************
//ASMDRA PROC MBR=DFSIVP10
//*
//ASM EXEC PGM=ASMA90,PARM='OBJECT,NODECK'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=IMS810.ADFSMAC
// DD DISP=SHR,DSN=SYS1.MACLIB
//SYSLIN DD UNIT=3390,DISP=(,PASS,DELETE),SPACE=(CYL,(1,1)),
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSUT1 DD UNIT=3390,DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=3390,DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=(3390,SEP=(SYSLIB,SYSUT1,SYSUT2)),
// DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))
//*
//LKED EXEC PGM=IEWL,COND=(0,LT,ASM),
// PARM='NCAL,LET,LIST,XREF'
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DISP=(OLD,DELETE,DELETE),
// DSN=*.ASM.SYSLIN,VOL=REF=*.ASM.SYSLIN
//SYSLMOD DD DISP=SHR,
// DSN=IMS810.SDFSRESL(&MBR)
//SYSUT1 DD UNIT=(3390,SEP=(SYSLMOD,SYSLIN)),
// DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))
// PEND
//*********************************************************************
//*
//* THE FOLLOWING STEP ASSEMBLES AND LINK-EDITS INTO IMS RESLIB
//* THE DEFAULT PARAMETERS USED BY THE IMS CONTROL REGION - IVP3
//*
//*DFSPZPIV EXEC PROC=ASMDRA,MBR=DFSPZPIV
//DFSIVP10 EXEC PROC=ASMDRA,MBR=DFSIVP10
//ASM.SYSIN DD *
PZP TITLE 'DATABASE RESOURCE ADAPTER STARTUP PARAMETER TABLE'
*DFSPZP00 CSECT
DFSIVP10 CSECT
**********************************************************************
* *
* MODULE NAME: DFSPZP00 *
* *
* DESCRIPTIVE NAME: DATABASE RESOURCE ADAPTER (DRA) *
* STARTUP PARAMETER TABLE. *
* *
* FUNCTION: TO PROVIDE THE VARIOUS DEFINITIONAL PARAMETERS *
* FOR THE COORDINATOR CONTROL REGION. THIS *
* MODULE MAY BE ASSEMBLE BY A USER SPECIFYING *
* THEIR PARTICULAR NAMES, ETC. AND LINKEDITED *
* INTO THE USER RESLIB AS DFSPZPXX . WHERE XX *
* IS EITHER 00 FOR THE DEFAULT, OR ANY OTHER ALPHA- *
* NUMERIC CHARACTERS. *
* *
* KEYWORDS FOR THE DFSPRP MACRO: *
* DSECT=NO-A DSECT STATEMENT FOR PRP WILL NOT BE *
* GENERATED (LABEL DFSPRP WILL BE ON DS 0D). *
* *
* FUNCLV= DEFAULT (1). ADAPTER FUNCTIONAL LEVEL. *
* *
* DDNAME= 1 TO 8 CHARACTER DD NAME TO BE USED WITH *
* DYNAMIC ALLOCATION OF THE DBCTL RESLIB. *
* DEFAULT (CCTLDD). *
* *
* DSNAME= 1 TO 44 CHARACTER DATASET NAME OF THE *
* DBCTL RESLIB. *
* DEFAULT (IMS.SDFSRESL). *
* *
* DBCTLID=XXXX-NAME OF THE DBCTL REGION *
* DEFAULT = SYS1 *
* *
* USERID=XXXXXXXX-NAME OF THE USER REGION *
* *
* MINTHRD=XXX-MINIMUM NUMBER OF THREADS TO BE *
* AVAILABLE (MAXIMUM NUMBER IS 255) *
* DEFAULT = 1 *
* *
* MAXTHRD=XXX-MAXIMUM NUMBER OF THREADS TO BE *
* AVAILABLE (MAXIMUM NUMBER IS 255) *
* DEFAULT = 1 *
* *
* TIMER=XX-IDENTIFY TIMER VALUE IN SECONDS (DEFAULT 60) *
* *
* FPBUF=XXX-NUMBER OF FAST PATH BUFFERS TO BE ALLOCATED *
* AND FIXED PER THREAD (DEFAULT 00) *
* *
* FPBOF=XXX-NUMBER OF FAST PATH OVERFLOW BUFFERS TO BE *
* ALLOCATED PER THREAD (DEFAULT 00) *
* *
* SOD=X-OUTPUT CLASS TO BE USED FOR SNAP DUMP OF *
* ABNORMAL THREAD TERMINATIONS (DEFAULT A) *
* *
* TIMEOUT=XXX-DRATERM TIMEOUT VALUE IN SECONDS(DEFLT 60)*
* *
* CNBA=XXXX - TOTAL FP NBA BUFFERS FOR CCTL *
* *
* *
* AGN=XXXXXXXX-1 TO 8 CHARACTER APPLICATION GROUP NAME *
* *
* LOCATION: PRIVATE STORAGE, USER KEY *
* *
* THIS MODULE CONTAINS NO EXECUTABLE CODE. *
* *
**********************************************************************
EJECT
DFSPRP DSECT=NO, X
FUNCLV=1, X CCTL FUNCTION LEVEL X
DDNAME=CCNXDD, XXXXXXXX DDN FOR CCTL RESLIB DYNALOC X
DSNAME=IMS810.SDFSRESL, X
DBCTLID=IVP1, NAME OF DBCTL REGION X
USERID=, XXXXXXXX NAME OF USER REGION X
MINTHRD=001, XXX MINIMUM THREADS X
MAXTHRD=100, XXX MAXIMUM THREADS X
TIMER=60, XX IDENTIFY TIMER VALUE - SECS X
FPBUF=001, XXX FP FIXED BFRS PER THREAD X
FPBOF=001, XXX FP OVFLW BFRS PER THREAD X
SOD=H, X SNAP DUMP CLASS X
TIMEOUT=060, XXX DRATERM TIMEOUT IN SECONDS X
CNBA=001, XXX TOTAL FP NBA BFRS FOR CCTL X
AGN=IVP XXXXXXXX APPLICATION GROUP NAME
END
//*
//* DBCTLID=, XXXX NAME OF DBCTL REGION X
//* USERID=CNXODBA, XXXXXXXX NAME OF USER REGION X