31bcd5a419f23a15b3fd0eae06109e70.ppt
- Количество слайдов: 79
ADABAS V 82 Jim Poole 2010 Adabas V 82 by Jim Poole
01. COMPATIBILITIES 02. CONVERSION 03. LOWER CASE FIELD NAMES 04. REMOVING UNIQUE DESCRIPTOR FLAG 05. SMF RECORDS 06. ADASAV FILE RANGE (FILE=, FMOVE=) 07. NEW AC EXTENTS 08 DATE/TIME EDIT MASKS DT= 09. TIME ZONE SUPPORT TZ= 10. DST DAYLIGHT SAVINGS INDICATOR 11. SYSTEM FIELDS 12. LOGICAL REMOVAL OF DESCRIPTORS 13. LOGICAL REMOVAL OF FIELDS 14. ADADBS MODFCB FILEREADONLY 15. ADADBS ONLINVERT FNDEF option 16. SVC PERFORMANCE 17. ADARES PLCOPY more plogs 18. ADARUN LOGWARN 19. ADADBS ADDPLOG, DELPLOG 20. ADARES REGENERATE/BACKOUT 21. ADARUN NPLOG/NWORK 1 22. WORK I, III USE TOPICS (V 8. 2. 2) 2 Adabas V 82 by Jim Poole
23. ADASEL NEW FEATURES TOPICS (V 8. 2. 2) 24. ADAZIN (NEW) MAINT AND SVC INFO 25. ADARUN SRLOG, PLOG SPANNED RECORDS 26. ADARUN PREFSTDD 27. ADADBS FUNCTIONS. FILE LOCK NOT REQUIRED 28. REVIEW OF IN PARALLEL 29. INFOBUFFERSIZE, DEVENTLOG 30. ADARUN LOGVOLIO 31. CLOG DSECT UPDATED FOR Sx ALGORITHM 32. ADAREP PPT 33. ADAREP XML 34. ADAREP CHANGES 35. DDPRINT CHANGES 36. ADARUN V 64 BIT 37. ADARUN LARGEPAGE 38. ACBX 64 BIT SUPPORT 39. LOB ENHANCEMENTS 40. OP CMD NWCONNECT FOR ENTIRE NETWORK 41. ADAWRK TRANSACTION NUMBERS 42. SHARED HOLD STATUS 3 43. SMGT CHANGE 44. RI COMMAND CHANGES Adabas V 82 by Jim Poole
01. COMPATIBILITIES WORKS WITH ALL CURRENT V 8 SAG PRODUCTS WCP SQL PAC ACE V 6. 2. 1 V 2. 4. 1 V 2. 6. 1 V 6. 6. 4 NAT PRD AVI COR V 4. 2. 5 V 4. 5. 2 V 8. 1. 2 ? Earlier Versions / ? Other Products ? EXCEPTIONS UNKNOWN NON-SAGPRODUCTS SVC , AOS (LATER) PREDICT NEW FEATURES ADASTRIP >5. 0. 2 P new release CA-APAS compatible, apply Z 51047 CA-APAS exploit features Q 4 2010 4 Adabas V 82 by Jim Poole
01. COMPATIBILITIES (ADASAV) YES: RESTORE/RESTONL FILES=/FMOVE V 81 to V 82 (V 82 LOADLIB) NO: RESTORE/RESTONL FILES=/FMOVE V 82 to V 81 5 Adabas V 82 by Jim Poole
02. CONVERSION NOTE 1: V 82 SVC IS UP/DOWN COMPATIBLE. V 81 SVC IS NOTE 2: V 82 AOS IS UP/DOWN COMPATIBLE. V 81 AOS IS NOTE 3: V 81 ADALINKS ARE UP/DOWN COMPATIBLE NOTE 4: Zapped CA-APAS IS NOT DOWN COMPATIBLE STEPS: 1. INFRASTRUCTURE TO V 82: SVC, AOS, CA-APAS 2. CONVERT DATABASES (STANDARD ADACNV) (PLOGS not needed) 1. CONVERT ADALINKS (BATCH, CICS, ETC) 6 Adabas V 82 by Jim Poole
03. LOWER CASE FIELD NAMES V 82 PRIOR V 82 926 field names ( 26 * 36 – 10 ) 3214 field names ( 52 * 62 – 10 ) WHEREVER FNDEF’s ADACMP FNDEF='01, AA, 10, A, DE, UQ' ARE USED ADACMP FNDEF='01, Aa, 10, A' (ADACMP, ADADBS, ADACMP FNDEF='01, aa, 10, A' ADACMP FNDEF='01, a. A, 10, A' ADAINV ADAREP / AOS Field Description Table I I Level I Name I Length I Format I ------I--------I 1 I AA I 10 I A I 1 I Aa I 10 I A I 1 I a. A I 10 I A I ! ADARUNS ! ADARUN MSGCONSL=UPPER ADARUN MSGDRUCK=MIXED 7 ADARUN MSGPRINT=MIXED Adabas V 82 by Jim Poole
04, 05, 06 QUICKIES: NOUQ, SMF, ADASAV FILE Range 04. REMOVING UNIQUE DESCRIPTOR FLAG ADADBS CHANGE FILE=42, FIELD='AA', OPTION=NOUQ (not available in AOS) 05. SMF RECORDS ADARUN SMF=NO/YES (SMF 89, SMFDETAIL, SMFINTERVAL, SMFRECNO, SMFSUBSYS) 06. ADASAV FILE RANGE (FILE=, FMOVE=) ADASAV FILE=100 -120 8 Adabas V 82 by Jim Poole
07. NEW AC EXTENTS “NEW AC EXTENTS WILL ATTEMPT TO BE CONTIGUOUS” V 81 ADAREP 15686 - 15686 15687 - 53988 1 8391 38302 8391 V 81: ADD 1000 RECORDS, RUN ADAREP 11473 - 11473 1 8391 15686 - 15686 1 8391 15687 - 53988 38302 8391 AC UNUSED 43 DAT 911 0 DAT 911 AC AC UNUSED 43 DAT 911 0 DAT 911 V 82: RELOAD FILE, ADD 1000 RECORDS, RUN ADAREP 15686 - 15687 2 8391 AC 43 DAT 911 15688 - 53988 38302 8391 UNUSED 0 DAT 911 DOES NOT WORK WITH ADADBS/AOS (STARTRABN=) 9 Adabas V 82 by Jim Poole
08. DATE/TIME EDIT MASKS DT= Default Edit Mask or Programming Edit Mask for Adabas Fields. PART OF DB FDT (DFLT) OR CHANGE IN DIRECT CALL FB CURRENT FORMATS FORMAT/LEN NAME B P U DATE 4 5 8 TIME 3 4 6 DATETIME 6 8 14 TIMESTAMP - 11 20 NATTIME 6 7 13 NATDATE 3 4 7 UNIXTIME 4 XTIMESTAMP 8 6 8 10 18 Description Z'YYYYMMDD' Z'HHIISS' Z'YYYYMMDDHHIISSXXXXXX' NATURAL T FORMAT (. 1 SECS SINCE YEAR ZERO) NATURAL D FORMAT DAYS SINCE YEAR ZERO) FOR UNIX (SINCE 1970. 01. 01) 10 Adabas V 82 by Jim Poole
08. DATE/TIME EDIT MASKS DT= TO CREATE: ADACMP FNDEF='01, D 1, 20, U, DT=E(TIMESTAMP)' ADACMP FNDEF='01, D 2, 14, U, DT=E(DATETIME)' ADACMP FNDEF='01, D 3, 06, B, DT=E(DATETIME)' ADADBS NEWFIELD FILE=42, FNDEF='01, Z 3, 20, U, DT=E(TIMESTAMP)' STORED IN UTC (UNIVERSAL TIME CODE) FORMAT (GMT) NOTE: PREDICT 4. 6 DOES NOT SUPPORT! 11 Adabas V 82 by Jim Poole
08. DATE/TIME EDIT MASKS DT= IN PROGRAM '01, D 1, 20, U, DT=E(TIMESTAMP)' DATE/TIME 2010. 03. 12 16: 06: 32. 2938579 PROGRAM FB= D 1. RETURNS RB= 20100312160632938579 D 1, 08, U, E(DATE). 20100312 D 1, 06, U, E(TIME). 160632 D 1, 14, U, E(DATETIME). 20100312160632 D 1, 13, U, E(NATTIME). 0634355427929 D 1, 07, U, E(NATDATE). 0734207 D 1, 10, U, E(UNIXTIME). 1268409992 D 1, 18, U, E(XTIMESTAMP). 001268409992938579 12 Adabas V 82 by Jim Poole
08. DATE/TIME EDIT MASKS DT= 1. TO USE EDIT MASKS IN FB, FIELD MUST BE DEFINED WITH DT= ELSE Rsp. Code 41 2. 2. TRUNCATION/FILLING MAY OCCUR BETWEEN MASKS EG. '01, D 2, 14, U, DT=E(DATETIME)‘ FB=D 2, 20, U, E(TIMESTAMP). RB=20100312160632000000 3. FOR FULL DETAIL, SEE NEW MANUAL: "Date-Time Edit Masks Reference“ NOTE: Conversions Between Date-Time Representations (READ / UPDATE) 13 Adabas V 82 by Jim Poole
08. DATE/TIME EDIT MASKS DT= TO ADD/REMOVE IF '01, D 1, 20, U, DT=E(TIMESTAMP)‘ REMOVE WITH: ADADBS CHANGE FILE=43, FNDEF='01, D 1, 20, U' IF '01, D 1, 20, U‘ ADD WITH: ADADBS CHANGE FILE=43, FNDEF='01, D 1, 20, U, DT=E(TIMESTAMP)' 1. CANNOT CHANGE FROM ONE EDIT MASK TO ANOTHER 2. MASK MUST HAVE CORRECT FORMAT/LENGTH. ELSE Rsp. Code 55 14 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= “ENHANCE EDIT MASK ON DT= FIELDS” ADABAS NUC LOCAL TIME UTC/GMT FDT OPTION FOR TZ= FIELDS DATETIMESTAMP NATTIME UNIXTIMESTAMP 15 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= ZONEINFO or OLSON DATABASE www. twinsun. com/tz/tz-link. htm SEE ADABAS SOURCE (TZINFO) America/Chicago America/Denver America/Los_Angeles America/New_York , AMECHICA, , US/Central , AMEDENVE, America/Shiprock, Navajo US/Mountain , AMELOSAN, , US/Pacific , AMENEWYO, , US/Eastern America/Indianapolis, AMEININD, , America/Fort_Wayne America/Indiana/Knox, AMEINKNO, , America/Knox_IN US/Indiana-Starke America/Indiana/Marengo, AMEINMAR, , America/Indiana/Petersburg, AMEINPET, , America/Indiana/Tell_City, AMEINTEL, , America/Indiana/Vevay, AMEINVEV, , America/Indiana/Vincennes, AMEINVIN, , America/Indiana/Winamac, AMEINWIN, , 16 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= ADANUC / ADACMP JCL REQUIREMENTS //STEPLIB DD //TZINFO DD DISP=SHR, DSN=TZ. LOADLIB //DDCARD DD* ADARUN MSGDRUCK=MIXED USER OP en COMMAND RECORD-BUFFER= TZ='America/New_York' NOTE: TIME ZONES ARE CASE SENSITIVE NOTE: USE OF QUOTES 17 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= (examples) ADACMP ( 0 RECORDS or X RECORDS ADACMP TZ=‘America/Indiana/Vevay ' FNDEF='01, D 2, 14, U, DT=E(DATETIME), TZ‘ FNDEF= (note length, format, DT mask) ADADBS NEWFIELD FILE=43, FNDEF='01, D 4, 11, P, DT=E(TIMESTAMP), TZ' (NO //TZINFO, NO TZ= needed) NOTE: PREDICT 4. 6 DOES NOT SUPPORT! 18 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= (ADAREP (DT=) Field Description Table I I Level I Name I Length I Format I Options I I ------I--------I---------I I 1 I D 1 I 14 I U I DT=E(DATE) 1 I D 2 I 14 I U I DT=E(DATETIME), TZ 1 I D 3 I 14 I U I DT=E(DATETIME) 19 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= D 2, 14, U, DT=E(DATETIME), TZ 20100218220209 UTC/GMT YYYYMMDDHHMMSS OPen RB with L 1 RB=C 2, 8, U, E(TIME). -----------TZ='America/Chicago‘ 160209 TZ='America/New_York‘ 170209 TZ='America/Los_Angeles‘ 140209 (NOTE LOWER CASE) 20 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= (Response Codes) Rc 55 sub 30 Accessing a field option TZ but no time zone was specified in the user session. Issue the OP command with TZ= Rc 50 sub 31 Time zone not found in ADAZON directory. Rc 41 sub 30 Date-time edit mask (E(date-time-mask)) notation is only permitted for a field defined with a date-time edit mask. . 21 Adabas V 82 by Jim Poole
09. TIME ZONE SUPPORT TZ= (Final Thoughts) 1. There is no default timezone for a file. OPen is required (with TZ=) 2. Natural Implementation? 3. Change in timezones, change in file. 4. TZ flag can only be added/removed if File empty: ADADBS CHANGE FILE=43, FNDEF='01, D 2, 14, U, DT=E(DATETIME)‘ ADADBS CHANGE FILE=43, FNDEF='01, D 2, 14, U, DT=E(DATETIME), TZ' 5. UQE Open’d with TZ is not deleted if TNAE exceeded. 6. CPU Overhead. 22 Adabas V 82 by Jim Poole
CPU DT= vs TZ A B C RUN 1 DO 400 K L 1’s against A. Field B. Field with DT= C. Field with DT=, TZ (no IO, no overlap) A B C 2 3 A B C 4 7%. Increase in CPU for field access 23 Adabas V 82 by Jim Poole
10. DST DAYLIGHT SAVINGS INDICATOR ADACMP COMPRESS, DECOMPRESS FOR TZ FIELDS ADACMP TZ='America/New_York', DST “The two-byte daylight savings indicator directly follows the date-time value in uncompressed input and specifies the hexadecimal value of the daylight saving time offset from standard time in seconds. ” X’ 0000’ OR X’ 0 E 10’ (DECIMAL 3600) 24 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS CONCEPT Create Adabas fields on a file that are automatically updated by Adabas with respect to inserts (N 1, N 2) and updates (A 1). Note that deletes (E 1) are not recorded (if the record is deleted then so is the Adabas system field). AN ADABAS FIELD BUT ONLY THE NUC CAN UPDATE IT 25 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (RULES) 1. IF USER TRIES TO UPDATE, NOTHING. (NO RESPONSE CODE) 2. ADABAS UPDATES CONTENTS WHEN COMMAND (N 1, N 2, A 1) IS EXECUTED, NOT AT ET 3. IF THE UPDATES ARE BACKED OUT (TIMEOUT, BT), CONTENTS ARE BACKED OUT. 4. FIELDS ARE DEFINED AS 'SY' IN THE FDT AND ADAREP. 5. A CR FLAG INDICATES FIELD IS ONLY CHANGED WHEN ADDED. 6. NON-CR SY FIELDS RECORD BOTH UPDATES AND INSERTS. 26 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (RULES) 7. NON-CR SY FIELDS MUST BE DEFINED AS MU. (NOT A PE) 8. CR SY FIELDS CAN NOT BE DEFINED AS MU 9. SY FIELDS CAN BE DESCRIPTORS, PART OF DESCRIPTORS, ETC. 10. NON-CR SY FIELDS ARE MAINTAINED IN THE MU IN LIFO FASHION. 11. OCCURANCE 1 IS THE MOST RECENT UPDATE. 12. AS EACH UPDATE OCCURS, THE OTHER VALUES ARE MOVED TO N+1. 13. THE MAX NUMBER OF MU OCCURANCES IS DETERMINED BY SYFMAXUV. MAX=20 (IN FCB) 27 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (TYPES OF) JOBNAME 8 -BYTE JOBNAME OF USER THAT DID A 1, N 2. OPUSER 8 -BYTE ETID (FROM ADDS 1 OF OP COMMAND) SESSIONID 28 -BYTE UQE ID SESSIONUSER LAST 8 BYTES OF 28 B UQE ID (EG. TERM-ID OR CICS TRANID) TIME * UTC (GMT) OF A 1, N 2. * TIME CAN USE DT= and TZ attributes 28 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (CREATING) ADACMP COMPRESS or ADADBS NEWFIELD FNDEF ADACMP FNDEF='01, C 1, 08, A, CR, SY=JOBNAME' ADACMP FNDEF='01, C 2, 14, U, CR, SY=TIME, DT=E(DATETIME)' ADACMP FNDEF='01, S 1, 08, A, MU, SY=JOBNAME' ADACMP FNDEF='01, S 2, 14, U, MU, SY=TIME, DT=E(DATETIME)' * ADACMP FNDEF='01, S 3, 08, A, MU, SY=OPUSER' ADACMP FNDEF='01, S 4, 28, A, MU, SY=SESSIONID' ADACMP FNDEF='01, S 5, 08, A, MU, SY=SESSIONUSER' ADACMP FNDEF='01, S 6, 20, U, MU, SY=TIME, DT=E(TIMESTAMP)' ADACMP FNDEF='01, S 7, 13, U, MU, SY=TIME, DT=E(NATTIME)' ADACMP FNDEF='01, S 8, 08, U, MU, SY=TIME, DT=E(DATE)' *ADACMP FNDEF='01, XX, 20, U, MU, SY=TIME, DT=E(TIMESTAMP), TZ' ADALOD SYFMAXUV=1 (dlft=1, RANGE: 1 – 20 ) 29 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (ADAREP) MAX-ISN formatted =1, 377 System Field Max = 1 : : : System Fields Yes : : : Level I Name I Length I Format I Options ------I--------I-----------1 I C 1 I 8 I A I SY=JOBNAME, CR 1 I C 2 I 14 I U I DT=E(DATETIME) I I SY=TIME, CR 1 I S 1 I 8 I A I MU, SY=JOBNAME 1 I S 2 I 14 I U I MU, DT=E(DATETIME) I I SY=TIME 1 I S 3 I 8 I A I MU, SY=OPUSER 1 I S 4 I 28 I A I MU, SY=SESSIONID 1 I S 5 I 8 I A I MU, SY=SESSIONUSER 1 I S 6 I 20 I U I MU, DT=E(TIMESTAMP) I I SY=TIME 1 I S 7 I 13 I U I MU, DT=E(NATTIME) I I SY=TIME 30 1 I S 8 I U I MU, DT=E(DATE), SY=TIME Adabas V 82 by Jim Poole
11. SYSTEM FIELDS FLD TYPE C 1 CR, JOBNAME N 1 (STORE) TESTJOB 1 C 2 CR, DATETIME 20100319184817 A 1 (UPDATE) TESTJOB 1 20100319184817 TESTJOB 1 CICSPRG 20100319185826 S 2 DATETIME 20100319184817 CIC 34512 S 5 SESSIONUSER TSU 17862 20100319185826957801 20100319184817654496 S 6 TIMESTAMP 20100319184817654496 0634361579069 0634361572976 S 7 NATTIME 0634361572976 20100319 S 8 DATE 20100319 31 S 1 JOBNAME TESTJOB 1 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS CHANGING THE MU OCCURANCES ADADBS MODFCB SYFMAXUV= (NOTE: OCCURANCES NOT REDUCED UNTIL UPDATE OCCURS) HOW TO REMOVE A SYSTEM FIELD? 1. ADACMP DECOMPRESS 2. ADACMP COMPRESS 3. LOAD (PLOG/REGENERATE SOLUTIONS) 32 Adabas V 82 by Jim Poole
11. SYSTEM FIELDS (final notes) 1. IF UPDATE WITH NO DATA CHANGE, SY FIELDS STILL UPDATED 2. IF UPDATE A SY FIELD ONLY, SY FIELDS STILL UPDATED 3. LOGICAL FIELD DELETE (DELFN) STOPS SY FIELD UPDATES 4. PREDICT 4. 6 DOES NOT SUPPORT! 33 Adabas V 82 by Jim Poole
12. LOGICAL REMOVAL OF DESCRIPTORS “REMOVE A DESCRIPTOR FROM APPLICATION USE” WHY MARK DESCRIPTORS FOR EVENTUAL REMOVAL BUT QUICK BACKOUT PLAN FINE PRINT DESCRIPTOR INVERTED LIST CONTINUES TO BE UPDATED 34 Adabas V 82 by Jim Poole
12. LOGICAL REMOVAL OF DESCRIPTORS (Example) A. ADADBS DELDE FILE=16, DESCRIPTOR=AE B. READ LOGICAL BY AE (OR FIND) RSP. CODE 39 (not documented) C. UPDATE FIELD AE D. ADADBS UNDELDE FILE=16, DESCRIPTOR=AE E. READ LOGICAL OR FIND USES UPDATED VALUE 35 Adabas V 82 by Jim Poole
12. LOGICAL REMOVAL OF DESCRIPTORS (Example) ADAREP FDT 2 I AE I 20 I A I DE, DL ADADBS DELDE FILE=16, DESCRIPTOR=AE ADADBS UNDELDE FILE=16, DESCRIPTOR=AE AOS F L File maintenance Logically delete/undel descriptr 36 Adabas V 82 by Jim Poole
13. LOGICAL REMOVAL OF FIELDS “REMOVE A FIELD FROM APPLICATION USE (Rsp Code 41)” WHY? Eg. ADADBS DELFN FILE=16, FIELDLIST='AE‘ ADADBS DELFN FILE=99, FIELDLIST='AA, AB, AC‘ ADADBS UNDELFN FILE=16, FIELDLIST='AC' AOS F C File maintenance Define/modify FDT F Delete field from FDT G Undelete field from FDT ADAREP: 4 I I AC I I 20 I I A I NU IDELETED FIELD I I 37 Adabas V 82 by Jim Poole
13. LOGICAL REMOVAL OF FIELDS (notes) a. CANNOT REMOVE A DESCRIPTOR OR A PARENT FIELD FOR A DESCRIPTOR b. IF FIELD IS A GROUP, ALL FIELDS MARKED AS DELETED c. IF FIELD WITHIN A GROUP, FORMAT-BUFFER=grpname WILL STILL RETURN FIELD d. IF FIELD IS A SYSTEM FIELD, ADABAS DOES NOT UPDATE FIELD 38 Adabas V 82 by Jim Poole
14. FILE READONLY. ADADBS MODFCB FILE=42, FILEREADONLY=YES (or NO) AOS: F File maintenance M Modify file parameters Filereadonly. . . OFF ADAREP: READONLY-MODE No USER: Rsp Code 17 Sub 17 39 Adabas V 82 by Jim Poole
15, 16, 17: ONLINVERT FNDEF, SVC Performance, PLCOPY 15. ADADBS ONLINVERT FILE=201, FNDEF='01, NT, 7, A, NU' (Available in AOS) 16. IMPROVED SVC PERFORMANCE UNDER V 822. 17. ADARES PLCOPY CALLS UEX(2 OR 12) IF MORE PLOGS TO COPY 40 Adabas V 82 by Jim Poole
18. ADARUN LOGWARN = 0 – 2147483647 (DFLT = 0 ) Eg. LOGWARN=20 ADANP 1 ADANP 2 00169 00169 2010 -02 -16 2010 -02 -16 11: 41: 00 11: 41: 19 11: 41: 39 11: 41: 59 11: 42: 16 CAUTION: DDPLOGR 1 NOT YET PLOG WARNING NO LONGER IN COPIED EFFECT 41 Adabas V 82 by Jim Poole
19. ADADBS ADDPLOG, DELPLOG Eg. NUC JCL //DDPLOGR 1 DD //DDPLOGR 2 DD //DDPLOGR 3 DD //DDPLOGR 4 DD //DDPLOGR 5 DD //DDPLOGR 6 DD //DDCARD DD : : : ADARUN NPLOG=2 (not tested) DISP=SHR, DSN=AD. P. ADA 169. PLOG 1 DISP=SHR, DSN=AD. P. ADA 169. PLOG 2 DISP=SHR, DSN=AD. P. ADA 169. PLOG 3 DISP=SHR, DSN=AD. P. ADA 169. PLOG 4 DISP=SHR, DSN=AD. P. ADA 169. PLOG 5 DISP=SHR, DSN=AD. P. ADA 169. PLOG 6 * AS PLOGS ARE NEEDED (OR NOT): ADADBS ADDPLOG NUMBER=3 Or ADADBS ADDPLOG NUMBER=3 AOS: O Session opercoms A Allocate/Deallocate CLOG/PLOG 42 Adabas V 82 by Jim Poole
20. ADARES REGENERATE/BACKOUT RECORD COUNTS Eg. ADARES REGENERATE ----------------------I File Number I Data Record Updates I I---------------------I I 1 I 4 I I 43 I 408274 I ----------------------- 43 Adabas V 82 by Jim Poole
21. ADARUN NPLOG/NWORK 1 DEFAULT FOR WORK AND PLOGS: 1 BLOCK 1 IO V 82 OPTION: 1 IO FOR X BLOCKS POTENTIAL WORK/PLOG PERFORMANCE BOTTLENECKS A. HIGH UPDATE JOB(S) B. UPDATES DURING ADASAV SAVE C. ONLINE INVERTS, ONLINE ORDS D. CONCURRENT Sx (FIND) PROCESSING E. COMBINATIONS OF THE ABOVE OLD SOLUTIONS: WORK. CACHE / BLOCKSIZE SPLIT. WORK / MULTIPLE WORK(S) 44 Adabas V 82 by Jim Poole
21. ADARUN NPLOG/NWORK 1 (ADARUN) ADARUN NPLOGBUFFERS = 1 - 2, 147, 483, 687 ADARUN NWORK 1 BUFFERS = 1 - 2, 147, 483, 687 1. DEFAULT = 1 (1 IO PER BLOCK) 2. REQUIRES LFIOP /= 0 3. IF ADARUN V 64 BIT=YES Then ABOVE 2 G BAR 4. MEMORY SPACE = buffer. count X blocksize 45 Adabas V 82 by Jim Poole
21. ADARUN NPLOG/NWORK 1 (Example) Eg. ADARUN = 1 SHUTDOWN DDPRINT: PLOG WORK 1 PROTECTION BLOCKS I/OS 2, 962 2, 927 DSTAT : : : AREA ADARUN PARM HIGH-WATER-MARK : : : PLOG-IO B NPLOGB= 1 1 (100 %) WRK 1 -IO B NWORK 1= 1 1 (100 %) DRES AOS 46 Adabas V 82 by Jim Poole
21. ADARUN NPLOG/NWORK 1 (Example) Eg. NPLOGBUFFERS=100 NWORK 1 BUFFERS=100 SHUTDOWN DDPRINT: PLOG WORK 1 : : : AREA : : : PROTECTION BLOCKS I/OS ADARUN PARM PLOG-IO B NPLOGB= WRK 1 -IO B NWORK 1= 100 37, 922 22, 846 37, 843 22, 733 HIGH-WATER-MARK 37 ( 37 %) 38 ( 38 %) 40% FEWER IO’S 572 K PER WORK OR PLOG BUFFER AREA (3390) 47 Adabas V 82 by Jim Poole
21. ADARUN NPLOG/NWORK 1 (Performance) BATCH JOB DURATION (HIGH UPDATE) BUF=10 BUF=40 TEST: 1 2 3 4 5 6 48 Adabas V 82 by Jim Poole
22. WORK I, III USE DDPRINT SHUTDOWN, DRES, AOS AREA ADARUN PARM HIGH-WATER-MARK -----------------------WORK PART 1 LP = 83700 1 ( 0 %) WORK PART 2 LWKP 2= 6000 0 ( 0 %) WORK PART 3 -- = 297 0 ( 0 %) ( WORK 1 WRAP STILL AT 25%? ) 49 Adabas V 82 by Jim Poole
23. ADASEL NEW FEATURES (read manual) //DDKARTE DD * TEST test syntax but do not execute (must be first line) FDTINPUT Use an alternate FDT to read records (in case of file changes) see manual for detail SET GLOBALS specify before 1 st SELECT, can repeat this line Many new options for spanned records and various SEL errors 50 Adabas V 82 by Jim Poole
24. ADAZIN (NEW) MAINT AND SVC INFO “ZAP AND SM INFO FOR LOADLIB, SVC INFO (see old AOS function)” INPUT LOADLIB: 1. //DDZIN DD DSN=loadlib 2. STEPLIB or JOBLIB 3. LPA or LINKLIST DDKARTE: ADAZIN ADAZIN - ALL MODULES, ALL SVC’S MOD=‘mod 1, mod 2, mod 3’ MODRANGE=‘mod 1, mod 2’ NOMOD NUMMODS=x ADAZIN SVC=svc 1, svc 2, svc 3 ADAZIN NOSVC ADAZIN SVCRANGE=svca, svcb - SPECIFIC MODS, CAN REPEAT RANGE NO MODULES LIMIT TO X MODULES - SPECIFIC SVC’S - NO SVC’S - RANGE 51 Adabas V 82 by Jim Poole
24. ADAZIN (NEW) MAINT AND SVC INFO (Eg. ) DDKARTE: ADAZIN MOD='ADANC 1, ADASAV' DDDRUCK: ADANC 1 Date 2009 -11 -17, Version 8. 2, SM 2 Zaps AN 822017 AN 822022 AN 822025 ADASAV Date 2009 -11 -07, Version 8. 2, SM 2 Zaps AU 822005 AU 822006 AU 822010 AU 822012 SVC 237 SVCMVS Date 2006 -09 -19, Version 8. 1, SM 4 SVCCLU Date 2006 -06 -09, Version 8. 1, SM 4 SVC 238 SVCMVS Date 2009 -08 -11, Version 8. 2, SM 2 Zaps AO 822004 SVCCLU Date 2009 -08 -11, Version 8. 2, SM 2 Zaps AI 822001 SAFSVC Date 2009 -10 -29, Version 8. 2, SM 2 52 Adabas V 82 by Jim Poole
25. ADARUN SRLOG, PLOG SPANNED RECORDS (review) PLOG ALWAYS CONTAINS PRIMARY RECORD (BI / AI) PLOG ONLY CONTAINS SECONDARY RECS IF UPDATED PLOG UPD: PRIMARY SECONDARY-1 SECONDARY-2 BI/AI PRI BI/AI SEC 2 BI/AI PRI BI/AI SEC 1 53 Adabas V 82 by Jim Poole
25. ADARUN SRLOG, PLOG SPANNED RECORDS (V 82) (not tested) ADARUN SRLOG= ALL / UPD / PART (NOT IN ADADBS, AOS) ALL -entire spanned record written to PLOG UPD -(dflt) only modified spanned segments written PART -all segments up to and including modified segment are written From manual (Operations, ADARUN SRLOG): “Standalone secondary spanned records encountered in the PLOG will be rejected from further processing. A warning message is issued. Likewise, decompression of a partial field at the end of a spanned record will be skipped. All fields up to the partial field will be decompressed and the remaining fields on the spanned record are not available. “ 54 Adabas V 82 by Jim Poole
26. ADARUN PREFSTDD “WRITE MULTIFETCH STATS ON CLOSE COMMAND” LIMITED USE: ONLY FOR BATCH JOBS USING ADAMLF (recommend MLF in Program) JCL: //MYNAME * SYSOUT or LRECL>=80 RECFM=FB //DDCARD DD * ADARUN PREFETCH=YES, PREFSBL=15000, PREFNREC=100 ADARUN PREFSTDD=MYNAME *LIMITED TO 7 CHAR. NAME 55 Adabas V 82 by Jim Poole
26. ADARUN PREFSTDD (Eg. ) //MYNAME ADAML 1 ADAML 1 ADAML 1 +-----------------------+ + + A D A M L F S T A T I S T I C S + + Percentage of PREFTBL used : 50. 00 + Number of calls to ADAMLF : 1918 + Number of cmds to ADABAS : 56 + Number of cmds returned from ADAMLF : 1875 + Number of over reads : 2 + +-----------------------+ 56 Adabas V 82 by Jim Poole
27. ADADBS FUNCTIONS. FILE LOCK NOT REQUIRED ALLOCATE/DEALLOCATE DSREUSE/ISNREUSE RELEASE RENAME FROM MANUAL “ADADBS”: “The ADADBS DSREUSE, ISNREUSE, NEWFIELD, RELEASE DE, and RENAME utility functions do not need to lock the file for their use; these functions can perform their processing in parallel with active users. This means that you do not need to set a file in readonly status (FILEREADONLY=YES) if you will be performing these other ADADBS functions only. ” REVIEW USER FILE USE ==> 57 Adabas V 82 by Jim Poole
28. REVIEW OF IN PARALLEL FUNCTION AOS ACC/UPD DBS ACC/UPD user ALLOCATE FAILS DEALLOCATE FAILS DSREUSE in parallel works ISNREUSE in parallel works RELEASE in parallel works RENAME FAILS works CHANGE LENGTH FAILS MODFCB ASSOPFAC FAILS works MODFCB DATAPFAC FAILS works MODFCB MAXDS, NI, UI, AC FAILS works MODFCB MAXRECL FAILS works MODFCB PGMREFRESH FAILS works in parallel works MUPEX FAILS RECORD SPANNING FAILS NEWFIELD 58 Adabas V 82 by Jim Poole
28. REVIEW OF IN PARALLEL (NEW TO V 82) FUNCTION AOS ACC/UPD user DBS ACC/UP D user N/A works DELDE, UNDELDE FAILS DELFN, UNDELFN FAILS MODFCB FILEREADONLY FAILS N/A works CHANGE OPTION=NOUQ MODFCB SYFMAXUV 59 Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG “V 822 HANDLES RSP. CODE 145 ONLY” THE PROBLEM: Eg. USER A HAS RETURN OPTION (CO 1=R or NATURAL WH=OFF) 1. REQUESTS RECORD X ON HOLD 2. RECEIVE RESPONSE CODE 145 3. WHO IS HOLDING RECORD? (LONG SCAN OF HOLD QUEUE) WHO WAS HOLDING RECORD? 60 Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG SOLUTION DDCARD: ADARUN INFOBUFFERSIZE=0 ADARUN INFOBUFFERSIZE=1024 -2 G ADARUN INFOBUFFERSIZE=1000000 *NOT USED *RANGE *EXAMPLE AFTER 10, 000 EACH ENTRY IS ABOUT 128. 2 bytes EG. INFOBUFFERSIZE=50000 * 50 K EQUALS ABOUT 390 ENTRIES 61 Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG (Display) ADADBS DEVENTLOG AOS A L Session monitoring Display event log buffer 62 Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG (Eg. ) ADADBS DEVENTLOG: E V E N T L O G ========= 2010 -03 -15 15: 05: 11 RSP-145 occurred for FNR=241 / ISN=2 --- User who received the RSP-145: UID='TSU 38882', ETID=' ', Job=$ZM 6 WH X'0002 FEBE 209400004040404000 F 66 B 80 E 3 E 2 E 4…' --- User who was holding the data record: UID='TSU 38880', ETID=' ', Job=RZM 6 WH , NUCID=0 X'0002 FEBE 209400004040404000 F 66 D 00 E 3 E 2 E 4…‘ 2010 -03 -15 15: 05: 20 RSP-145 occurred for FNR=241 / ISN=3 --- User who received the RSP-145: UID='TSU 38882', ETID=' ', Job=$ZM 6 WH X'0002 FEBE 209400004040404000 F 66 B 80 E 3 E 2 E 4 F 3 F…' --- User who was holding the data record: UID='TSU 38880', ETID=' ', Job=RZM 6 WH , NUCID=0 X'0002 FEBE 209400004040404000 F 66 D 00 E 3 E 2 E 4 F 3 F 8…' 63 Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG (Program) “USER CAN READ EVENTLOG FOR THEIR UQE (ONLY)” CMD: L 2 ISN: 0 FNR: -4 COMMAND REQS (ACBX) X’FFFC’ 1, AA, 2, B, FI 1, AB, 2, B, FI 1, AC, 2, B, FI 1, AD, 2, B, FI 1, AE, 4, B, FI 1, AF, 2, B, FI 1, AG, 2, B, FI 1, AH, 8, B, FI 1, AT, 8, B, FI 1, AI, 8, A, FI 1, AJ, 28, A, FI, NV 1, AK, 8, A, FI 1, AM, 8, A, FI 1, AN, 28, A, FI, NV 1, AO, 8, A, FI EVENTLOG FDT: Event type=X 0001 Event sub type=X 0000 DBID NUCID File Number Response Code=145 Subcode=X 0000 ISN Time of Event (STCK value) Job Name of affected user User ID of affected user ET ID of affected user Job Name of the causer User ID of the causer 64 ET ID of the causer Adabas V 82 by Jim Poole
29. INFOBUFFERSIZE, DEVENTLOG (Notes) a. CLOGLAYOUT=8 NEW RECORD TYPE X’ 000 D’ FOR RC 145 (not tested) b. PERFORMANCE COST OF? None observed RAN TESTS WITH: 1 M L 4’S COP 1=R EVENTLOG=0 EVENTLOG=10, 000 EVENTLOG=1, 000 65 Adabas V 82 by Jim Poole
30. ADARUN LOGVOLIO (not tested) V 8. 1 ADARUN LOGIO=YES 1 B FLAG: ASSO/DATA/WORK READ/WRITE 4 B RABN V 8. 2 ADARUN LOGIO=YES ADARUN LOGVOLIO=YES *REQUIRES LOGIO=YES 1 B FLAG: ASSO/DATA/WORK READ/WRITE 4 B RABN 6 B VOLSER 66 Adabas V 82 by Jim Poole
31. CLOG DSECT UPDATED FOR Sx ALGORITHM ADABAS SOURCE LIB LOREC (CLOGLAYOUT=5) LORSTYPE LORQ 01 LORQ 02 LORQ 03 LORQ 04 LORQ 05 LORQ 80 LORQ 06 DS EQU EQU XL 1 X'01' X'02' X'03' X'04' X'05' X'80' X'06' TYPE OF SEARCH/SEARCH ALGORITHM-1 ALGORITHM-2 ALGORITHM-3 ALGORITHM-4 MIXED SEARCH (DE-+ NON-DE) NON-DE-SEARCH V 822 NON-DE-SEARCH MIXED SEARCH (DE-+ NON-DE) V 822 67 Adabas V 82 by Jim Poole
31. CLOG DSECT UPDATED FOR Sx ALGORITHM ADABAS SOURCE LIB LORECX (CLOGLAYOUT=8) LOX 1 STYP LOX 1 Q 01 LOX 1 Q 02 LOX 1 Q 03 LOX 1 Q 04 LOX 1 Q 05 LOX 1 Q 80 LOX 1 Q 06 DS EQU EQU XL 1 X'01' X'02' X'03' X'04' X'05' X'80' X'06' +15 TYPE OF SEARCH/SEARCH ALGORITHM-1 ALGORITHM-2 ALGORITHM-3 ALGORITHM-4 MIXED SEARCH (DE-+ NON-DE) NON-DE-SEARCH V 822 NON-DE-SEARCH MIXED SEARCH (DE-+ NON-DE) V 822 *FOR BOTH, SEE CA-APAS SEARCH-ALGORITHM ? ? WHERE IS ALGORITHM 7 ? ? ANSWER: PER SAG, ROLLED IN WITH ALGORITHM 1 !! 68 Adabas V 82 by Jim Poole
32. ADAREP PPT (Default) ********** * Contents of PPT * ********** PPT RABN Range PPT RABN NUCID Session Status 2010 -02 -09 = = 15: 31: 47 Number of entries Last Session number Last PLOG block written Next block number = = 1325 to 1356 1325 0000 NUCLEUS ACTIVE OR FAILED (WORK NONEMPTY) PLOG(S) NOT YET COPIED 3 003 D 245 NOT INITIALIZED 0 PPT Entry number Dataset Type = = = 1 /AD/P/ADA 169/WORK/ DDWORK 1 PPT Entry number Dataset Type = = = 2 /AD/P/ADA 169/PLOG 1/ DDPLOGR 1 PPT Entry number Dataset Type = = = 3 /AD/P/ADA 169/PLOG 2/ DDPLOGR 2 OPTION: ADAREP NOPPT 69 Adabas V 82 by Jim Poole
33. ADAREP XML OPTION: ADAREP OUTPUT='XML' (SEE MANUAL FOR CODE-PAGE, ASCII, ETC) JCL: //DDXMLR 1 *ADAREP OUTPUT VB LRECL=512 *CPLIST OUTPUT VB LRECL=512 //DDXMLR 1 : <? xml version="1. 0" encoding="ISO-8859 -1"? > <? xml-stylesheet type="text/xsl" href="adabas. xsl"? > <Adabas. Report> <Report. Parameters> <Parameter>REPORT</Parameter> <Parameter>OUTPUT='XML'</Parameter> </Report. Parameters> <Runtime> <DBID>169</DBID> <VER>8</VER> <Release>2</Release> <SM>2</SM> <Date>2010 -04 -02</Date> <Time>10: 59: 11</Time> </Runtime> etc 70 Adabas V 82 by Jim Poole
34. ADAREP CHANGES (Review) FROM TOP TO BOTTOM PPT SECTION (IF NOPPT NOT SPECIFIED) * Contents of Database 169 *************** File Name Loaded 1 CHECKPOINT 2003 -09 -19 5 TRIGGER 2008 -06 -19 16 EMPLOYEES 2007 -01 -18 TOP-ISN MAX-ISN 6025 89 2232 6889 5511 2755 N 1 1 1 U 1 2 1 EXTENTS A AC 2 2 0 1 0 D 1 1 1 71 Adabas V 82 by Jim Poole
34. ADAREP CHANGES (Review) FROM TOP TO BOTTOM * File Space Allocations * ************* File Name Alloc. : Unused: 1 CHECKPOINT 1 5 TRIGGER 5 NI UI AC AC 2 25 24 20 10 5 3 16 5 5 0 4 0 Data/Cyl 100/1 13/0 100/1 99/1 72 Adabas V 82 by Jim Poole
34. ADAREP CHANGES FILE DETAIL MAX-ISN formatted = (Review) 6, 889 : : : READONLY-MODE System Fields No No FDT (see details elsewhere in presentation) 1. 2. 3. 4. 5. 6. LOWER CASE FIELD NAMES DT DATE. TIME INDICATOR TZ TIME ZONE SYSTEM FIELDS LOGICALLY DELETED DESCRIPTORS LOGICALLY DELETED FIELDS 73 Adabas V 82 by Jim Poole
35. DDPRINT CHANGES (Review) FROM TOP TO BOTTOM PLOG WORK 1 PROTECTION BLOCKS I/OS 9 9 13 13 74 Adabas V 82 by Jim Poole
35. DDPRINT CHANGES (Review) THE ACTUAL H I G H - W A T E R - M A R K S FOR THE MAJOR POOLS (EXCEPT BUFFERPOOL) AREA ADARUN PARM HIGH-WATER-MARK AB -POOL NAB= 200 768 ( 0 %) CQ -POOL NC = 96000 192 ( 0 %) DUQ -POOL LDE= 50000 0 ( 0 %) FI -POOL LFP= 5000000 160 ( 0 %) HQ -POOL NH = 1120056 0 ( 0 %) PLOG-IO B NPLOGB= 1 1 (100 %) SC -POOL LCP= 2000 0 ( 0 %) TBI -POOL LI = 100000 0 ( 0 %) TBS -POOL LQ = 200000 68 ( 0 %) UQ -POOL NU = 2000 1200 ( 0 %) UQF -POOL NU = 2000 144 ( 0 %) WRK 1 -IO B NWORK 1= 1 1 (100 %) WORK-POOL LWP= 4000000 49476 ( 1 %) WORK PART 1 LP = 83700 1 ( 0 %) WORK PART 2 LWKP 2= 6000 0 ( 0 %) WORK PART 3 -- = 297 0 ( 0 %) XID -POOL XID= ( 0 %) 75 Adabas V 82 by Jim Poole
36, 37. ADARUN V 64 BIT, ADARUN LARGEPAGE ADARUN V 64 BIT=YES *DFLT=NO ABOVE 2 G BAR: LFIOP= NPLOGBUFFERS= NWORK 1 BUFFERS= ADARUN LARGEPAGE=YES *DFLT=NO USE 1 MB PAGES (REQUIRES V 64 BIT=YES) NO PERFORMANCE GAIN (MEMORY UTILIZATION) (tested) 76 Adabas V 82 by Jim Poole
38 -43. NOT STUDIED NOR TESTED FEATURES 38. ACBX 64 BIT SUPPORT (STILL NOT ACBX FOR MULTIFETCH) 39. LOB ENHANCEMENTS 40. OP CMD NWCONNECT FOR ENTIRE NETWORK 41. ADAWRK TRANSACTION NUMBERS 42. SHARED HOLD STATUS (REQUIRES DIRECT CALLS) 43. SMGT CHANGE 77 Adabas V 82 by Jim Poole
44. RI COMMAND CHANGES. THE RI COMMAND NO LONGER RELEASES THE ISN(S) UNCONDITIONALLY. IF THE AFFECTED ISN(S) HAVE BEEN UPDATED, THEN A RESPONSE CODE IS RETURNED: ISN =0 ISN /=0 RC 2 SUB 5 RC 113 SUB 5 78 Adabas V 82 by Jim Poole
DAS ENDE 79 Adabas V 82 by Jim Poole
31bcd5a419f23a15b3fd0eae06109e70.ppt