//DUMPKUNR PROC SW='',INDSN='SYS1.MAN1',SOUT=U,SOUT2=W
//* +*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*
//* DUMP-KUN : SMFDUMP SWITCH -> ACCUME -> REPORT
//*  毎朝８：３０に自動起動する ( JES2 AUTOMATIC COMMAND )
//* +*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*
//* -------------------------------------------------------------
//* HIDUKE-CHECK
//* -> １日１回しか動かないよ！　動かす時はSWをKYOUSEIにしてね
//* -------------------------------------------------------------
//*HECK    EXEC PGM=IKJEFT01,PARM='%#DATECHK KYOUSEI'
//CHECK    EXEC PGM=IKJEFT01,PARM='%#DATECHK &SW'
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=DDMS.V1R2M1.ISPCLIB,DISP=SHR
//CHKF      DD DSN=&SYSNAME..SMF.DATECHK,DISP=OLD,
//          UNIT=DASD,VOL=SER=FC9AI3
//SYSTSIN   DD DUMMY
//* = NORMAL PROCESS ============================================
//NOMAL     IF CHECK.RC = 0 THEN
//* -> 日付チェックがＯＫの時の処理
//* =============================================================
//* -------------------------------------------------------------
//* SMF DUMP SWITCH
//* ->  SMFDUMP.AI09.@240の世代を更新する
//* -------------------------------------------------------------
//SWITCH  EXEC PGM=IEFBR14
//SW       DD DSN=SMFDUMP.&SYSNAME..@240(+1),DISP=(,CATLG),
//         UNIT=SYSDA,
//         SPACE=(CYL,(150,150),RLSE)
//* -------------------------------------------------------------
//* ACCUME SMF DATA ( KINOU-NO-FILE )
//* ->  DUMP REQUESTのデータセットをダンプする
//* -------------------------------------------------------------
//SMFDUMP EXEC PGM=IFASMFDP
//IN1      DD DSN=&INDSN,DISP=SHR
//OUT      DD DSN=SMFDUMP.&SYSNAME..@240(0),DISP=(MOD,CATLG),
//         UNIT=SYSDA,
//         SPACE=(CYL,(150,150),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNG1),DISP=SHR
//*NDD(IN1,OPTIONS(DUMP))
//*UTDD(OUT,TYPE(70:80,240))
//* -----------------------------------------------------------
//* DUMP-KUN SMF CLEAR
//* ->  DUMP REQUESTのデータセットをクリアする
//* -----------------------------------------------------------
//CLEAR   EXEC PGM=IFASMFDP,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN1      DD DSN=&INDSN,DISP=SHR
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNG2),DISP=SHR
//* -------------------------------------------------------------
//* CMF REPORT --- SORT
//* -> 昨日のSMFDUMP.AI09.@240をソートする
//* -------------------------------------------------------------
//SORT    EXEC PGM=SORT,REGION=8M,PARM='SIZE=MAX',TIME=1440
//SORTIN   DD DSN=SMFDUMP.&SYSNAME..@240(0),DISP=SHR
//SORTOUT  DD DSN=&&SELECT,DISP=(,PASS),
//         UNIT=DASD,VOL=SER=FC66I9,SPACE=(CYL,(100,50),RLSE)
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR2),DISP=SHR
//*ORT FIELDS=(11,4,PD,A,7,4,BI,A,6,1,BI,A)
//*ND
//* -------------------------------------------------------------
//* CMF REPORT --- REPORT
//* ->  CMF-ANALYZER ( SUMMARY,CSMON,DEVACT )
//* -------------------------------------------------------------
//CMFRPT1 EXEC PGM=CMFANLYZ,PARM='CTRLSIZE=2000K',REGION=8M
//STEPLIB  DD DSN=MNVIW.SYS&SYSNAME..BBLINK,DISP=SHR
//DMSSMAIN DD UNIT=WORK,SPACE=(CYL,(50,10))     - DMSS WORK FILE
//EXTDATA  DD DSN=&&SELECT,DISP=(OLD,PASS)
//IPSLIB   DD DSN=SYS1.PARMLIB,DISP=SHR   - INPUT FOR GRAPH TYPE=DOMAIN
//RPTCONTS DD SYSOUT=*                    - REPORT TABLE OF CONTENTS
//CMFLOG   DD SYSOUT=*                    - COLLECTION PHASE LOG
//SYSPRINT DD SYSOUT=&SOUT IM=30000       - REPORTS
//CMXTRACE DD SYSOUT=*                    - TRACE DATA
//SNAPS    DD SYSOUT=*                    - ANALYZER SNAPS
//SNAPVBS  DD SYSOUT=*                    - INVALID RECORD SNAPS
//SYSUDUMP DD DUMMY                       - ANALYZER ABEND
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR3),DISP=SHR
//* -------------------------------------------------------------
//* CMF REPORT --- REPORT( CSMON SUMMARY ONLY ) ---
//* ->  CMF-ANALYZER
//* -------------------------------------------------------------
//CMFRPT1 EXEC PGM=CMFANLYZ,PARM='CTRLSIZE=2000K',REGION=8M
//STEPLIB  DD DSN=MNVIW.SYS&SYSNAME..BBLINK,DISP=SHR
//DMSSMAIN DD UNIT=WORK,SPACE=(CYL,(50,10))     - DMSS WORK FILE
//EXTDATA  DD DSN=&&SELECT,DISP=(OLD,PASS)
//IPSLIB   DD DSN=SYS1.PARMLIB,DISP=SHR   - INPUT FOR GRAPH TYPE=DOMAIN
//RPTCONTS DD SYSOUT=*                    - REPORT TABLE OF CONTENTS
//CMFLOG   DD SYSOUT=*                    - COLLECTION PHASE LOG
//SYSPRINT DD SYSOUT=&SOUT2               - REPORTS
//CMXTRACE DD SYSOUT=*                    - TRACE DATA
//SNAPS    DD SYSOUT=*                    - ANALYZER SNAPS
//SNAPVBS  DD SYSOUT=*                    - INVALID RECORD SNAPS
//SYSUDUMP DD DUMMY                       - ANALYZER ABEND
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR4),DISP=SHR
//* -------------------------------------------------------------
//* DEVV REPORT --- SELECT
//* ->  ＤＥＶＶのデータを抜き出す
//* -------------------------------------------------------------
//SMF74   EXEC PGM=IFASMFDP,TIME=1439,DPRTY=(14,14)
//SYSPRINT DD SYSOUT=*
//IN1      DD DSN=SMFDUMP.&SYSNAME..@240(0),DISP=SHR
//OUT      DD DSN=&&DEVV,DISP=(,PASS),
//         UNIT=DASD,VOL=SER=FC66I9,SPACE=(CYL,(100,50),RLSE)
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR6),DISP=SHR
//*SID(AI09)
//*INDD(IN1,OPTIONS(DUMP))
//*OUTDD(OUT,TYPE(74))
//* -------------------------------------------------------------
//* DEVV REPORT -- SORT
//* ->  ＤＥＶＶのデータをソート
//* -------------------------------------------------------------
//EXCLUSI EXEC PGM=@SMF#ES1
//STEPLIB  DD  DSN=DDMSL.V1R2M1.LOADLIB,DISP=SHR
//INDD     DD  DSN=&&DEVV,DISP=(OLD,PASS)
//TYPE04   DD  DUMMY
//TYPE32   DD  DUMMY
//TYPE41   DD  DUMMY
//TYPE208  DD  DUMMY
//TYPE16   DD  DUMMY
//TYPE74   DD  DSN=&&T74&SYSNAME.,DISP=(,PASS),
//         UNIT=WORK,SPACE=(CYL,(10,10),RLSE),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*********************
//* -------------------------------------------------------------
//* EXECUTE DEVV REPORT
//* ->  ＤＥＶＶのデータをＥＸＣＥＬ用に変換
//* -------------------------------------------------------------
//SYS9R1  EXEC PROC=DUMPDEVV,DEV=SYS9R1
//SYS9R2  EXEC PROC=DUMPDEVV,DEV=SYS9R2
//SYS9R3  EXEC PROC=DUMPDEVV,DEV=SYS9R3
//SYS9R4  EXEC PROC=DUMPDEVV,DEV=SYS9R4
//SYS9C1  EXEC PROC=DUMPDEVV,DEV=SYS9C1
//SYS9S1  EXEC PROC=DUMPDEVV,DEV=SYS9S1
//SYS9S2  EXEC PROC=DUMPDEVV,DEV=SYS9S2
//SYS9P3  EXEC PROC=DUMPDEVV,DEV=SYS9P3
//* -------------------------------------------------------------
//* AI09 VIRTUAL MEMORY ( CSA , SQA )
//* ->  SQA,CSA
//* -----------------------------------------------------------
//DEL09   EXEC PGM=IEFBR14
//OVST     DD DSN=EXCEL.&SYSNAME..OVST,DISP=(OLD,DELETE),
//         UNIT=DASD,VOL=SER=SLR001
//OCPT     DD DSN=EXCEL.&SYSNAME..OCPT,DISP=(OLD,DELETE),
//         UNIT=DASD,VOL=SER=SLR001
//ALC09   EXEC PGM=IEFBR14
//OVST     DD DSN=*.DEL09.OVST,DISP=(,CATLG),
//         UNIT=SYSDA,VOL=REF=*.DEL09.OVST,SPACE=(TRK,(20,10)),
//         DCB=(RECFM=VB,LRECL=4000,BLKSIZE=4004)
//OCPT     DD DSN=*.DEL09.OCPT,DISP=(,CATLG),
//         UNIT=SYSDA,VOL=REF=*.DEL09.OCPT,SPACE=(TRK,(20,10)),
//         DCB=(RECFM=VB,LRECL=4000,BLKSIZE=4004)
//EXCL09  EXEC PGM=IFASMFDP,TIME=1439,DPRTY=(14,14)
//SYSPRINT DD SYSOUT=*
//IN1      DD DSN=SMFDUMP.&SYSNAME..@240(0),DISP=SHR
//OUT1     DD DSN=&&SMFDUMP,DISP=(,PASS),
//         UNIT=DASD,VOL=SER=FC66I9,SPACE=(CYL,(100,50),RLSE)
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR7),DISP=SHR
//*NDD(IN1,OPTIONS(DUMP))
//*UTDD(OUT1,TYPE(50,70:78))
//SOCP09  EXEC PGM=SORT,REGION=4096K,PARM='SIZE=MAX',TIME=1440
//SORTIN   DD DSN=&&SMFDUMP,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=&&SORTOUT,DISP=(,PASS),
//         UNIT=DASD,VOL=SER=FC66I9,SPACE=(CYL,(100,50),RLSE)
//SYSOUT   DD SYSOUT=*
//SYSIN    DD DSN=SYS2.PARMLIB(DMPKUNR2),DISP=SHR
//*ORT FIELDS=(11,4,PD,A,7,4,BI,A,6,1,BI,A)
//*ND
//VST     EXEC PGM=CPESHELL,REGION=4096K,TIME=1440
//STEPLIB  DD DSN=ES1.V3R1M0.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSUT1   DD UNIT=WORK,SPACE=(TRK,(10,5))
//INPUT    DD DSN=&&SORTOUT,DISP=(OLD,PASS)
//BASICUT1 DD DSN=*.DEL09.OVST,DISP=OLD
//PLATFORM DD DSN=SYS2.PARMLIB(DMPKUNR8),DISP=SHR
//         DD DSN=ES1.USER.CUSTPROF(GRPSTGEX),DISP=SHR
//CPT     EXEC PGM=CPESHELL,REGION=4096K,TIME=1440
//STEPLIB  DD DSN=ES1.V3R1M0.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSUT1   DD UNIT=WORK,SPACE=(TRK,(10,5))
//INPUT    DD DSN=&&SORTOUT,DISP=(OLD,PASS)
//BASICUT1 DD DSN=*.DEL09.OCPT,DISP=OLD
//PLATFORM DD DSN=SYS2.PARMLIB(DMPKUNR9),DISP=SHR
//         DD DSN=ES1.USER.CUSTPROF(EXCEL),DISP=SHR
//* = NORMAL PROCESS ============================================
//NOMAL    ENDIF
//* -------------------------------------------------------------
//* -------------------------------------------------------------
//* 結果確認
//* -------------------------------------------------------------
//* =============================================================
//* = CONDITION CODE CHECK ======================================
//CONDOK   IF RC < 8 THEN
//* =============================================================
//KEKKAOK  EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DSN=SYS2.PARMLIB(DMPKUNRO),DISP=SHR
//CONDOK   ENDIF
//* = CONDITION CODE CHECK ======================================
//CONDNG    IF RC >= 8 THEN
//* =============================================================
//KEKKANG  EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DSN=SYS2.PARMLIB(DMPKUNRN),DISP=SHR
//CONDNG   ENDIF
//* = CONDITION CODE CHECK ======================================
//CONDABD  IF ABEND THEN
//* =============================================================
//KEKKANG  EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DSN=SYS2.PARMLIB(DMPKUNRA),DISP=SHR
//CONDABD  ENDIF