// PROC RGN=200M,SOUT=A,DPTY='(14,15)',RGSUF=, 00004000 // MVSID=DBS&IMAGE,IRLMNM=, 00004400 // RDR=RDR&IMAGE&IMSVAR,IMSLVL=IMS1010, 00004501 // PETDSW=D10.PETDSW4,SSID=IMS&IMAGE, 00004700 // FDR=I&IMAGE,DC=PE&IMAGE, 00004905 // IMSVAR=&IMSVAR 00005200 //* FDR=I&IMAGE,DQ=P9&IMAGE,DC=PE&IMAGE 00005302 //IMS1010 EXEC PGM=DFSMVRC0,DPRTY=&DPTY, 00008001 // REGION=&RGN,TIME=1440, 00009000 // PARM=(CTL,&RGSUF, 00010000 // 'SSM=SSM', 00031000 // 'IRLMNM=&IRLMNM', 00032000 // 'PRDR=&RDR', 00040000 // 'FDRMBR=&FDR', 00060000 // 'DC=&DC') 00071000 //* 'SHAREDQ=&DQ' 00072002 //* 00100000 //*TEPLIB DD DSN=IMSPET.PETDSW4.SDFSRESL,DISP=SHR 00111000 //STEPLIB DD DSN=&IMSLVL..&IMSVAR..SDFSRESL,DISP=SHR 00111100 // DD DSN=&IMSLVL..&SSID..DYNALLOC,DISP=SHR 00112000 // DD DSN=&IMSLVL..PET.DYNALLOC,DISP=SHR 00112100 //DFSESL DD DSN=&IMSLVL..&IMSVAR..SDFSRESL,DISP=SHR 00113000 // DD DISP=SHR,DSN=MQS.&MQSLVL..SCSQANLE.&MQSUFX 00115100 //* CHANGED TO USED DB2 ALIAS AS PER TAMMY BAF 05/20/08 00115206 // DD DSN=DB2.DBWG.SDSNLOAD,DISP=SHR 00116006 //* DD DSN=DB2.&DB2VERS..&DB2PLEX..&DB2SET..SDSNLOAD,DISP=SHR 00118006 //PROCLIB DD DSN=&PETDSW..PROCLIB,DISP=SHR 00140000 //* 00160000 //*FSOLP00 DD DSN=&MVSID..&SSID..OLP0,DISP=SHR 00170000 //*FSOLP01 DD DSN=&MVSID..&SSID..OLP1,DISP=SHR 00180000 //*FSOLP02 DD DSN=&MVSID..&SSID..OLP2,DISP=SHR 00190000 //*FSOLP03 DD DSN=&MVSID..&SSID..OLP3,DISP=SHR 00200000 //*FSOLP04 DD DSN=&MVSID..&SSID..OLP4,DISP=SHR 00210000 //*FSOLP05 DD DSN=&MVSID..&SSID..OLP5,DISP=SHR 00220000 //*FSOLS00 DD DSN=&MVSID..&SSID..OLS0,DISP=SHR 00221000 //*FSOLS01 DD DSN=&MVSID..&SSID..OLS1,DISP=SHR 00222000 //*FSOLS02 DD DSN=&MVSID..&SSID..OLS2,DISP=SHR 00223000 //*FSOLS03 DD DSN=&MVSID..&SSID..OLS3,DISP=SHR 00224000 //*FSOLS04 DD DSN=&MVSID..&SSID..OLS4,DISP=SHR 00225000 //*FSOLS05 DD DSN=&MVSID..&SSID..OLS5,DISP=SHR 00226000 //*DFSOLP99 DD DSN=&MVSID..&SSID..OLP99,DISP=SHR 00230000 //* 00240000 //*FSWADS0 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=&MVSID..&SSID..TCFSLIB,DISP=SHR 00330200 //*************** MATRIX ******************** 00330400 //*MATRIXA DD DSN=&IMSLVL..&IMSVAR..MATRIX,DISP=SHR 00331000 //*MATRIXB DD DSN=&IMSLVL..&IMSVAR..MATRIX,DISP=SHR 00332000 //* UPDATED CANT FIND MATRIX TODAY ***7-6-2007JON *** 00332100 //MATRIXA DD DSN=IMS1010.PET0.MATRIX,DISP=SHR 00332201 //MATRIXB DD DSN=IMS1010.PET0.MATRIX,DISP=SHR 00332301 //*************** MODSTAT ******************** 00333000 //MODSTAT DD DSN=&PETDSW..MODSTAT7,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 //*MSTFMTA DD DSN=IMS1010.TFORMAT,DISP=SHR,BUFNO=30 00501003 //* DD DSN=&IMSLVL..&IMSVAR..FORMATA,DISP=SHR,BUFNO=30 00501103 //*MSTFMTB DD DSN=IMS1010.TFORMAT,DISP=SHR,BUFNO=30 00501203 //* DD DSN=&IMSLVL..&IMSVAR..FORMATB,DISP=SHR,BUFNO=30 00502003 //******** 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