ca.portal.admin

[IDMS-L] Backup Techniques for 24 X 7 X 365 Shops with very

Discussion created by ca.portal.admin on Jan 21, 2006
large data bases

Hello All:

I am looking for backup techniques for 24 x 7 x 365 Shops with very
large data bases. Would you be so kind as to share your techniques with
me.

We do not want to shut down or stop online users from gaining access or
updating the data base while the backup's are running.

I have heard of TDMF from Fujitsu, SNAP and Flash Copy.

I would like to hear from anyone who is willing to share your technique
with me.

Bill Allen

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Need CPU Time Information
"One has to grit one's teeth and dig into the CULPRIT. . .
You need TASPGMID instead of / in addition to TASTCDID (name) & TASTSKID (Number) . . .

//******************************************************************
//* APPLICATION MONITOR REPORTS *
//******************************************************************
//PMAM EXEC CULPPM,CV=IDMSDC,WORKPR=400,SORTPR=500,
// WORKSEC=1000,SORTSEC=1000,REGION=32M
//SYSIN DD *
DATABASE DICTNAME=SYSDIRL
PARAM=NOLIST
USE 'PMARPT00'
USE LISTLOG# CH R TO 35 $ <<-- NOTE USER CODE INSERTED HERE!
USE LISTLOGT WITH VALUES (TASPGMID TASPGMGP) CH R TO 75
//SYS011 DD DSN=IDMSDBA.AEID.PMSMFEX(-0),DISP=SHR,
// DCB=BLKSIZE=0
//SYSIDMS DD *
DMCL=AEIDMCL,ECHO=ON
//*

98$ ---------------------------------------------------------------
98$ GLOBAL DETAIL DATA FOR LISTLOG_ PROGRAMS.
98$ NOTE THAT INPUT IS DEFINED BY PMARPT00.
98$ NOTE THAT NO OUTPUT IS WRITTEN, ONLY TRANSIENT GLOBAL DATA IS
98$ PASSED TO OTHER PROGRAMS.
98$ ---------------------------------------------------------------
98OUT D LP=53
98SORT GW-GREG-DATE HHMMSS
980 CTR 1
980 IOF 0.5 $ AVERAGE SEEK TIME ~ IO FUDGE FACTOR
GW0 HHMMSS HH MM SS 0
GW0 ARPT '
' $ X'02' $ PM APPL REPORT FLAG
GW0 TYP ' ' $ 'O' OR 'B'
GW0 DTLTIME 0
GW0 DTLPGMGP ' '
GW0 DTLPAGIO DTLSQIO DTLTRMIO DTLRESP CALCRESP DTLALLIO 0
GW0 DTLTIMUS DTLTIMSY DTLTIMCP DTLTIMWT DTLSTGHW 0
GW0 SRC.0 ' '
GW0 SRC1 ' '
GW0 SRC1F '-'
GW0 SRC2 ' '
983SPECIAL DBA REPORT
98410050 'GLOBAL STATS FOR LISTLOG_ PROGRAMS'
98420064 'ON'
98420067 GW-GREG-DATE FD
98420001 'LISTLOG#'
98420117 'SOFTWARE BY DEM'
98430001 ' '
9851*000 CTR
9851*010 HHMMSS FM '99:99:99' HH 'TOD'
9851*020 PMSDCV# FM 'ZZ' HH 'CV'
9851*030 TASTCDID HH 'TASK' 'CODE'
9851*040 TASPGMID HH 'PROGRAM'
9851*050 TASTSKID SZ=7 F0 HH 'TASK' 'ID'
9851*080 DTLTIMCP FM 'ZZZZ.99' HH 'TASK' 'CPU'
9851*090 DTLTIMWT FM 'ZZZZ.99' HH 'WAIT' 'TIME'
9851*100 DTLRESP FM 'ZZZZ.99' HH 'TASK' 'RESP'
98$$*110 DTLTRMIO FM 'ZZZZZZ9' HH 'TP' 'IO'
9851*130 DTLSTGHW FM 'ZZZZZZ9' HH 'STG.HW' 'K'
$9851*140 DTLSQIO FM 'ZZZZZZ9' HH 'S&Q' 'IO'
9851*105 DTLPAGIO FM 'ZZZZZZ9' HH 'DB' 'IO'
9851*195 CALCRESP FM 'ZZZ.99' HH 'CALC''D' 'RESP'
9851*200 DTLALLIO FM 'ZZZ.99' HH 'ALLIO'
987 $ FILTER LOGIC FROM PERFMON -----------------------------
987 IF GW-STOP-ALL-RPTS EQ 'Y' DROP $ HAD RPT00 ERROR
987 IF GW-RECORD-SELECTED NE 'Y' DROP $ RECORD NOT SELECTED
987 IF TASTTYPE EQ X'08' DROP $ SYSTEM TASK
987 $ IF TASTTYPE NE (X'80' X'A0') DROP $ NOT ADS/O
987 $ FILTER LOGIC FROM PERFMON -----------------------------
987 M 'O' TYP $ ONLINE BY DEFAULT
987 IF TASTTYPE EQ X'80' 001
987 M 'B' TYP $ BATCH
987001
987 M GW-TASK-TYPE SRC2
$987 M 'COB' SRC2 $ COB BY DEFAULT
$987 IF TASPTYPE EQ X'80' 002
$987 M 'ADS' SRC2
$987 IF TASPTYPE EQ X'10' 002
$987 M 'BAL' SRC2
987002
987 M 'CMS' SRC1
987 IF TASAMNAM = ('CMS' ' ' ' ') 003
987 M 'BAT' SRC1
987 IF TASAMNAM = 'BAT' 003
987 M TASAMNAM SRC1
987003
987 IF PMSPMID NE ARPT DROP $ ONLY AM RECORDS
987 IF PMHRTYPE NE 16 DROP $ ONLY TASK STATS
987 $ FILTER LOGIC FROM PERFMON -----------------------------
987 C TRUNC GW-START-TIME / 100 DTLTIME $ HH:MM TIME
00$--------------
00$ CONVERT TIME TO HH:MM:SS FORMAT
00$
007 C TRUNC (PMHSTIME / 3600 ) HH
007 C TRUNC ((PMHSTIME - (HH X 3600)) / 60) MM
007 C TRUNC (PMHSTIME - (HH X 3600) - (MM X 60)) SS
007 C TRUNC ((HH X 10000) + (MM X 100) + SS) HHMMSS
00$--------------
987 M TASPGMID DTLPGMGP $ SET MID-LEVEL SORT FIELD
987 C ROUND (TASTIMUS * 100) DTLTIMUS $ MAKE DP=2
987 C ROUND (TASTIMSY * 100) DTLTIMSY $ MAKE DP=2
987 C ROUND (TASTIMWT * 100) DTLTIMWT $ MAKE DP=2
987 C DTLTIMUS + DTLTIMSY DTLTIMCP $ TOTAL CPU
987 C DTLTIMCP + DTLTIMWT DTLRESP $ TOTAL RESPONS
987 C TASTRMRD + TASTRMWR DTLTRMIO $ TOTAL TERMIO
987 C TASPAGRD + TASPAGWR DTLPAGIO $ TOTAL EXCP
987 C TASSCRGT + TASSCRPT + TASSCRDL +
* TASQUEGT + TASQUEPT + TASQUEDL DTLSQIO $ TOTAL S&Q IO
987 $ CALC EST. IO TIME
987 C ROUND (DTLSQIO + DTLPAGIO + TASPGMLD)
* X IOF DTLALLIO
987 $ ADD IN REAL CPU FOR EST. RESP.TIME
987 C DTLALLIO + DTLTIMCP CALCRESP
987 C TASSTGHW / 1024 DTLSTGHW
$000 LMT 0
$987 C LMT + 1 LMT
$987 IF LMT > 999 STOP-RUN
$987 TAKE
987 DROP $ DON'T WRITE ANY DATA

