Procédure DBC

//       PROC RGN=64M,SOUT=A,DPTY='(14,15)',
//            SYS=,SYS2=,
//            LOGT=2400,SYS1=,
//            RGSUF=DBC,PARM1=,PARM2=
//IEFPROC EXEC PGM=DFSMVRC0,DPRTY=&DPTY,REGION=&RGN,
//            PARM='DBC,&RGSUF,&PARM1,&PARM2'
//*
//*
//* THE MEANING AND MAXIMUM SIZE OF EACH PARAMETER
//* IS AS FOLLOWS:
//****************************************************
//*   RGSUF  XXX   EXEC PARM DEFAULT BLOCK SUFFIX FOR
//*                MEMBER DFSPBXXX.
//****************************************************
//*
//*  PARM1 , PARM2 PARAMETERS BOTH ARE USED TO SPECIFY
//*  CHARACTER STRINGS THAT CONTAIN IMS KEYWORD
//*  PARAMETERS. I.E. PARM1='AUTO=Y,PST=222,RES=Y'
//*
//*  ALL OF THE VALID DBCTL KEYWORD PARAMETERS
//*  ARE DESCRIBED BELOW
//****************************************************
//*
//******** CONTROL REGION SPECIFICATIONS ********
//*   RES    X     BLOCK RESIDENT (N = NO, Y = YES)
//*   PST    XXX   NUMBER OF PST'S PERMANENTLY ALLOC
//*   MAXPST XXX   MAXIMUM NUMBER OF PST'S
//*   SRCH   X     MODULE SEARCH INDICATOR FOR DIRECTED LOAD
//*                0 = STANDARD SEARCH
//*                1 = SEARCH JPA AND LPA BEFORE PDS
//*   FMTO         T = ONLINE FORMATTED DUMP WITH
//*                    STORAGE IMAGE DELETIONS.
//*                    TERM=NO SDUMPS ALLOWED.
//*                P = FULL ONLINE FORMATTED DUMP.
//*                    TERM=NO SDUMPS ALLOWED.
//*                F = FULL ONLINE FORMATTED DUMP.
//*                    TERM=NO SDUMPS NOT ALLOWED.
//*                N = NO FORMATTED DUMP, NO OFFLINE
//*                    DUMP. TERM=NO SDUMPS ALLOWED.
//*                Z = NO FORMATTED DUMP, NO OFFLINE
//*                    DUMP. TERM=NO SDUMPS NOT
//*                    ALLOWED.
//*  (DEFAULT)     D = OFFLINE DUMP, OR ONLINE FORMAT-
//*                    TED DUMP WITH STORAGE IMAGE
//*                    DELETIONS IF OFFLINE DUMPING
//*                    FAILS. TERM=NO SDUMPS ALLOWED.
//*                X = OFFLINE DUMP, OR ONLINE FORMAT-
//*                    TED DUMP WITH STORAGE IMAGE
//*                    DELETIONS IF OFFLINE DUMPING
//*                    FAILS. TERM=NO SDUMPS NOT
//*                    ALLOWED.
//*                M = OFFLINE DUMP, ONLINE IMS DUMP
//*                    FORMATTING NOT PERMITTED
//*                    TERM=NO SDUMPS ALLOWED.
//*                R = OFFLINE DUMP, ONLINE IMS DUMP
//*                    FORMATTING NOT PERMITTED
//*                    TERM=NO SDUMPS NOT ALLOWED.
//*   AUTO   X     Y = AUTOMATIC RESTART DESIRED
//*                N = NO AUTOMATIC RESTART
//*   IMSID  XXXX  IMS SUBSYSTEM IDENTIFIER
//*   ISIS   X     N = NO RESOURCE ACCESS SECURITY
//*                R = RACF RESOURCE ACCESS SECURITY
//*                C = RACF RESOURCE ACCESS SECURITY
//*                A = RACF RESOURCE ACCESS SECURITY
//*   ARMRST X     Y = ALLOW MVS ARM TO RESTART
//*                N = ARM NOT RESTART IMS
//*   RRS     X    Y = ENABLE PROT CONV SUPPORT
//*                N = DISABLE PROT CONV SUPPORT
//*   IRLM   X     Y = YES, N = NO
//*   IRLMNM XXXX  IRLM SUBSYSTEM NAME
//*   SSM    XXXX  EXT SUBSYSTEM PROCLIB MEMBER ID

