// PROC RGN=200M,DPTY='(14,15)',IRLMNM=&GRP1IRLM, 00000010 // RGSUF=SMQ,PARM1=,PARM2=,IMS=IMS&FDBRID,FDRMBR=I&FDBRID, 00000030 // MVSID=DBS&FDBRID,IMSLVL=IMS610,PETDSW=D10.PETDSW4, 00000030 // SSID=IMS&FDBRID 00000030 //IEFPROC EXEC PGM=DFSMVRC0,DPRTY=&DPTY, 00000040 // REGION=&RGN, 00000050 // PARM='FDR,&RGSUF,&PARM1,&PARM2,FDRMBR=&FDRMBR,IRLMNM=&IRLMNM, 00000060 // IMSID=&IMS' //********************************************************************* 00000070 //* FAST DATABASE RECOVERY (FDR) PROC FOR PET PLEX 00000080 //********************************************************************* 00000070 //* THE MEANING AND MAXIMUM SIZE OF EACH PARAMETER 00000090 //* IS AS FOLLOWS: 00000100 //* 00000110 //******** CONTROL REGION SPECIFICATIONS ******** 00000120 //**************************************************** 00000130 //* RGSUF XXX EXEC PARM DEFAULT BLOCK SUFFIX FOR 00000140 //* MEMBER DFSPBXXX. 00000150 //**************************************************** 00000160 //* 00000170 //* PARM1 , PARM2 PARAMETERS BOTH ARE USED TO SPECIFY 00000180 //* CHARACTER STRINGS THAT CONTAIN IMS KEYWORD 00000190 //* PARAMETERS. I.E. PARM1='AUTO=Y,PST=222,RES=Y' 00000200 //* 00000210 //* ALL OF THE VALID IMS KEYWORD PARAMETERS 00000220 //* ARE DESCRIBED BELOW 00000230 //**************************************************** 00000240 //* FMTO T = ONLINE FORMATTED DUMP WITH 00000250 //* STORAGE IMAGE DELETIONS. 00000260 //* OFFLINE SDUMPS PERMITTED FOR 00000270 //* NON-IMS TERMINATING ERRORS. 00000280 //* P = FULL ONLINE FORMATTED DUMP. 00000290 //* OFFLINE SDUMPS PERMITTED FOR 00000300 //* NON-IMS TERMINATING ERRORS. 00000310 //* F = FULL ONLINE FORMATTED DUMP. 00000320 //* OFFLINE SDUMPS SUPPRESSED FOR 00000330 //* NON-IMS TERMINATING ERRORS. 00000340 //* N = NO FORMATTED DUMP, NO OFFLINE 00000350 //* DUMP. OFFLINE SDUMPS PERMITTED 00000360 //* FOR NON-IMS TERMINATING ERRORS 00000370 //* Z = NO FORMATTED DUMP, NO OFFLINE 00000380 //* DUMP. OFFLINE SDUMPS 00000390 //* SUPPRESSED FOR NON-IMS 00000400 //* TERMINATING ERRORS. 00000410 //* (DEFAULT) D = OFFLINE DUMP, OR ONLINE FORMAT- 00000420 //* TED DUMP WITH STORAGE IMAGE 00000430 //* DELETIONS IF OFFLINE DUMPING 00000440 //* FAILS. OFFLINE SDUMPS 00000450 //* PERMITTED FOR NON-IMS 00000460 //* TERMINATING ERRORS. 00000470 //* X = OFFLINE DUMP, OR ONLINE FORMAT- 00000480 //* TED DUMP WITH STORAGE IMAGE 00000490 //* DELETIONS IF OFFLINE DUMPING 00000500 //* FAILS. OFFLINE SDUMPS 00000510 //* SUPPRESSED FOR NON-IMS 00000520 //* TERMINATING ERRORS. 00000530 //* M = OFFLINE DUMP, ONLINE IMS DUMP 00000540 //* FORMATTING NOT PERMITTED. 00000550 //* OFFLINE SDUMPS PERMITTED FOR 00000560 //* NON-IMS TERMINATING ERRORS. 00000570 //* R = OFFLINE DUMP, ONLINE IMS DUMP 00000580 //* FORMATTING NOT PERMITTED. 00000590 //* OFFLINE SDUMPS SUPPRESSED FOR 00000600 //* NON-IMS TERMINATING ERRORS. 00000610 //* IMSID XXXX IMS SUBSYSTEM IDENTIFIER 00000620 //* ARMRST X Y = ALLOW MVS ARM TO RESTART 00000630 //* N = ARM NOT RESTART IMS 00000640 //* IRLMNM XXXX IRLM SUBSYSTEM NAME 00000650 //* WADS X SINGLE OR DUAL WADS,S=SINGLE,D=DUAL 00000660 //* UHASH XXXXXXXX USER HASH MODULE NAME 00000670 //******** FAST PATH PARAMETERS ******** 00000680 //* 00000690 //* BSIZ XXXXX DATA BASE BUFFER SIZE 00000700 //* DBBF XXXXX NUMBER OF DATABASE BUFFERS 00000710 //* LGNR XX NUMBER OF LOG ENTRIES IN DEDB BUFFERHEADER 00000720 //******** STORAGE POOL VALUES IN K, M OR G ******* 00000730 //* 00000740 //* PSB XXXXXX PSB POOL SIZE - NON DLISAS 00000750 //* DMB XXXXXX DMB POOL SIZE 00000760 //* WKAP XXXXXX WORKING STORAGE BUFFER POOL SIZE 00000770 //* DBWP XXXXXX DATABASE WORK POOL SIZE 00000780 //* CSAPSB XXXXXX DLISAS: CSA PSB POOL SIZE 00000790 //* DLIPSB XXXXXX DLISAS: DLI PSB POOL SIZE 00000800 //* 00000810 //******** MEMBER SUFFIXES ********************** 00000820 //* 00000830 //* SUF X LAST CHARACTER OF CTL PROGRAM LOAD 00000840 //* MODULE MEMBER NAME 00000850 //* VSPEC XX 2 CHARACTER BUFFER POOL SPEC MODULE SUFFIX 00000860 //* SPM XX STG POOL MGR PROCLIB MEMBER SUFFIX 00000870 //* 00000880 //*********************************************** 00000890 //* 00000900 //STEPLIB DD DSN=&IMSLVL..RESLIB,DISP=SHR // DD DSN=D10.PETDSW4.DYNALL61,DISP=SHR // DD DSN=IMS610.RESLIB.DRAS,DISP=SHR //PROCLIB DD DSN=&PETDSW..PROCLIB,DISP=SHR //* 00000930 //*********** DASD LOGGING DD CARDS ************* 00000940 //* THE FOLLOWING DD CARDS DESCRIBE THE DASD LOGGING 00000950 //* OLDS AND WADS. THESE CARDS ARE FOR EXAMPLE ONLY. 00000960 //* ALL OLDS AND WADS DATA SETS MAY BE DYNAMICALLY 00000970 //* ALLOCATED. DD CARDS ARE NOT REQUIRED. 00000980 //* THE OLDS AND WADS TO BE USED DURING STARTUP MUST 00000990 //* BE SPECIFIED VIA OLDSDEF AND WADSDEF CONTROL 00001000 //* STATEMENTS IN THE DFSVSMXX MEMBER OF IMS PROCLIB. 00001010 //* THE ACTUAL SELECTION OF OLDS AND WADS MUST BE 00001020 //* TAILORED TO INSTALLATION REQUIREMENTS. THE OLDS 00001030 //* AND WADS MUST BE PREDEFINED BY A SET UP JOB. 00001040 //* THE BLOCK SIZE OF ALL OLDS MUST BE THE SAME. 00001050 //* THE BLOCK SIZE AND DEVICE TYPE OF ALL WADS MUST 00001060 //* BE THE SAME. AT LEAST 3 PRIMARY OLDS AND 1 WADS 00001070 //* MUST BE AVAILABLE FOR STARTUP. THE BLOCK SIZE 00001080 //* SHOULD NOT BE SPECIFIED IN THIS JCL. THE LOGGER 00001090 //* WILL GET THE BLOCK SIZE FROM THE VTOC. 00001100 //* 00001110 //DFSOLP00 DD DSN=&MVSID..&SSID..OLP0,DISP=SHR 00001120 //DFSOLP01 DD DSN=&MVSID..&SSID..OLP1,DISP=SHR 00001130 //DFSOLP02 DD DSN=&MVSID..&SSID..OLP2,DISP=SHR 00001140 //DFSOLP03 DD DSN=&MVSID..&SSID..OLP3,DISP=SHR 00001150 //DFSOLP04 DD DSN=&MVSID..&SSID..OLP4,DISP=SHR 00001160 //DFSOLP05 DD DSN=&MVSID..&SSID..OLP5,DISP=SHR 00001170 //DFSOLP99 DD DSN=&MVSID..&SSID..OLP99,DISP=SHR 00001180 //* 00001110 //DFSWADS0 DD DSN=&MVSID..&SSID..WADS0,DISP=SHR 00001260 //DFSWADS8 DD DSN=&MVSID..&SSID..WADS8,DISP=SHR 00001280 //* 00001350 //IMSACBA DD DSN=IMS610.ACBLIBA,DISP=SHR 00001290 //IMSACBB DD DSN=IMS610.ACBLIBB,DISP=SHR 00001300 //* 00001350 //MODBLKSA DD DSN=IMS610.MODBLKSA,DISP=SHR 00001310 //MODBLKSB DD DSN=IMS610.MODBLKSB,DISP=SHR 00001320 //* 00001350 //MODSTAT DD DSN=&PETDSW..MODSTAT6,DISP=SHR 00001330 //JCLPDS DD DSN=D10.PETDSW4.PROCLIB,DISP=SHR //JCLOUT DD SYSOUT=(Z,INTRDR),DCB=BLKSIZE=80 //* 00001350 //******** SYSTEM STATEMENTS ************************* 00001340 //* 00001350 //*SYSUDUMP DD SYSOUT=&SOUT, 00001360 //* DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129), 00001370 //* SPACE=(6050,300,,,ROUND) 00001380 //IMSRDS DD DSN=&MVSID..&SSID..RDS,DISP=SHR 00001390 //* 00001400 //************ DATA BASE DD CARDS *************** 00001410 //* 00001420 //* USER MAY OPTIONALLY SUPPLY THE DD STATEMENTS 00001430 //* FOR THE ON-LINE DATA BASES TO BE 00001440 //* INSERTED HERE PRIOR TO ATTEMPTING 00001450 //* AN ON-LINE SYSTEM EXECUTION USING 00001460 //* THIS PROCEDURE. 00001470 //* IF NO DD STATEMENTS ARE SUPPLIED FOR 00001480 //* A DATA BASE, IMS ASSUMES THAT THIS 00001490 //* DATA BASE HAS BEEN DESCRIBED THROUGH 00001500 //* THE DFSMDA MACRO. 00001510 //* IF THE USER WILL BE EXECUTING WITH THE DL/I 00001520 //* SAS OPTION, THESE DD STATEMENTS SHOULD BE ADDED 00001530 //* TO THE DLISAS PROCLIB MEMBER OR DESCRIBED 00001540 //* THROUGH THE DFSMDA MACRO. 00001550 //* 00001560