// PROC RGN=200M,SOUT=A,DPTY='(14,15)', 00004000 // MVSID=DBS&IMAGE,IRL=&GRP1IRLM,APPLID=IMSPET&SYSCLONE, 00004400 // RDR=RDR&IMAGE&IMSVAR,IMSLVL=IMS810,IMS=IMS&IMAGE, 00004501 //* PETDSW=D10.PETDSW4,SSID=IMS&IMAGE,SSM=&DB2ID, 00004600 // PETDSW=D10.PETDSW4,SSID=IMS&IMAGE, 00004700 // FDR=I&IMAGE,DQ=P8&IMAGE,DC=PE&IMAGE, 00004803 // IMSVAR=&IMSVAR 00005200 //* IMSVAR=&IMSVAR,DB2=&DB2VER 00005300 //IMS810 EXEC PGM=DFSMVRC0,DPRTY=&DPTY, 00008001 // REGION=&RGN,TIME=1440, 00009000 // PARM=(CTL,810, 00010002 // 'APPLID1=&APPLID', 00021000 // 'IRLMNM=&IRL', 00022000 // 'IMSID=&IMS', 00030000 // 'SSM=SSM', 00031000 // 'PRDR=&RDR', 00040000 // 'FDRMBR=&FDR', 00060000 // 'SHAREDQ=&DQ', 00070000 // 'DC=&DC') 00071000 //* 00100000 //STEPLIB DD DSN=&IMSLVL..&IMSVAR..SDFSRESL,DISP=SHR 00111000 // DD DSN=&IMSLVL..PET.DYNALLOC,DISP=SHR 00112000 //DFSESL DD DSN=&IMSLVL..&IMSVAR..SDFSRESL,DISP=SHR 00113000 //* DD DISP=SHR,DSN=MQS.V5R2M0.SCSQANLE.PET 00115006 // DD DISP=SHR,DSN=MQS.&MQSLVL..SCSQANLE.PET 00115106 //* DD DSN=MQS.&MQSLVL..SCSQAUTH.PET,DISP=SHR 00115210 // DD DSN=DB2.&DB2VER..SDSNLOAD,DISP=SHR 00116000 //PROCLIB DD DSN=&PETDSW..PROCLIB,DISP=SHR 00140000 //* 00160000 //DFSOLP00 DD DSN=&MVSID..&SSID..OLP0,DISP=SHR 00170000 //DFSOLP01 DD DSN=&MVSID..&SSID..OLP1,DISP=SHR 00180000 //DFSOLP02 DD DSN=&MVSID..&SSID..OLP2,DISP=SHR 00190000 //DFSOLP03 DD DSN=&MVSID..&SSID..OLP3,DISP=SHR 00200000 //DFSOLP04 DD DSN=&MVSID..&SSID..OLP4,DISP=SHR 00210000 //DFSOLP05 DD DSN=&MVSID..&SSID..OLP5,DISP=SHR 00220000 //DFSOLS00 DD DSN=&MVSID..&SSID..OLS0,DISP=SHR 00221000 //DFSOLS01 DD DSN=&MVSID..&SSID..OLS1,DISP=SHR 00222000 //DFSOLS02 DD DSN=&MVSID..&SSID..OLS2,DISP=SHR 00223000 //DFSOLS03 DD DSN=&MVSID..&SSID..OLS3,DISP=SHR 00224000 //DFSOLS04 DD DSN=&MVSID..&SSID..OLS4,DISP=SHR 00225000 //DFSOLS05 DD DSN=&MVSID..&SSID..OLS5,DISP=SHR 00226000 //*DFSOLP99 DD DSN=&MVSID..&SSID..OLP99,DISP=SHR 00230000 //* 00240000 //DFSWADS0 DD DSN=&MVSID..&SSID..WADS0,DISP=SHR 00250000 //******************************************************************** 00250100 //* DECIDED TO RUN WITH SINGLE WADS DUE TO PERFOMANCE CONSIDERATIONS 00250200 //******************************************************************** 00250300 //*DFSWADS8 DD DSN=&MVSID..&SSID..WADS8,DISP=SHR 00251000 //*QBLKS DD DSN=&MVSID..&SSID..QLBKS,DISP=OLD 00260000 //*SHMSG DD DSN=&MVSID..&SSID..SHMSG,DISP=OLD 00270000 //*LGMSG DD DSN=&MVSID..&SSID..LGMSG,DISP=OLD 00280000 //IMSMON DD DSN=&MVSID..&SSID..IMSMON,DISP=SHR,BUFNO=40 00290000 //IMSACBA DD DSN=&IMSLVL..&IMSVAR..ACBLIBA,DISP=SHR 00300000 //IMSACBB DD DSN=&IMSLVL..&IMSVAR..ACBLIBB,DISP=SHR 00310000 //MODBLKSA DD DSN=&IMSLVL..&IMSVAR..MODBLKSA,DISP=SHR 00320000 //MODBLKSB DD DSN=&IMSLVL..&IMSVAR..MODBLKSB,DISP=SHR 00330000 //*************** TCO ******************** 00330100 //DFSTCF DD DSN=IMS810.&SSID..TCFSLIB,DISP=SHR 00330204 //*************** MATRIX ******************** 00330300 //MATRIXA DD DSN=&IMSLVL..&IMSVAR..MATRIX,DISP=SHR 00331004 //MATRIXB DD DSN=&IMSLVL..&IMSVAR..MATRIX,DISP=SHR 00332004 //*************** MODSTAT ******************** 00333000 //MODSTAT DD DSN=&PETDSW..MODSTAT6,DISP=SHR 00340000 //*************** IMSMON ******************** 00461000 //*IMSMON DD DSN=IMS&IMS..IMSMON,DISP=SHR 00463000 //*************** MFS DD CARDS ******************** 00470000 //FORMATA DD DSN=&IMSLVL..&IMSVAR..FORMATA,DISP=SHR,BUFNO=30 00490000 //FORMATB DD DSN=&IMSLVL..&IMSVAR..FORMATB,DISP=SHR,BUFNO=30 00500000 //******** SYSTEM REQUIRED DD CARDS ************** 00510000 //IMSRDS DD DSN=&MVSID..&SSID..RDS,DISP=SHR 00520000 //PRINTDD DD SYSOUT=&SOUT 00530000 //SPOOL1 DD DSN=&MVSID..&SSID..SPOOL1,DISP=SHR 00540000 //SPOOL1A DD DSN=&MVSID..&SSID..SPOOL1A,DISP=SHR 00541000 //SPOOL1B DD DSN=&MVSID..&SSID..SPOOL1B,DISP=SHR 00542000 //SPOOL2 DD DSN=&MVSID..&SSID..SPOOL2,DISP=SHR 00550000 //SPOOL2A DD DSN=&MVSID..&SSID..SPOOL2A,DISP=SHR 00552000 //SPOOL2B DD DSN=&MVSID..&SSID..SPOOL2B,DISP=SHR 00554000 //SPOOL3 DD DSN=&MVSID..&SSID..SPOOL3,DISP=SHR 00560000 //SPOOL3A DD DSN=&MVSID..&SSID..SPOOL3A,DISP=SHR 00570000 //SPOOL3B DD DSN=&MVSID..&SSID..SPOOL3B,DISP=SHR 00580000 //SYSMDUMP DD SYSOUT=A 00660000