//*   UHASH  XXXXXXXX USER HASH MODULE NAME
//*   DBRCNM XXXXXXXX DBRC PROCLIB MEMBER NAME
//*   DLINM  XXXXXXXX DL/I PROCLIB MEMBER NAME
//*   PRDR   XXXXXXXX IMSRDR PROCLIB MEMBER NAME
//*   DBRSE  XXXXXXXX 8 CHAR DBCTL RSENAME
//*   CRC    X     COMMAND RECOGNITION CHARACTER
//*   CMDMCS X     COMMAND SECURITY OPTION
//*                R=RACF COMMAND SECURITY
//*                C=DFSCCMD0 COMMAND SECURITY
//*                B=RACF AND DFSCCMD0 CMD SEC
//*   PREMSG X     PREFIX MESSAGE OPTION
//*                N=NO DFS000I PREFIX
//*                Y=DEFAULT, DFS000I PREFIX
//*   PIMAX  XXXXXX ENQ/DEQ POOL MAXIMUM BYTES
//*   PIINCR XXXXXX ENQ/DEQ POOL INCREMENT
//*   AOIS    X     ICMD SECURITY OPTION
//*   PSWDC   X     PASSWORD CASE
//*                 U=UPPER CASE
//*                 M=MIXED CASE
//*                 R=USES RACF SETTING (DEFAULT)
//*   YEAR4   X     N = 2-DIGIT DATE (DEFAULT)
//*                 Y = 4-DIGIT DATE
//*   CPLOG   XXXXXK CHECKPOINT LOG INTERVAL
//*           OR
//*   CPLOG   XXM    CHECKPOINT LOG INTERVAL
//*   IMSGROUP XXXX  4 CHAR USER SPEC NAME
//*   DESC    XX    MSG DESC CODE
//*   MCS     (XX,XX) MSG ROUTE CODES
//*   SVC2    XXX   TYPE 2 SVC NUMBER
//*   CCTCVCAN X    Y = CCTL CANCEL WILL BE CONVERTED
//*                     TO ABEND SYSTEM 08E
//*                 N = CCTL CANCEL IS NOT CONVERTED
//*
//******** FDR PARAMETER *****************************
//*
//*   FDRMBR  XX    SUFFIX FOR FDR MEMBER IN
//*                 IMS.PROCLIB
//*
//******** FAST PATH PARAMETERS ********
//*
//*   BSIZ   XXX   DATA BASE BUFFER SIZE
//*   OTHR   XXX   NUMBER OF OUTPUT THREADS
//*   DBFX   XXX   SYSTEM ALLOCATION OF DATA BASE BUFFERS TO BE
//*                FIXED AT START OF 1ST FAST PATH DEP REGION
//*   DBBF   XXX   NUMBER OF DATABASE BUFFERS
//*   DBFP   XXXX  PAGE FIX/FREE ADJUST TIMER
//*                0: FIX/FREE AT SCHED/TERM
//*                1: ALLOW PAGEFIX ONLY
//*                2-3600: SEC PAGEFREE FREQ
//*   LGNR   XX    NUMBER OF LOG ENTRIES IN DEDB BUFFERHEADER
//*   SVSODR XXXX  SVSO DISASTER RECOVERY OPTIONS
//*                NONE: DEFAULT. NO CHANGE TO ERE.
//*                AUTO: AREA MARKED RECOV NEEDED IF
//*
//*                DRRS: AREA MARKED RECOV NEEDED AT
//*
//*                WTOR: USER OPTION TO MARK AREAS
//*
//*   DMHVF  XX    MEGS TO FIX PAGEFIX FOR VSO ERE DATASPACE
//*   FPOPN   X    PREOPEN/REOPEN OPTIONS FOR DEDBS
//*                N: DEFAULT. PREOPEN OF DEDB AREAS
//*                   DONE BEFORE IMS RESTART
//*                   COMPLETES
//*                R: REOPEN AREAS OPENED WHEN IMS
//*                   ABNORMALLY TERMINATED.  BEHAVE
//*                   LIKE OPTION P FOR NON /ERE
//*                P: PREOPEN OF DEDB AREA
//*                   INITIATED AT THE END OF
//*                   RESTART
//*                A: OPTION R AND P COMBINED
//*   FPRLM   X    DEDB OPTIONS FOR IRLM RECONNECT
//*                N: DEFAULT. NO ACTION TAKEN
//*                S: RESTART ALL DEDB AREAS WHICH
//*                   WERE STARTED WHEN IRLM
//*                   DISCONNECTED
//*                R: RESTART AND REOPEN ALL DEDB
//*                   AREAS WHICH WERE STARTED WHEN
//*                   IRLM DISCONNECTED
//*                P: PREOPEN OF DEDB AREA
//*                   INITIATED AT THE END OF
//*                   IRLM RECONNECT
//*                A: COMBINE OPTIONS R AND P
//*   FP      X    INCLUDE FASTPATH IN THIS IMS
//*                N: THE DEFAULT.  THIS IMS DOES
//*                   NOT INCLUDE FASTPATH
//*                Y: THIS IMS INCLUDES FASTPATH

