Extending Predict

1
Extending Predict

• Jim Wisdom
• Lead Sr. Data Base Administrator
• jwisdom_at_bu.edu
• jwisdom_at_wizinc.com

2
Extending Predict
3
Extending Predict
4
Extending Predict

• Steplib architecture defined for Sysdic.
• Steplib DBID FNR
• -------- ----- ----
• PREDICT 240 147
• BUSYSTEM 240 147
• SECADMIN 240 147
• GALAXY 240 147
• OISTEST 240 142
• SYSTEM 240 244
• SYSTEM 240 147

5
Extending Predict

• On installation, there are several important
  steps.
• A list of modules delivered are compared, then
  renamed (U- to X-)
• Most of the Sysdic user exits, esp. U-CMD,
  U-MNT, U-MNT1, U-XREF, U-DESC and U-GEN and
  reside in library Predict. We have activated 29
  of them.
• 2. We re-wrote MAIN which provides start-up logic
  and the start-up menu.

6
Extending Predict
7
Extending PredictJCL support for utilities
8
Extending PredictJCL proc structure for utilities

• // LOCK file to prevent non-utility access.
• // SAVE File for backup.
• // ADD the fields to the end of the file.
• // UNLOCK file to allow non-utility access.
• // Reset the DIB if the ADD step fails.
• // COBOL sets cond code 99 to force a successful
  message this is
• // executed if all steps above get cond codes of
  0.
• // Send netpass message if not successful -
  bypass if COBOL is 99
• // Send netpass message if successful - bypass
  if COBOL is NOT 99
• // Send netpass message if any steps ABENDS.

9
Extending Predict
10
Extending Predict
11
Extending Predict
12
Extending Predict
13
Extending Predict

• Four tables constitute the heart of the system
• Table Name
• DA-SYSDIC-DIRECT-COMMAND
• DA-SYSDIC-PROCESS
• DA-SYSDIC-PROCESS-STEP
• DA-SYSDIC-PROGRAM

14
Extending PredictDA-SYSDIC-DIRECT-COMMAND
15
Extending Predict DA-SYSDIC-PROCESS-STEP
16
Extending Predict

• You may have noticed that the BU File Maintenance
  Menu contained
• P Select FNR J Update Load Cards
• A Add Fields R Release DE's
• D Build DE's O APD Scheduler
• I Unlock Q Create File Copy
• E Empty 5 Backup DDE
• K Delete F Backup Phys. File
• L Nulload B Restore Phys. Fi.
• X Reload T Maint Profile
• 4 Change 3 Gen ADAWAN/ADACMP
• 6 UV ID Y Process Menu

17
Extending Predict

• You may have noticed that the BU Process
  Developers Menu contained
• A Add fields Q Create
  Review file
• D Build Descriptors L NULLOAD file
• J Update load cards U
  Pre-migration validation
• C Change SUPER Descriptors R Release
  Descriptor
• P Unused File numbers X Reload file
• 3 Copy file details B Restore file
• 4 Establish a file F Save file
• K Delete file 6 Subscription
  Maintenance
• G Design meeting preparation S Select file
• E Empty a file I Unlock file
• 5 Generate file objects N Update field
  names
• H Generate field headings Z View
  policies
• 2 Increase field length

18
Extending Predict
19
Extending Predict

• To write programs to extend the functionality
  make it important to understand the Sysdic DDMs
• 1 U SYSDIC 21 U
  SYSDIC-EL-TWO
• 2 U SYSDIC-DB 22 U
  SYSDIC-FI
• 3 U SYSDIC-DB-DEVL 23 U
  SYSDIC-FI-ADA
• 4 U SYSDIC-DB-ONE 24 U
  SYSDIC-FI-DEVL
• 5 U SYSDIC-DB-PROD 25 U
  SYSDIC-FI-GEN
• 6 U SYSDIC-DB-TEST 26 U
  SYSDIC-FI-ONE