98$ ---------------------------------------------------------------
98$ DETAIL / SUMMARY LIST OF CV TASKS (BATCH AND ONLINE).
98$ NOTE THAT DETAIL DATA IS SHARED GLOBALLY WITH OTHER PROGRAMS.
98$ NOTE THAT ""OUT"" CARD CAN BE CHANGED TO PRINT SUMMARY LIST ONLY.
98$ NOTE THAT INPUT IS DEFINED BY PMARPT00.
98$ NOTE &&1,&&2 = WITH VAL (TASPGMID TASPGMGP)
98$ ---------------------------------------------------------------
98$UT LP=53 $ DETAIL AND SUMMARY
98OUT T LP=53 $ SUMMARY ONLY
98$UT 132 T PS DD=PGMRPT $ SUMMARY, OUTPUT FILE
98SORT SRC,1 GW-GREG-DATE,1 PMSDCV#,1 &&2,0 &&1,0
980 &&2 '...'
980 CTR 1
980 LIT611 ' '
980 LIT612 ' '
980 LIT622 ' '
980 AVGTIMUS AVGTIMSY AVGTIMCP AVGTIMWT AVGRESP AVGSTGHW AVGTLOCK 0
980 AVGTRMIO AVGPGMCL AVGSTGGT AVGSQIO AVGPAGRQ AVGRECCU AVGPAGIO 0
980 AVGHIRCE AVGHIRLE AVGHIDPE AVGCRESP AVGUPCNT 0
983SPECIAL DBA REPORT
98410054 'DETAIL DC TASK STATISTICS'
98420055 'FOR CV'
98420061 PMSDCV# FM '99'
98420064 'ON'
98420067 GW-GREG-DATE FD
98420001 'LISTLOGT FOR '
98420014 SRC
98420117 'SOFTWARE BY DEM'
98430001 ' '
9851*000 CTR
980 ABNDCTR AVGABND 0
9851*000 ABNDCTR
9851*001 GW-GREG-DATE FD
9851*010 HHMMSS FM '99:99:99'
9851*020 TASPGMID SZ=8 $$ 'PROGRAM' 'ID'
9851*030 TASTSKID SZ=7 F0 HH 'TASK' 'ID'
$9851*040 TASUSID SZ=7 HH 'USER' 'ID'
$9851*050 TASTRMID SZ=8 HH 'TERMINAL' 'ID'
$9851*070 DTLTIMUS FM 'ZZZZ.99' HH 'USER' 'CPU'
9851*080 DTLTIMCP FM 'ZZZZ.99' HH 'TASK' 'CPU'
9851*090 DTLTIMWT FM 'ZZZZ.99' HH 'WAIT' 'TIME'
9851*100 DTLRESP FM 'ZZZZ.99' HH 'TASK' 'RESP'
9851*105 DTLPAGIO FM 'ZZZZZZ9' HH 'DB' 'IO'
9851*107 TASTLOCK FM 'ZZZZZZ9' HH 'DB' 'LOCKS'
9851*108 TASUPCNT FM 'ZZZZZZ9' HH 'DB' 'UPDTS'
$9851*110 DTLTRMIO FM 'ZZZZZZ9' HH 'TP' 'IO'
9851*110 TASPAGRQ FM 'ZZZZZZ9' HH 'DB' 'REQS'
$9851*120 TASPGMLD FM 'ZZZZZZ9' HH 'PGMS' 'IO'
$9851*140 DTLSQIO FM 'ZZZZZZ9' HH 'S&Q' 'IO'
9851*180 TASSTGHW FM 'ZZZZZZ9' HH 'STG' 'HWM'
$9851*195 CALCRESP FM 'ZZZZ.99' HH 'CALC''D' 'RESP'
$9851*200 TASHIRCE SZ=5 F0 HH 'HI' 'RCE'
$9851*210 TASHIRLE SZ=5 F0 HH 'HI' 'RLE'
$9851*220 TASHIDPE SZ=5 F0 HH 'HI' 'DPE'
9851*230 TASABCDE HH 'ABND'
9851*240 ' ' $ DUMMY REPORT COLUMN TO AFFECT SPACING
98$ ---------------------------------
9861*001 AVG-DATE FD
980 AVG-DATE 0
9861*010 CTR SZ=8 F0
9861*020 LIT611 SZ=8
9861*030 LIT612 SZ=14
$9861*070 DTLTIMUS F0 SZ=6 DP=2
9861*080 DTLTIMCP F0 SZ=6 DP=2
9861*090 DTLTIMWT F0 SZ=8 DP=2
9861*100 DTLRESP F0 SZ=8 DP=2
9861*105 DTLPAGIO FM 'ZZZZZZ9'
9861*107 TASTLOCK FM 'ZZZZZZ9'
9861*108 TASUPCNT FM 'ZZZZZZ9'
$9861*110 DTLTRMIO FM 'ZZZZZZ9'
9861*110 TASPAGRQ FM 'ZZZZZZ9'
$9861*120 TASPGMLD FM 'ZZZZZZ9'
$9861*140 DTLSQIO FM 'ZZZZZZ9'
9861*180 TASSTGHW FM 'ZZZZZZ9'
$9861*195 CALCRESP F0 SZ=8 DP=2
$9861*200 TASHIRCE SZ=5 F0
$9861*210 TASHIRLE SZ=5 F0
$9861*220 TASHIDPE SZ=5 F0
9861*230 ABNDCTR FM 'ZZZ9'
98$ ---------------------------------
9862*001 AVG-DATE FD
9862*010 CTR SZ=8 F0
9862*020 LIT611 SZ=8
9862*030 LIT622 SZ=14
$$862*070 AVGTIMUS F0 SZ=6 DP=2
9862*080 AVGTIMCP F0 SZ=6 DP=2
9862*090 AVGTIMWT F0 SZ=8 DP=2
9862*100 AVGRESP F0 SZ=8 DP=2
9862*105 AVGPAGIO FM 'ZZZZZZ9'
9862*107 AVGTLOCK FM 'ZZZZZZ9'
9862*108 AVGUPCNT FM 'ZZZZZZ9'
9862*110 AVGPAGRQ FM 'ZZZZZZ9'
$9862*110 AVGTRMIO FM 'ZZZZZZ9'
9862*120 AVGPGMCL FM 'ZZZZZZ9'
$9862*140 AVGSQIO FM 'ZZZZZZ9'
9862*180 AVGSTGHW FM 'ZZZZZZ9'
$9862*195 AVGCRESP F0 SZ=8 DP=2
$9862*200 AVGHIRCE SZ=5 F0
$9862*210 AVGHIRLE SZ=5 F0
$9862*220 AVGHIDPE SZ=5 F0
9862*230 AVGABND FM 'ZZZ9'
986800010 '- - - - - - - - - - - '
98680034 '- - - - - - - - - - - '
98680067 '- - - - - - - - - - - '
98680100 '- - - - - - - - - - - '
987001$ FILTER LOGIC FROM PERFMON -----------------------------
987 IF GW-STOP-ALL-RPTS EQ 'Y' DROP $ HAD RPT00 ERROR
987 IF GW-RECORD-SELECTED NE 'Y' DROP $ RECORD NOT SELECTED
987 IF TASTTYPE EQ X'08' DROP $ SYSTEM TASK
987 $ IF TASTTYPE NE (X'80' X'A0') DROP $ NOT ADS/O
987 IF PMSPMID NE ARPT DROP $ ONLY AM RECORDS
987 IF PMHRTYPE NE 16 DROP $ ONLY TASK STATS
987010$ FILTER LOGIC FROM PERFMON -----------------------------
987 M 0 ABNDCTR
987 IF TASABCDE LE ' ' 020
987 C ABNDCTR + 1 ABNDCTR
987020$
987025M &&1 &&2
987030
987 TAKE $
988 C ROUND GW-GREG-DATE / CTR AVG-DATE
988 $ ROUND DTLTIMUS / CTR AVGTIMUS $
988 $ ROUND DTLTIMSY / CTR AVGTIMSY $
988 C ROUND DTLTIMCP / CTR AVGTIMCP $
988 C ROUND DTLTIMWT / CTR AVGTIMWT $
988 C ROUND DTLRESP / CTR AVGRESP $
988 C ROUND CALCRESP / CTR AVGCRESP $
988 C ROUND DTLTRMIO / CTR AVGTRMIO $
$988 C ROUND TASPGMLD / CTR AVGPGMCL $
$988 C ROUND TASSTGGT / CTR AVGSTGGT $
$988 C ROUND DTLSQIO / CTR AVGSQIO $
988 C ROUND TASPAGRQ / CTR AVGPAGRQ $
988 C ROUND DTLPAGIO / CTR AVGPAGIO $
988 C ROUND TASSTGHW / CTR AVGSTGHW $
988 C ROUND TASTLOCK / CTR AVGTLOCK $
988 C ROUND TASUPCNT / CTR AVGUPCNT $
$988 C ROUND TASHIRCE / CTR AVGHIRCE $
$988 C ROUND TASHIRLE / CTR AVGHIRLE $
$988 C ROUND TASHIDPE / CTR AVGHIDPE $
988 C ROUND ABNDCTR / CTR AVGABND $
988 M ' ' LIT611 $
988 IF LEVL > 2 200 $ TASK LEVEL BREAK
988 IF LEVL > 1 100 $ TASK LEVEL BREAK
988 M &&1 LIT611 $ SET TASK NAME
988 TAKE (1 2) $
988100$
988 M &&2 LIT611 $ SET TASK NAME
988 M 'TASKS TOTALS' LIT612 $ SET DESCRIPTION
988 M 'TASKS AVERAGES' LIT622 $ SET DESCRIPTION
988 TAKE (1 2 8) $
988200IF LEVL > 3 300 $ CV LEVEL BREAK
988 M 'TASKS' LIT611 $ SET TASK NAME
988 M ' CV TOTALS' LIT612 $ SET DESCRIPTION
988 M ' CV AVERAGES' LIT622 $ SET DESCRIPTION
988 TAKE (1 2 8) $
988300IF LEVL > 4 400 $ DAY LEVEL BREAK
988 M 'TASKS' LIT611 $ SET TASK NAME
988 M ' DAYS TOTALS' LIT612 $ SET DESCRIPTION
988 M ' DAYS AVERAGES' LIT622 $ SET DESCRIPTION
988 TAKE (1 2 8) $
988400IF LEVL > 5 500 $ GRANDLEVEL BREAK
988 M 'TASKS ' LIT611 $ SET TASK NAME
988 M 'SOURCETOTALS' LIT612 $ SET DESCRIPTION
988 M 'FINAL AVERAGES' LIT622 $ SET DESCRIPTION
988 TAKE (1 2 8) $
988500IF LEVL NE 6 DROP $ GRANDLEVEL BREAK
988 M 'TASKS ' LIT611 $ SET TASK NAME
988 M 'GRAND TOTALS' LIT612 $ SET DESCRIPTION
988 M 'FINAL AVERAGES' LIT622 $ SET DESCRIPTION
988 TAKE (1 2 8) $

Outcomes