//******** STORAGE POOL VALUES IN K, M OR G ******
//*   DMB    XXXXXX DMB POOL SIZE
//*   CIOP   XXXXXX CIOP POOL UPPER LIMIT
//*   WKAP   XXXXXX WORKING STORAGE BUFFER POOL SIZE
//*   PSBW   XXXXXX PSB WORK POOL SIZE
//*   DBWP   XXXXXX DATABASE WORK POOL SIZE
//*   CSAPSB XXXXXX DLISAS: CSA PSB POOL SIZE
//*   DLIPSB XXXXXX DLISAS: DLI PSB POOL SIZE
//*   EPCB   XXXXXX EPCB POOL SIZE
//*   FPWP   XXXXXX FP WORK POOL UPPER LIMIT
//*   AOIP   XXXXXX AOI POOL UPPER LIMIT
//*   CMDP   XXXXXX CMDP POOL UPPER LIMIT
//*
//******** MEMBER SUFFIXES **********************
//*
//*   SUF    X     LAST CHARACTER OF CTL PROGRAM LOAD
//*                MODULE MEMBER NAME
//*   FIX    XX    2 CHARACTER FIX PROCEDURE MODULE SUFFIX
//*   PRLD   XX    2 CHARACTER PROCLIB MEMBER SUFFIX FOR PRELOAD
//*   VSPEC  XX    2 CHARACTER BUFFER POOL SPEC MODULE SUFFIX
//*   SPM    XX    STORAGE POOL OPTIONS (DFSSPMXX)
//*   CSLG   XXX   CSL GLOBAL MEMBER (DFSCGXXX)
//*   DFSDF  XXX   DRD, CSL, AND SQ MEMBER (DFSDFXXX)
//***********************************************
//*
//STEPLIB  DD DSN=IMS.&SYS2.SDFSRESL,DISP=SHR
//PROCLIB  DD DSN=IMS.&SYS2.PROCLIB,DISP=SHR
//*
//***************************************************
//* IN ORDER TO START A DEPENDENT REGION, MODIFIED
//* START-UP JCL IS WRITTEN FROM INTERNAL STORAGE TO
//* THE INTERNAL READER.
//*
//IMSIRD   DD SYSOUT=(A,INTRDR)

//*********** IMSMON  DD  CARDS  *****************
//*
//* THE IMSMON DD STATEMENT MUST BE REMOVED IF
//* THIS DATA SET IS TO BE DYNAMICALLY ALLOCATED.
//* THE IMSACBA AND IMSACBB DD STATEMENTS MUST BE
//* REMOVED IF YOU WISH TO DYNAMICALLY ALLOCATE THE
//* ACBLIB DATA SETS THROUGH THE DFSMDA MEMBER.
//*
//IMSMON   DD DSN=IMS.&SYS1.IMSMON,DISP=(,KEEP),
//         VOL=(,,,99),UNIT=(&LOGT,,DEFER)
//*
//IMSACBA  DD DSN=IMS.&SYS2.ACBLIBA,DISP=SHR
//IMSACBB  DD DSN=IMS.&SYS2.ACBLIBB,DISP=SHR
//MODBLKSA DD DSN=IMS.&SYS2.MODBLKSA,DISP=SHR
//MODBLKSB DD DSN=IMS.&SYS2.MODBLKSB,DISP=SHR
//MODSTAT  DD DSN=IMS.&SYS.MODSTAT,DISP=SHR
//******** SYSTEM REQUIRED DD CARDS **************
//*
//SYSUDUMP DD SYSOUT=&SOUT,
//         DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129),
//         SPACE=(6050,300,,,ROUND)
//IMSRDS   DD DSN=IMS.&SYS.RDS,DISP=SHR
//PRINTDD  DD SYSOUT=&SOUT
//*
//****** EXTERNAL SUBSYSTEM DD CARDS  ***********
//*
//* USER MAY OPTIONALLY ADD THE DFSESL DD CARD
//* FOR EXTERNAL SUBSYSTEM CONNECTION.
//*
//************ DATA BASE DD CARDS ***************
//*
//* USER MAY OPTIONALLY SUPPLY THE DD STATEMENTS
//* FOR THE ON-LINE DATA BASES TO BE
//* INSERTED HERE PRIOR TO ATTEMPTING
//* AN ON-LINE SYSTEM EXECUTION USING
//* THIS PROCEDURE.
//* IF NO DD STATEMENTS ARE SUPPLIED FOR
//* A DATA BASE, IMS ASSUMES THAT THIS
//* DATA BASE HAS BEEN DESCRIBED THROUGH
//* THE DFSMDA MACRO.
//* IF THE USER WILL BE EXECUTING WITH THE DL/I
//* SAS OPTION, THESE DD STATEMENTS SHOULD BE ADDED
//* TO THE DLISAS PROCLIB MEMBER OR DESCRIBED
//* THROUGH THE DFSMDA MACRO.