• 7 U SYSDIC-DB-TWO 27 U
  SYSDIC-FI-PROD
• 8 U SYSDIC-DDM 28 U
  SYSDIC-FI-TEST
• 9 U SYSDIC-DDM-DEVL 29 U
  SYSDIC-FI-TWO
• 10 U SYSDIC-DDM-ONE 30 U
  SYSDIC-IMS
• 11 U SYSDIC-DDM-PROD 31 U
  SYSDIC-KY
• 12 U SYSDIC-DDM-TEST 32 U
  SYSDIC-MO
• 13 U SYSDIC-DDM-TWO 33 U
  SYSDIC-NAT
• 14 U SYSDIC-DEF 34 U
  SYSDIC-PR
• 15 U SYSDIC-DESC 35 U
  SYSDIC-PR-ENTRY

20
Extending Predict

• More Predict DDMs
• 16 U SYSDIC-DESC-PROD 36 U
  SYSDIC-PR-PROD
• 17 U SYSDIC-EL 37 U
  SYSDIC-PROD
• 18 U SYSDIC-EL-ONE 38 U
  SYSDIC-RL
• 19 U SYSDIC-EL-PROD 39 U
  SYSDIC-RP
• 20 U SYSDIC-EL-TEST 40 U
  SYSDIC-SET
• 1 U SYSDIC-SY 21 U
  SYSDIC-WP
• 2 U SYSDIC-SY-PROD 22 U
  SYSDIC-WP-ONE
• 3 U SYSDIC-UDE 23 U
  SYSDIC-XR-BLOCK
• 4 U SYSDIC-UDE-DEP 24 U
  SYSDIC-XR-CONTROL
• 5 U SYSDIC-UDE-PAR 25 U
  SYSDIC-XR-COPY
• 6 U SYSDIC-UDE-POPUP 26 U
  SYSDIC-XR-DA-VIEW
• 7 U SYSDIC-UDE-TYPE 27 U
  SYSDIC-XR-ENTRY

21
Extending Predict

• More Predict DDMs
• 8 U SYSDIC-UREL 28 U
  SYSDIC-XR-ERROR
• 9 U SYSDIC-UREL-ATTR 29 U
  SYSDIC-XR-FILE
• 10 R SYSDIC-UREL-DEVL 30 U
  SYSDIC-XR-GLOBALS
• 11 R SYSDIC-UREL-ONE 31 U
  SYSDIC-XR-PRINTER
• 12 R SYSDIC-UREL-PROD 32 U
  SYSDIC-XR-RULE
• 13 R SYSDIC-UREL-TEST 33 U
  SYSDIC-XR-SETS
• 14 R SYSDIC-UREL-TWO 34 U
  SYSDIC-XR-SYS-ERROR
• 15 U SYSDIC-UREL-TYPE 35 U
  SYSDIC-XR-USED-FUNC
• 16 U SYSDIC-US 36 U
  SYSDIC-XR-WORK
• 17 U SYSDIC-VE 37 U
  SYSDIC-XREF
• 18 U SYSDIC-VE-ACT 38 U
  SYSDIC-XREF-ONE
• 19 U SYSDIC-VE-EL 39 U
  SYSDIC-XREF-PROD
• 20 U SYSDIC-VE-PROD 40 U
  SYSDIC-XREF-TEST

22
Extending Predict

• CMMPP - Natural entry point
• Other dictionary features
• Redocumentation
• XREF
• Command processor
• Metadata System SYSDICMA (user defined
  entities)
• Collection of help text members named T-

23
In conclusion

• Understand the intrinsic importance in meta-data.
• SYSDICMA is a highly kept secret.
• Collecting XREF data is crucial for active
  retrieval data.
• You too can extend Predict to your own bidding.
• The dicitonary is so much more than Predict
  Lite generating DDMs.
• Learn the many built-in entity types defined to
  the dictionary and their relationships.
• Above all, never be afraid to ask. Remember that
  some else has probably asked the same question
  MORE than once!