DCC procedure
The DCC procedure is an online execution procedure to initialize the DCCTL environment.
If dynamic resource definition (DRD) is enabled for your runtime resource definitions, and you are no longer using the IMS.MODBLKS data sets, this procedure no longer requires the DD statements for the IMS.MODBLKS data sets, MODBLKSA and MODBLKSB.
Modify the DCC procedure to specify the actual DD statements that are needed by the installation. The DCC parts contain examples on how these DD statements should be coded based on the actual definitions defined by the installation.
Parameters
The following parameters are valid for the DCC procedure. See Parameter descriptions for IMS procedures for descriptions of the parameters.
| ALOT= to FBP= | FESTIM= to OTMANM= | OTMASE= to RVFY= | SAV= to YEAR4= |
|---|---|---|---|
| ALOT= | FESTIM= | OTMANM= | SAV= |
| AOIP= | FIX= | OTMASE= | SGN= |
| AOIS= | FMTO= | OTMASP= | SHAREQ= |
| AOI1= | FRE= | PASSWD1= | SHMSGSZ= |
| APPC= | GRNAME= | PRDR= | SIMEXIT= |
| APPCSE= | GRSNAME= | PRLD= | SOD= |
| APPLID1= | HIOP= | PSB= | SOUT= |
| APPLID2= | HSBID= | PSBW= | SPM= |
| APPLID3= | HSBMBR= | PST= | SRCH= |
| ARMRST= | IMSGROUP= | PSWDC= | SSM= |
| ASOT= | IMSID= | QBUF= | SUF= |
| AUTO= | ISIS= | QBUFHITH= | SVC2= |
| CIOP= | LGMSGSZ= | QBUFLWTH= | SYS= |
| CMDMCS= | LHTS= | QBUFMAX= | SYS1= |
| CPLOG= | LTERM= | QBUFPCTX= | SYS2= |
| CRC= | LUMC= | QBUFSZ= | TCORACF= |
| CSLG= | LUMP= | QTL= | |
| DBRCNM= | MAXPST= | QTU= | TRN= |
| DC= | MCS= | RCF= | TSR= |
| DESC= | MFSEXITF= | RCFTCB= | UHTS= |
| DSCT= | MFSEXITS= | RCLASS= | USERMSGS= |
| DYNP= | MSC= | RDS= | USERVAR= |
| EMHB= | NHTS= | RECA= | VAUT= |
| EMHL= | NLXB= | RECASZ= | VSPEC= |
| EPCB= | NODE1= | RES= | WKAP= |
| ETO= | NODE2= | RGN= | YEAR4= |
| EXVR= | OTMA= | RGSUF= | |
| FBP= | OTMAASY= | RRS= | |
| FESEXIT= | OTMAMD= | RVFY= |
DD statements
The following table lists the valid DD statements for the DCC procedure. See also DD statements for IMS procedures.
| DFSDUPPM to IMSMON | IMSRDS to PRINT | PROCLIB to SYSUDUMP |
|---|---|---|
| DFSDUPPM DD | IMSRDS DD | PROCLIB DD |
| DFSESL DD (optional) | IMSRDS2 DD | QBLKS DD |
| DFSOLPnn DD | IMSTFMTA DD | QBLKSL DD |
| DFSOLSnn DD | IMSTFMTB DD | RECON1 DD (optional) |
| DFSTCF DD (optional) | LGMSG DD | RECON2 DD1 (optional) |
| FORMATA DD | LGMSGL DD | RECON3 DD1 (optional) |
| FORMATB DD | MODBLKSA DD | SHMSG DD |
| IMSACBA DD | MODBLKSB DD | SHMSGL DD |
| IMSACBB DD | MODSTAT DD | STEPLIB DD |
| IMSDALIB DD (optional) | ||
| IMSIRD DD | MODSTAT2 DD | SYSABEND DD |
| IMSMON DD | PRINT DD | SYSUDUMP DD |
Important:
- If you are defining your resources dynamically, the DD statements for the MODBLKS data sets (MODBLKSA DD and MODBLKSB DD) are no longer required.
- IMSACBA DD and IMSACBB DD must be removed if you want to dynamically allocate the ACBLIB data sets through the DFSMDA member.
- In the sample DCC procedure that is built during SMP/E processing and placed in the ADFSPROC and SDFSPROC library data sets, the IMSMON DD statement is included as a comment. To use the IMSMON DD statement, remove the asterisks (*).
JCL
The following procedure executes an IMS DCCTL address space.
// PROC RGN=64M,SOUT=A,DPTY='(14,15)',
// SYS=,SYS1=,SYS2=,
// LOGT=2400,
// RGSUF=DCC,PARM1=,PARM2=
//IEFPROC EXEC PGM=DFSMVRC0,DPRTY=&DPTY,REGION=&RGN,
// PARM='DCC,&RGSUF,&PARM1,&PARM2'
//*
//****************************************************
//* *
//* THE DESCRIPTION AND CHARACTERISTICS OF EACH *
//* PARAMETER IS DEFINED AS FOLLOWS: *
//* *
//****************************************************
//*
//********** CONTROL REGION SPECIFICATIONS ***********
//*
//* 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 DCCTL KEYWORD PARAMETERS
//* ARE DESCRIBED BELOW
//****************************************************
//* APPLID1 XXXXXXXX VTAM APPLID OF ACTIVE IMS SYSTEM
//* APPLID2 XXXXXXXX VTAM APPLID OF XRF ALTERNATE SYSTEM
//* APPLID3 XXXXXXXX VTAM APPLID OF RSR TRACKING SYSTEM
//* RES X BLOCK RESIDENT (N = NO, Y = YES)
//* FRE XXXXX NUMBER OF FETCH REQUEST ELEMENTS
//* PST XXX NUMBER OF PST'S PERMANENTLY ALLOC
//* MAXPST XXX MAXIMUM NUMBER OF PST'S
//* SAV XXX NUMBER OF DYNAMIC SAVE AREA SETS
//* SRCH X IMODULE LOAD LIBRARY SEARCH INDICATOR
//* 0 = SEARCH JPA AND LIBS BEFORE LPA
//* 1 = SEARCH JPA AND LPA BEFORE LIBS
//* SOD X SPIN OFF DUMP SYSOUT CLASS
//* VAUT X VTAM AUTH PATH OPTION (1=YES,0=NO)
//* FMTO T = ONLINE FORMATTED DUMP WITH
//* STORAGE IMAGE DELETIONS.
//* OFFLINE SDUMPS PERMITTED FOR
//* NON-IMS TERMINATING ERRORS.
//* P = FULL ONLINE FORMATTED DUMP.
//* OFFLINE SDUMPS PERMITTED FOR
//* NON-IMS TERMINATING ERRORS.
//* F = FULL ONLINE FORMATTED DUMP.
//* OFFLINE SDUMPS SUPPRESSED FOR
//* NON-IMS TERMINATING ERRORS.
//* N = NO FORMATTED DUMP, NO OFFLINE
//* DUMP. OFFLINE SDUMPS PERMITTED
//* FOR NON-IMS TERMINATING ERRORS
//* Z = NO FORMATTED DUMP, NO OFFLINE
//* DUMP. OFFLINE SDUMPS
//* SUPPRESSED FOR NON-IMS
//* TERMINATING ERRORS.
//* (DEFAULT) D = OFFLINE DUMP, OR ONLINE FOR-
//* MATTED DUMP WITH STORAGE IMAGE
//* DELETIONS IF OFFLINE DUMPING
//* FAILS. OFFLINE SDUMPS
//* PERMITTED FOR NON-IMS
//* TERMINATING ERRORS.
//* X = OFFLINE DUMP, OR ONLINE FOR-
//* MATTED DUMP WITH STORAGE IMAGE
//* DELETIONS IF OFFLINE DUMPING
//* FAILS. OFFLINE SDUMPS
//* SUPPRESSED FOR NON-IMS
//* TERMINATING ERRORS.
//* M = OFFLINE DUMP, ONLINE IMS DUMP
//* FORMATTING NOT PERMITTED.
//* OFFLINE SDUMPS PERMITTED FOR
//* NON-IMS TERMINATING ERRORS.
//* R = OFFLINE DUMP, ONLINE IMS DUMP
//* FORMATTING NOT PERMITTED.
//* OFFLINE SDUMPS SUPPRESSED FOR
//* NON-IMS TERMINATING ERRORS.
//* AUTO X AUTOMATIC RESTART OPTION
//* Y = AUTOMATIC RESTART DESIRED
//* N = NO AUTOMATIC RESTART
//* IMSID XXXX IMS DCCTL SUBSYSTEM ID
//* NLXB XXX NUMBER OF PARALLEL VTAM SESSIONS
//* APPC X Y = ACTIVATE APPC/IMS
//* N = DO NOT ACTIVATE APPC/IMS
//* LTERM X Y = LTERM USED IN DFSAPPC PROCESS
//* N = LTERM NOT USED IN DFSAPPC
//* PROCESS
//* 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
//* DBRCNM XXXXXXXX DBRC PROCLIB MEMBER NAME
//* PRDR XXXXXXXX IMSRDR PROCLIB MEMBER NAME
//* SSM XXXX EXT SUBSYSTEM PROCLIB MEMBER ID
//* RECA XXX RECEIVE ANY BUFFERS
//* FESTIM XXXX FRONTENDSWITCH TIMEOUT
//* RECASZ XXXXX RECEIVE ANY BUFFER SIZE
//* CRC X COMMAND RECOGNITION CHARACTER
//* TSR X U = UTC TIME
//* L = LOCAL TIME (DEFAULT)
//* YEAR4 X N = 2-DIGIT DATE (DEFAULT)
//* Y = 4-DIGIT DATE
//* DC XXX DC PROC MEMBER SUFFIX IN
//* IMS.PROCLIB
//* DEFAULT VALUE IS 000
//* CPLOG XXXXXK CHECKPOINT LOG INTERVAL
//* OR
//* CPLOG XXM CHECKPOINT LOG INTERVAL
//* PASSWD1 XXXXXXXX VTAM ACB PASSWORD
//* ORSMBR XX SUFFIX FOR ORS MEMBER
//* IMSGROUP XXXX 4 CHAR USER SPEC NAME
//* DESC XX MSG DESC CODE
//* MCS (XX,XX) MSG ROUTE CODES
//* SVC2 XXX TYPE 2 SVC NUMBER
//*
//******** OTMA PARAMETERS ***************************
//*
//* OTMA X Y = OTMA ENABLED
//* N = OTMA NOT ENABLED
//* DEFAULT VALUE IS N
//* OTMANM XXXXXXXX IMS OTMA XCF MEMBER NAME
//* GRNAME XXXXXXXX OTMA XCF GROUP NAME
//* NO DEFAULT VALUE
//* GRSNAME XXXXXXXX GENERIC RESOURCE GROUP
//* NAME
//* NO DEFAULT VALUE
//******** SECURITY PARAMETERS ***********************
//*
//* AOIS X ICMD SECURITY OPTION
//* AOI1 X CMD SECURITY OPTION
//* A = ALL
//* N = NONE
//* C = DFSCCMD0 EXIT
//* R = RACF
//* TCORACF X TCO RACF SECURITY OPTION
//* Y = YES
//* N = NO
//* APPCSE X C = APPC RACF SECURITY IS CHECK
//* F = APPC RACF SECURITY IS FULL
//* N = APPC RACF SECURITY IS NONE
//* P = APPC RACF SECURITY IS PROFILE
//* CMDMCS X MCS/EMCS COMMAND OPTION
//* N=COMMANDS NOT ALLOWED WITH CRC
//* Y=ALL COMMANDS ALLOWED WITH CRC
//* R=RACF COMMAND SECURITY
//* C=DFSCCMD0 COMMAND SECURITY
//* B=RACF AND DFSCCMD0 CMD SEC
//* ISIS X RAS SECURITY OPTION
//* N = NO RESOURCE ACCESS SECURITY
//* R = RACF RESOURCE ACCESS SECURITY
//* C = RACF RESOURCE ACCESS SECURITY
//* A = RACF RESOURCE ACCESS SECURITY
//* RCF X RACF TRAN/CMD AUTHORIZATION
//* N = NO TRAN/CMD AUTHORIZATION
//* C = ETO CMD AUTHORIZATION
//* T = TRAN AUTHORIZATION
//* S = STATIC LTERM CMD AUTH
//* Y = C AND T
//* A = C AND T AND S
//* RVFY X RACF REVERIFY OPTION
//* Y = YES, N = NO
//* SGN X SIGNON AUTHORIZATION CHECKING
//* F = MTO CANNOT NEGATE ACTIVATION
//* OF SIGNON VERIFICATION
//* SECURITY
//* Y = SIGNON VERIFICATION SECURITY
//* WILL BE ACTIVATED
//* N = SIGNON VERIFICATION SECURITY
//* WILL NOT BE ACTIVATED
//* M = SINGLE USERID CAN SIGNON
//* TO MULTIPLE STATIC TERMINALS
//* G = 'F' + 'M'
//* Z = 'Y' + 'M'
//* TRN X TRANSACTION AUTHORIZATION CHECKING
//* F = FORCED, Y = YES, N = NO
//* RCFTCB XX NUMBER OF RCF TCB'S
//* PSWDC X PASSWORD CASE
//* U=UPPER CASE
//* M=MIXED CASE
//* R=USES RACF SETTING (DEFAULT)
//******** MESSAGE QUEUE PARAMETERS ******************
//*
//* EXVR X PAGEFIX QMGR BUFFER POOLS
//* (1=YES, 0=NO)
//* QBUF XXXX NUMBER OF MESSAGE QUEUE BUFFERS
//* QTU XXX MSG QUEUE UPPER THRESHOLD (%)
//* QTL XXX MSG QUEUE LOWER THRESHOLD (%)
//*
//******** SHARED QUEUES PARAMETERS ******************
//*
//* LGMSGSZ XXXXX LONG MESSAGE SIZE
//* QBUFHITH XXX MSG QBUF HIGH THESHOLD %
//* QBUFLWTH XXX MSG QBUF LOW THESHOLD %
//* QBUFMAX XXXX MAX NUMBER OF MSG QUEUE BUFFERS
//* QBUFPCTX XXX % MSG QBUF DYNAMIC EXPAND
//* WHEN QBUFHITH EXCEEDED
//* DEFAULT IS 20%
//* QBUFSZ XXXXX SIZE OF MESSAGE QUEUE BUFFERS
//* SHMSGSZ XXXXX SHORT MESSAGE SIZE
//* SHAREDQ XXX SQ PROC MEMBER SUFFIX IN
//* IMS.PROCLIB
//* NO DEFAULT VALUE
//*
//******** MSC PARAMETER *****************************
//* MSC X ENABLE OR DISABLE MSC IN THIS IMS
//* N: DO NOT INCLUDE MSC.
//* UNLESS MSC RESOURCES ARE DEFINED
//* DURING SYSTEM DEFINITION, MSC=N
//* IS THE DEFAULT.
//* Y: INCLUDE MSC IN THIS IMS.
//*
//******** ETO PARAMETERS ****************************
//*
//* ETO X Y = EXTENDED TERMINAL OPTION
//* N = NO EXTENDED TERMINAL OPTION
//* M = NO EXTENDED TERMINAL OPTION
//* BUT LOGON USERDATA SUPPORTED
//* FOR STATIC TERMINALS
//* ASOT XXXX ETO AUTO SIGNOFF TIME
//* ALOT XXXX ETO AUTO LOGNOFF TIME
//* DLQT XXX ETO DEAD LETTER QUEUE SIZE
//*
//******** RSR PARAMETERS ****************************
//*
//* RSRMBR XX SUFFIX FOR RSR MEMBER
//* TRACK XXX NO = NO RECOVERY TRACKING DONE
//* RLT = RECOVERY TRACKING DONE
//* USERVAR XXXXXXXX USER NAME OF ACTIVE IMS SYSTEM FOR RSR
//*
//******* HASH TABLE PARAMETERS **********************
//*
//* LHTS XXXXX # OF CNT HASH TABLE SLOTS
//* NHTS XXXXX # OF VTCB HASH TABLE SLOTS
//* UHTS XXXXX # OF SPQB HASH TABLE SLOTS
//************ FAST PATH PARAMETERS ******************
//*
//* EPCB XXXX EPCB POOL SIZE (1K BLOCKS)
//* EMHL XXXXX SIZE OF EMH BUFFER IN BYTES
//* 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 ********
//*
//* FBP XXXXXX MESSAGE FORMAT BLOCK POOL SIZE
//* PSB XXXXXX DCCTL PSB POOL SIZE
//* CIOP XXXXXX TP DEVICE I/O POOL UPPER LIMIT
//* WKAP XXXXXX WORKING STORAGE POOL SIZE
//* PSBW XXXXXX PSB WORK POOL SIZE
//* HIOP XXXXXX HIGH I/O POOL UPPER LIMIT
//* EMHB XXXXXX EMHB POOL UPPER LIMIT
//* LUMP XXXXXX LUMP POOL UPPER LIMIT
//* LUMC XXXXXX LUMC POOL UPPER LIMIT
//* DYNP XXXXXX DYNP POOL UPPER LIMIT
//* AOIP XXXXXX AOI POOL UPPER LIMIT
//* CMDP XXXXXX CMDP POOL UPPER LIMIT
//*
//******* MEMBER SUFFIXES ****************************
//*
//* SUF X CONTROL PGM NAME (DCCTL NUCLEUS)
//* FIX XX PAGE FIX NAME (DFSFIX..)
//* PRLD XX MODULE PRELOAD NAME (DFSMPL..)
//* VSPEC XX TRACE/LOG DEF (DFSVSM..)
//* SPM XX STORAGE POOL OPTIONS (DFSSPM..)
//* CSLG XXX CSL GLOBAL MEMBER (DFSCGXXX)
//* DSCT X ETO USER DESCRIPTOR TABLE(DFSDSCTX)
//* DFSDF XXX DRD, CSL, AND SQ MEMBER (DFSDFXXX)
//*
//******* XRF PARAMETERS *****************************
//*
//* HSBID X XRF SYSTEM IDENTIFICATION
//* 1 FOR FIRST SYSTEM
//* 2 FOR SECOND SYSTEM
//* HSBMBR XX XRF OPTIONS (DFSHSB..)
//*
//* MNPS XXXXXXXX NAME OF MNPS ACB
//* USERVAR WILL BE IGNORED
//* MNPSPW XXXXXXXX MNPS ACB PASSWORD
//****************************************************
//* *
//* XRF SYSTEM DATA SET INFORMATION *
//* *
//****************************************************
//*
//* THE FOLLOWING DATA SETS MUST RESIDE ON SHARED
//* VOLUMES:
//*
//* DDNAMES: DFSOLPXX, DFSOLSXX
//* DFSWADSX
//* IMSRDS - FIRST RDS
//* IMSRDS2 - SECOND RDS (MANDATORY)
//* MODSTAT - FIRST MODSTAT
//* MODSTAT2 - 2ND MODSTAT (MANDATORY)
//* RECON1, RECON2, RECON3
//*
//* THE FOLLOWING DATA SETS MUST BE REPLICATED AND
//* SHOULD BE ON NON-SHARED VOLUMES. IF YOUR XRF
//* CONFIGURATION REQUIRES THAT BOTH IMS SUBSYSTEMS
//* BE EXECUTABLE ON EITHER CEC, THEN THESE DATA
//* SETS MUST BE ON SHARED VOLUMES.
//*
//* DDNAMES: IMSSPA
//* LGMSG, LGMSGL
//* QBLKS, QBLKSL
//* SHMSG, SHMSGL
//*
//* SYSABEND, SYSUDUMP
//* IMSMON
//*
//* THE FOLLOWING DATA SETS MAY BE REPLICATED. IF
//* REPLICATED, THESE DATA SETS SHOULD BE ON
//* NON-SHARED VOLUMES. IF THESE DATA SETS ARE NOT
//* REPLICATED, THEY MUST BE ON SHARED VOLUMES. IF
//* YOUR XRF CONFIGURATION REQUIRES THAT BOTH IMS
//* SUBSYSTEMS BE EXECUTABLE ON EITHER CEC,
//* THESE DATA SETS MUST BE ON SHARED VOLUMES.
//*
//* DDNAMES: FORMATA, FORMATB
//* IMSACBA, IMSACBB
//* IMSTFMTA, IMSTFMTB
//* MODBLKSA, MODBLKSB
//* PROCLIB, RESLIB
//* OTHER STEPLIB DATA SETS
//* THE FOLLOWING DATA SETS SHOULD ALSO BE CONSIDERED
//* FOR REPLICATION ON EITHER SHARED OR NON-SHARED
//* VOLUMES (AS APPROPRIATE).
//*
//* DATA SET: JOBS USED IN THE IMSRDR PROCEDURE
//* PGMLIB
//* PSBLIB USED BY GSAM
//* DBDLIB USED BY GSAM
//*
//* THE FOLLOWING IMS DATA SETS MAY ALSO BE IMPACTED
//* BY THE CONFIGURATION OF YOUR XRF COMPLEX.
//*
//* INSTALIB - USED DURING INSTALLATION/IVP
//* RESLIB - CREATED BY SYSDEF - MANAGED BY SMP
//* PROCLIB - CREATED BY SYSDEF
//* MACLIB - CREATED BY SYSDEF - MANAGED BY SMP
//* OPTIONS - CREATED BY SYSDEF - USED BY SMP
//* OBJDSET - CREATED BY SYSDEF
//* MODBLKS - CREATED BY SYSDEF - MANAGED BY SMP
//* ACBLIB - ONLINE CHANGE STAGING LIBRARY
//* FORMAT - ONLINE CHANGE STAGING LIBRARY
//* TFORMAT - ONLINE CHANGE STAGING LIBRARY
//* REFERAL - USED IN CONJUNCTION WITH FORMAT
//* DBSOURCE - USED BY SYSDEF - MANAGED BY SMP
//* DCSOURCE - USED BY SYSDEF - MANAGED BY SMP
//* SRSOURCE - USED BY SYSDEF - MANAGED BY SMP
//* ADFSMAC - USED BY SYSDEF - MANAGED BY SMP
//* LOAD - USED BY SYSDEF - MANAGED BY SMP
//* JCLLIB - MANAGED BY SMP
//* SMP DATA SETS
//*
//****************************************************
//* *
//* DATA DEFINITION STATEMENTS FOLLOW *
//* *
//****************************************************
//*
//******** LIBRARY STATEMENTS ************************
//*
//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)
//*
//*
//*
//*
//******** MONITOR LOGGING STATEMENTS ****************
//*
//* THE IMSMON DD STATEMENT MUST BE REMOVED IF
//* THIS DATA SET IS TO BE DYNAMICALLY ALLOCATED.
//*
//IMSMON DD DSN=IMS.&SYS1.IMSMON,DISP=(,KEEP),
// VOL=(,,,99),UNIT=(&LOGT,,DEFER)
//*
//******** MESSAGE QUEUE STATEMENTS ******************
//*
//QBLKS DD DSN=IMS.&SYS1.QBLKS,DISP=OLD
//SHMSG DD DSN=IMS.&SYS1.SHMSG,DISP=OLD
//LGMSG DD DSN=IMS.&SYS1.LGMSG,DISP=OLD
//QBLKSL DD DSN=IMS.&SYS1.QBLKSL,DISP=OLD
//SHMSGL DD DSN=IMS.&SYS1.SHMSGL,DISP=OLD
//LGMSGL DD DSN=IMS.&SYS1.LGMSGL,DISP=OLD
//*
//******** ONLINE CHANGE STATEMENTS ******************
//* THE IMSACBA AND IMSACBB DD STATEMENTS MUST BE
//* REMOVED IF YOU WISH TO DYNAMICALLY ALLOCATE THE
//* ACBLIB DATA SETS THROUGH THE DFSMDA MEMBER.
//*
//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
//MODSTAT2 DD DSN=IMS.&SYS.MODSTAT2,DISP=SHR
//*
//******** MFS STATEMENTS ****************************
//*
//FORMATA DD DSN=IMS.&SYS2.FORMATA,DISP=SHR
//FORMATB DD DSN=IMS.&SYS2.FORMATB,DISP=SHR
//IMSTFMTA DD DSN=IMS.&SYS2.TFORMAT,DISP=SHR
// DD DSN=IMS.&SYS2.FORMATA,DISP=SHR
//IMSTFMTB DD DSN=IMS.&SYS2.TFORMAT,DISP=SHR
// DD DSN=IMS.&SYS2.FORMATB,DISP=SHR
//*
//******** DCCTL SYSTEM STATEMENTS *******************
//*
//IMSRDS DD DSN=IMS.&SYS.RDS,DISP=SHR
//IMSRDS2 DD DSN=IMS.&SYS.RDS2,DISP=SHR
//*DFSTCF DD DSN=IMS.TCFSLIB,DISP=SHR
//PRINTDD DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT,
// DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129),
// SPACE=(6050,300,,,ROUND)
//*
//******** TELEPROCESSING LINE STATEMENTS ***********
//******** GENERATED FROM DCCTL DEFINITION **********
//*
//* *** THE GENERATED TELEPROCESSING LINE STATEMENTS WOULD BE HERE ***
//*
//******** EXTERNAL SUBSYSTEM STATEMENTS *************
//*
//* INCLUDE THE DFSESL DD STATEMENT IF AN EXTERNAL
//* SUBSYSTEM CONNECTION TO DB2 IS DESIRED.