DBC - Database Control (DBCTL) stage 1
This topic contains the stage 1 source for a DBCTL system.
![Start of change](./delta.gif)
*
***********************************************************************
* IVP IMS 14.1
*
* SKELETON: DFSIXSC1
*
* FUNCTION: STAGE 1 SOURCE FOR A DBC SYSTEM
***********************************************************************
*
**************************************************************@SCPYRT**
* *
* LICENSED MATERIALS - PROPERTY OF IBM *
* *
* 5635-A05 *
* *
* COPYRIGHT IBM CORP. 1989,1998 ALL RIGHTS RESERVED *
* *
* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR *
* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH *
* IBM CORP. *
* *
**************************************************************@ECPYRT**
*
* IMSCTRL MACRO --
*
IMSCTRL SYSTEM=(VS/2,(ALL,DBCTL),390), X
IRLM=YES, X
IRLMNM=IRLM, X
CMDCHAR=/, X
DBRCNM=IVPXXRC3, X
DLINM=IVPXXDL3, X
IMSID=IVP3, X
NAMECHK=(YES,S1), X
MAXREGN=(005,512K,A,A), X
MCS=(2,7), X
DESC=7, X
MAXCLAS=016
*
* IMSCTF MACRO --
*
IMSCTF SVCNO=(,203,202), X
LOG=SNGL, X
CPLOG=500000, X
RDS=(LGDK,4096), X
PRDR=IVPXXRD3
*
* BUFPOOLS MACRO --
*
BUFPOOLS PSB=24000, X
DMB=24000, X
SASPSB=(4000,20000), X
PSBW=12000
**********************************************************************
* IVP DATABASES DEFINITION
**********************************************************************
DATABASE DBD=IVPDB1,ACCESS=UP HIDAM/OSAM
DATABASE INDEX,DBD=IVPDB1I,ACCESS=UP HIDAM/VSAM INDEX
DATABASE DBD=IVPDB2,ACCESS=UP HDAM/VSAM
DATABASE DBD=IVPDB3,ACCESS=UP DEDB
**********************************************************************
* IVP BATCH/BMP APPLICATION DEFINITION
**********************************************************************
SPACE 2
APPLCTN PSB=DFSIVP6,PGMTYPE=BATCH HIDAM/OSAM-ASSEM
SPACE 2
APPLCTN PSB=DFSIVP61,PGMTYPE=BATCH HIDAM/OSAM-PASCAL
SPACE 2
APPLCTN PSB=DFSIVP62,PGMTYPE=BATCH HIDAM/OSAM-C
SPACE 2
APPLCTN PSB=DFSIVP64,PGMTYPE=BATCH HIDAM/OSAM-COBOL
SPACE 2
APPLCTN PSB=DFSIVP65,PGMTYPE=BATCH HIDAM/OSAM-REXX
SPACE 2
APPLCTN PSB=DFSIVP67,PGMTYPE=BATCH HDAM/VSAM -JAVA
SPACE 2
APPLCTN PSB=DFSIVP7,PGMTYPE=BATCH HDAM/VSAM
SPACE 2
APPLCTN PSB=DFSIVP9,PGMTYPE=BATCH HIDAM/OSAM OLIC
SPACE 2
APPLCTN PSB=DFSIVPA,PGMTYPE=BATCH HIDAM LOAD
SPACE 2
APPLCTN PSB=DFSIVPB,PGMTYPE=BATCH HDAM LOAD
SPACE 2
APPLCTN PSB=DFSIVP8,PGMTYPE=BATCH DEDB/VSAM
SPACE 2
APPLCTN PSB=DFSIVPC,PGMTYPE=BATCH DEDB (DB LOAD)
SPACE 2
SPACE 2
APPLCTN PSB=DFSIVP1,PGMTYPE=TP HIDAM/OSAM
**********************************************************************
* IMS SAMPLE DATABASES DEFINITION
**********************************************************************
SPACE 2
DATABASE DBD=DI21PART,ACCESS=UP HISAM/VSAM
EJECT ,
**********************************************************************
* IMS SAMPLE APPLICATION DEFINITION - CICS IVP
**********************************************************************
SPACE 2
APPLCTN PSB=DFHSAM04,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFHSAM14,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFHSAM24,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFHSAM05,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFHSAM15,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFHSAM25,PGMTYPE=BATCH
EJECT ,
**********************************************************************
* IMS SAMPLE APPLICATION DEFINITION
**********************************************************************
SPACE 2
APPLCTN PSB=DFSSAM01,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFSSAM08,PGMTYPE=BATCH
SPACE 2
APPLCTN PSB=DFSSAM09,PGMTYPE=BATCH GENERAL PURPOSE
SPACE 2
*
* IMSGEN MACRO --
*
IMSGEN ASM=(HLASM,SYSLIN),ASMPRT=OFF, X
LKPRT=(XREF,LIST),LKSIZE=(880K,63K),LKRGN=900K, X
SUFFIX=I, X
SURVEY=YES, X
NODE=(IVPEXE14, X
IVPSYS14, X
IVPDLB14), X
OBJDSET=IVPSYS14.OBJDSET, X
PROCLIB=YES, X
USERLIB=IVPSYS14.SDFSRESL, X
UMAC0=, X
MACSYS=SYS1.MACLIB, X
MODGEN=SYS1.MODGEN, X
SCEERUN=CEE.SCEERUN, X
UMAC1=, X
UMAC2=, X
UMAC3=, X
ONEJOB=(YES,YES), X
JCL=(IMSGEN, X
ACTINFO1, X
'PGMRNAME',H, X
(CLASS=A, X
MSGLEVEL=(1,1),REGION=512M,NOTIFY=IMSPROG)), X
SCL=(,,(TIME=600)), X
UJCL1=, X
UJCL2=, X
UJCL3=, X
UJCL4=, X
UJCL5=
END ,
![End of change](./deltaend.gif)