IMS procedure
The IMS procedure is an online execution procedure that initializes the IMS DB/DC environment.
Usage
In the sample shown in JCL:
- The PARM2 parameter is needed because z/OS®:
- Allows up to 100 characters in the EXEC parameter area
- Does not allow symbolic parameters to be continued on next record
- Does not allow more than 66 characters for each keyword option phrase on the START command
- On the Monitor statements, always specify the BLKSIZE and BUFNO parameters. For DASD use
half-track blocking. This is BLKSIZE=27992 for 3990s.
BUFNO=20 should be adequate for any system. For example, the following DD
statement could be used to specify the BLKSIZE and BUFNO parameters:
//IMSMON DD DSN=IMS.IMSMON,DCB=(BLKSIZE=27992,BUFNO=20),DISP=SHR - For the Fast Path statements, the DEDB areas must be allocated in the IMS control region address space, regardless of whether the DL/I SAS
option is used. Allocation is attempted in the following order:
- The DD statements are in the control region JCL
- DEDB dynamic allocation from the RECON data set
- Dynamic allocation members in the IMSDALIB concatenation or JOBLIB/STEPLIB concatenation
Recommendation: Register the databases with DBRC and do not use DFSMDA.
- The security parameters AGN=, AOI1=S, and ISIS=< 0 | 1 |2 > continue to be accepted, but are ignored if specified. The security parameters RCF=, SGN=, and TRN= are no longer documented, but continue to perform the function that was provided in previous versions of IMS.
Dynamic resource definition
If you are defining your MODBLKS resources dynamically rather than using online change, the IMS procedure does not require the DD statements for the IMS.MODBLKS data sets, MODBLKSA and MODBLKSB. In addition, if the MODBLKSA and MODBLKSB DD statements are defined to an IMS system that was initially defined with dynamic resource definition and global online change enabled, they are ignored.
RACF® and resource protection
If the resources (such as DL/I databases) are RACF protected, the user ID associated with the IMS procedure must be authorized to access them. For more information about how to authorize the user ID, see IMS Version 15.3 System Administration.
DLISAS procedure
If you specify LSO=S in the IMS procedure, automatically invoking the DLISAS procedure, the DD statements for the DL/I databases must be in the DLISAS procedure, not in the IMS procedure. Dynamic allocation members remain in the STEPLIB library.
Online change
IMSACB DD statements can optionally be added to the IMS procedure for the IMS staging ACBLIB that is used by ACBLIB member online change. If IMSACB DD statements are added, a dynamic allocation (DFSMDA) member for the IMS staging ACBLIB is not required.
Program Specification Block (PSB) pools
If you do not specify LSO=S in the IMS procedure, one PSB pool is created, as specified by the PSB parameter on the BUFPOOLS macro. If you specify LSO=S, two PSB pools are created and the PSB parameter is ignored. The pool sizes are specified with the SASPSB parameter on the BUFPOOLS system definition macro, and overridden with the CSAPSB and DLIPSB parameters on the IMS procedure. For an overview of information about the DL/I address space options, see IMS Version 15.3 System Administration.
Allocating terminal devices
If an online IMS system has been defined, carefully consider the terminal device allocation generated within the IMS procedure. A list of terminal addresses and logical and physical terminals is printed by stage 1 of IMS system definition. Examples of the procedure jobs in this information show the contents of the members as they are supplied. No card column image is intended. When coding your own procedures, follow JCL and assembler language coding practices.
Parameters
The following parameters are valid for the IMS procedure.
| ALOT= to DPRTY= | DSCT= to LUMC= | LUMP= to QTU= | RCF= to YEAR4 |
|---|---|---|---|
|
|
|
|
The following parameters are Fast Path parameters: BSIZ, DBBF, DBFP, DBFX, DMHVF, EPCB, FPOPN, FPRLM, IOVFI, LGNR, MSDB, OTHR, and UHASH.
See Parameter descriptions for IMS procedures for descriptions.
DD statements
The following parameters are valid for the IMS procedure.
In addition to the following DD statements, add statements for data sets representing IMS databases that are not to be dynamically allocated.
Sample procedures are generated during SMP/E processing in the IMS.SDFSPROC data set. The sample procedures contain DD statements for these device types: DISK, MSC channel-to-channel, PRINTER, PUNCH, READER, SPOOL, and TAPE. These DD statements corresponds to the LINEGRP definitions (or MSPLINK definition for MSC CTC) in the stage 1 definition. The new IMS procedure parts contain examples on how the DD statements should be coded based on the actual definitions defined by the installation. Modify the IMS procedure to specify the actual DD statements needed by the installation.
| DFSDUPPM to IMSACBA | IMSACBB to MODBLKSB | MODSTAT to PROCLIB | QBLKS to SYSUDUMP |
|---|---|---|---|
| DFSDUPPM DD | IMSACBB DD (optional) | MODSTAT DD | QBLKS DD |
| DFSESL DD (optional) | IMSMON DD | MODSTAT2 DD | QBLKSL DD |
| DFSOLPnn DD | IMSRDS DD | MSDBCP1 DD | RECON1 DD (optional) |
| DFSOLSnn DD | IMSRDS2 DD | MSDBCP2 DD | RECON2 DD (optional) |
| DFSTCF DD (optional) | IMSTFMTA DD | MSDBCP3 DD | RECON3 DD (optional) |
| DFSWADSn DD | IMSTFMTB DD | MSDBCP4 DD | SHMSG DD |
| FORMATA DD | LGMSG DD | MSDBDUMP DD | SHMSGL DD |
| FORMATB DD | LGMSGL DD | MSDBINIT DD | STEPLIB DD |
| IMSACB DD | MODBLKSA | PRINTDD DD | SYSTPRT DD |
| IMSACBA DD (optional) | MODBLKSB | PROCLIB DD | SYSUDUMP DD |
| IMSDALIB DD(optional) |
See DD statement descriptions for descriptions.
Notes:
- The IMSACBA and IMSACBB DD statements must be removed if you want to dynamically allocate the ACBLIB data sets through the DFSMDA member.
- If you are defining your MODBLKS resources dynamically, the DD statements for the MODBLKS data sets (MODBLKSA and MODBLKSB) are not required.
- In the sample IMS 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 DB/DC online control program.
// PROC RGN=64M,SOUT=A,DPTY='(14,15)',
// SYS=,SYS1=,SYS2=,
// LOGT=2400,
// RGSUF=IMS,PARM1=,PARM2=
//IEFPROC EXEC PGM=DFSMVRC0,DPRTY=&DPTY,
// REGION=&RGN,
// PARM='CTL,&RGSUF,&PARM1,&PARM2'
//*
//*
//* THE MEANING AND MAXIMUM SIZE OF EACH PARAMETER
//* IS 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 IMS 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 MODULE SEARCH INDICATOR FOR DIRECTED LOAD
//* 0 = STANDARD SEARCH
//* 1 = SEARCH JPA AND LPA BEFORE PDS
//* SOD X 1 CHARACTER 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 Y = AUTOMATIC RESTART DESIRED
//* N = NO AUTOMATIC RESTART
//* IMSID XXXX IMS SUBSYSTEM IDENTIFIER
//* NLXB XXX # ADD'L LXBS FOR MSC VTAM
//* LSO X Y = DL/I LOCAL STORAGE OPTION ON
//* S = DLI/SAS OPTION
//*
//*
//* 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
//* 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
//* FESTIM XXXX FRONTENDSWITCH TIMEOUT (SECONDS)
//* RECASZ XXXXX RECEIVE ANY BUFFER SIZE
//* PIMAX XXXXXX ENQ/DEQ POOL MAXIMUM BYTES
//* PIINCR XXXXXX ENQ/DEQ POOL INCREMENT
//* RECA XXX NUMBER OF RECEIVE ANY BUFFERS
//* 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
//* CCTCVCAN X Y = CCTL CANCEL WILL BE CONVERTED
//* TO ABEND SYSTEM 08E
//* N = CCTL CANCEL IS NOT CONVERTED
//*
//******** 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 N = NO RESOURCE ACCESS SECURITY
//* R = RACF RESOURCE ACCESS SECURITY
//* C = RACF RESOURCE ACCESS SECURITY
//* A = RACF RESOURCE ACCESS SECURITY
//* RCF X RACF USED FOR TRANS. AND SIGNON
//* A = Y + S, Y = T + C, S = S + C.
//* 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
//* QTL XXX QUEUE LOWER THRESHOLD (%)
//* QTU XXX QUEUE UPPER 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
//*
//******** XRF PARAMETERS ****************************
//*
//* HSBID X XRF SYSTEM ID
//* 1 FOR FIRST SYSTEM
//* 2 FOR SECOND SYSTEM
//*
//* HSBMBR XX SUFFIX FOR XRF MEMBER IN
//* IMS.PROCLIB
//* 00 IS DEFAULT
//*
//* MNPS XXXXXXXX NAME OF MNPS ACB
//* USERVAR WILL BE IGNORED
//* MNPSPW XXXXXXXX MNPS ACB PASSWORD
//*
//******** FDR PARAMETER *****************************
//*
//* FDRMBR XX SUFFIX FOR FDR MEMBER IN
//* IMS.PROCLIB
//*
//******** FAST PATH PARAMETERS **********************
//*
//* BSIZ XXXXX DATA BASE BUFFER SIZE
//* OTHR XXX NUMBER OF OUTPUT THREADS
//* DBFX XXXXX SYSTEM ALLOCATION OF DATA BASE BUFFERS TO BE
//* FIXED AT START OF 1ST FAST PATH DEP REGION
//* DBBF XXXXX 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
//* MSDB X SUFFIX FOR MSDB MEMBER ON
//* IMS.PROCLIB
//* LGNR XX NUMBER OF LOG ENTRIES IN DEDB BUFFERHEADER
//* EPCB XXXX EPCB POOL SIZE (1K BLOCKS)
//* EMHL XXXXX SIZE OF EMH BUFFER IN BYTES
//* 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
//* D: DEDB PREOPEN/PRELOAD IS DIS-
//* ABLED AT CTL REGION INIT
//* 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
//*
//******** 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
//*
//******* HASH TABLE PARAMETERS **********************
//*
//* LHTS XXXXX # OF CNT HASH TABLE SLOTS
//* NHTS XXXXX # OF VTCB HASH TABLE SLOTS
//* UHTS XXXXX # OF SPQB HASH TABLE SLOTS
//*
//******** STORAGE POOL VALUES IN K, M OR G **********
//*
//* FBP XXXXXX MESSAGE BUFFER POOL SIZE
//* PSB XXXXXX PSB POOL SIZE - NON DLISAS
//* 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
//* HIOP XXXXXX HIOP POOL UPPER LIMIT
//* FPWP XXXXXX FPWP 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 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 STG POOL MGR PROCLIB MEMBER SUFFIX
//* CSLG XXX CSL GLOBAL MEMBER (DFSCGXXX)
//* DSCT X ETO USER DESCRIPTOR TABLE(DFSDSCTX)
//* DFSDF XXX DRD, CSL, AND SQ MEMBER (DFSDFXXX)
//*
//****************************************************
//* *
//* DATA DEFINITION STATEMENTS FOLLOW *
//* *
//****************************************************
//*
//******** LIBRARY STATEMENTS ***********************
//*
//STEPLIB DD DSN=IMS.&SYS2.SDFSRESL,DISP=SHR
//PROCLIB DD DSN=IMS.&SYS2.PROCLIB,DISP=SHR
//*
//******** GENERIC START DEPENDANT REGION ************
//*
//* 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 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
//******** FAST PATH STATEMENTS **********************
//*
//* THE MSDB DD STATEMENTS ARE BEING CREATED AS
//* COMMENTS. THE ASTERISK IN IN COLUMN THREE NEEDS
//* TO BE DELETED TO HAVE THE DD STATEMENT ACTIVATED
//*
//*MSDBCP1 DD DSN=IMS.&SYS.MSDBCP1,DISP=SHR
//*MSDBCP2 DD DSN=IMS.&SYS.MSDBCP2,DISP=SHR
//*MSDBCP3 DD DSN=IMS.&SYS.MSDBCP3,DISP=SHR
//*MSDBCP4 DD DSN=IMS.&SYS.MSDBCP4,DISP=SHR
//*MSDBDUMP DD DSN=IMS.&SYS1.MSDBDUMP,DISP=SHR
//*MSDBINIT DD DSN=IMS.&SYS.MSDBINIT,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
//*
//******** SYSTEM STATEMENTS *************************
//*
//SYSUDUMP DD SYSOUT=&SOUT,
// DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129),
// SPACE=(6050,300,,,ROUND)
//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
//*
//******** TELEPROCESSING LINE STATEMENTS ************
//****** GENERATED FROM THE DB/DC DEFINITION *********
//*
//* *** THE GENERATED TELEPROCESSING LINE STATEMENTS WOULD BE HERE ***
//*
//******** EXTERNAL SUBSYSTEM STATEMENTS *************
//*
//* USER MAY OPTIONALLY ADD THE DFSESL DD CARD
//* FOR EXTERNAL SUBSYSTEM CONNECTION.
//*
//******** DATA BASE STATEMENTS **********************
//*
//* 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.