IMS Catalog Experience at Volvo IT

Session S307
IMS Catalog in practice
Kurt Jönsson – [email protected]
IMS Catalog Experience at Volvo IT
Acknowledgement
Thank you to Anders Öhrnberg
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
The Volvo Group
Volvo Trucks
Volvo Buses
Prevost
Renault Trucks
Nova Bus
Volvo Penta
Volvo
Construction
Equipment
UD Trucks
Mack Trucks
Renault
Trucks
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
We joined the IMS V13 QPP in 2012
We were on IMS V11 then
Attended QPP training at IBM Hursley in december 2012
Have the IMS Catalog installed in a test lpar since Q1 2013
IMS Catalog Experience at Volvo IT
Our reasons to look at the IMS Catalog
Over time less people with IMS knowledge
Less control over DBD, PSB, ACB
Different ways of working
Learn and understand the catalog concept
With the IMS Catalog
Objects together in one place
Automated process
Simplified implementation in production
IMS Catalog Experience at Volvo IT
The test environment
-
A simple IMS system
Single datasharing
This lpar is a semi production environment for other products
Used primarily to test products
-
Contains a few applications
Very old, not consistent application data and objects
Good testdata to see how IMS Catalog handles very old objects
But no application development and very little changes
IMS Catalog Experience at Volvo IT
Current DBD and PSB handling
Source in different places
Datamanager
PDS
Endevor
IMS Catalog Experience at Volvo IT
Current DBD and PSB handling
Source in different places
Datamanager
PDS
Endevor
DBDGEN and PSBGEN
Datamanager
-> PDS -> Local DBDLIB / PSBLIB
PDS
-> Local DBDLIB / PSBLIB
Local libraries can be edited (e.g. delete members)
Endevor
-> Endevor DBDLIB / PSBLIB
Included in the process is ACBGEN -> Endevor ACBLIB
Endevor libraries only updated from Endevor
IMS Catalog Experience at Volvo IT
Current ACB handling
TSO function for ACBGEN
Generates jcl for ACBGEN
ACBGEN from Endevor
Endevor processor groups generates the jcl
Basically the same jcl as the TSO function
plus Endevor specific jcl and commands
Weekly routine which copies all ACBs from all local ACBLIBs
to IMS inactive and active ACBLIBs
IMS Catalog Experience at Volvo IT
Current ACB handling
TSO function for ACBGEN
Generates jcl for ACBGEN
ACBGEN from Endevor
Endevor processor groups generates the jcl
Basically the same jcl as the TSO function
plus Endevor specific jcl and commands
Weekly routine which copies all ACBs from all local ACBLIBs
to IMS inactive and active ACBLIBs
This is what we do today with ACBs and what needs to be
changed to work with the IMS Catalog
IMS Catalog Experience at Volvo IT
TSO function for ACBGEN
Urgent =
NO /YES online ACB
Blank batch ACB
IMS Catalog Experience at Volvo IT
JCL generated by ACBGEN function
ACBGEN procedure
Urgent parm
IMS Catalog Experience at Volvo IT
ACBGEN procedure V501ACB in overview
ACBGEN done here
Messages to data set
cCCreates copy stmts for IEBCOPY
REXX Creates copy
stmts for IEBCOPY
Urgent parm part of
PDS name
IMS Catalog Experience at Volvo IT
Sysout from ACBGEN job includes messages written to
//SYSPRINT DD DSN=&&ACBLIST,...
One message is interesting
…
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
…
IMS Catalog Experience at Volvo IT
Sysout from ACBGEN job includes messages written to
//SYSPRINT DD DSN=&&ACBLIST,...
One message is interesting
…
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
…
Copy from local ACBLIB to IMS staging ACBLIB
Only for online ACB
Delete is only done on local ACBLIB
IMS Catalog Experience at Volvo IT
Sysout from ACBGEN job includes messages written to
//SYSPRINT DD DSN=&&ACBLIST,...
One message is interesting
…
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
…
Copy from local ACBLIB to IMS staging ACBLIB
Only for online ACB
Delete is only done on local ACBLIB
So the contents of local ACBLIB and IMS ACBLIB might be different
This is why we need the copy routine
IMS Catalog Experience at Volvo IT
Weekly routine which copies all ACBs to IMS ACBLIB in overview
One routine for each
IMS system
Copy all local ACBLIBs
to ddname CHA
CHA input to
IMXXONLC
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Steps to enable IMS Catalog
-
Copy IBM supplied DBD and PSB to our DBDLIB and PSBLIB
Run ACBGEN for IMS Catalog DBD and PSB
-
Modify DFSDFxxx proclib member
-
Define IMS Catalog database to DBRC (optional)
-
Populate IMS Catalog from ACBLIB, analyse mode
Populate IMS Catalog from ACBLIB, initial load
-
Image copy IMS Catalog database
-
Restart IMS
DFSDFxxx member will be read and IMS Catalog enabled
IMS Catalog Experience at Volvo IT
Copy IBM supplied DBD and PSB to our DBDLIB and PSBLIB
IMS Catalog Experience at Volvo IT
Acbgen for IMS Catalog DBD and PSB
This is the old ACBGEN
IMS Catalog Experience at Volvo IT
IBM supplied DBD and PSB description
DFSCD000
DBD IMS Catalog database
DFSCX000
DBD IMS Catalog secondary index
DFSCPL00
PSB for initial load
DFSCP000
PSB for read access COBOL
DFSCP001
PSB for update access
DFSCP002
PSB for read access PL/1
DFSCP003
PSB for read access PASCAL
These are all the DBDs and PSBs that you need for the IMS Catalog
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters
Modify DFSDFxxx PROCLIB member
*--------------------------------------------------------------------*
* CATALOG SECTION
*
*--------------------------------------------------------------------*
<SECTION=CATALOG>
CATALOG=Y
/* THE IMS CATALOG IS ENABLED. */
*DATACLAS=XXXXXXXX
MGMTCLAS=NOMIG
STORCLAS=SYS
SMSVOLCT=20
ALIAS=DFSC
RETENTION=(INSTANCES=1,DAYS=0)
SPACEALLOC=(PRIMARY=500,SECONDARY=50)
GURCACHE=2
******************************** Bottom of Data **********************
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters in the DFSDFxxx member
CATALOG = Y
IMS Catalog is enabled
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters in the DFSDFxxx member
CATALOG = Y
IMS Catalog is enabled
SPACEALLOC=(PRIMARY=500,SECONDARY=50)
Free space % added to IMS computed allocation sizes
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters in the DFSDFxxx member
CATALOG = Y
IMS Catalog is enabled
SPACEALLOC=(PRIMARY=500,SECONDARY=50)
Free space % added to IMS computed allocation sizes
Note Extra free space needed when ACBGEN with BUILD PSB=ALL is done
for a new IMS version and the size might be doubled.
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters in the DFSDFxxx member (cont)
RETENTION=(INSTANCES=1,DAYS=0)
Default retention criteria for DBD and PSB records
INSTANCES
The number of instances in DBD and PSB records that must be kept
before any instance can be deleted
DAYS
The number of days that DBD and PSB instances must be retained
before they can be deleted
IMS Catalog Experience at Volvo IT
IMS Catalog setup parameters in the DFSDFxxx member (cont)
RETENTION=(INSTANCES=1,DAYS=0)
Default retention criteria for DBD and PSB records
INSTANCES
The number of instances in DBD and PSB records that must be kept
before any instance can be deleted
DAYS
The number of days that DBD and PSB instances must be retained
before they can be deleted
Note DBD and PSB instances eligible for delete are not automatically deleted.
Run the cleanup utility to delete records and instances in the IMS Catalog.
IMS Catalog Experience at Volvo IT
Define IMS Catalog database to DBRC
IMS Catalog Experience at Volvo IT
Populate IMS Catalog from ACBLIB, analyse mode
PSB with read access
DDname IMS
Local DBD- and PSBLIBs
For GSAM and logical DBDs
DDname IMSACB01
IMS ACBLIB
IMS Catalog Experience at Volvo IT
Sysout from populate IMS Catalog from ACBLIB, analyse mode
Error and warning
messages only
Act upon messages to
avoid inconsistency
IMS Catalog Experience at Volvo IT
Sysout from populate IMS Catalog from ACBLIB, analyse mode (cont)
No of HEADER =
DBD + PSB
IMS Catalog Experience at Volvo IT
Sysout from populate IMS Catalog from ACBLIB, analyse mode (cont)
IMS Catalog Experience at Volvo IT
Populate IMS Catalog from ACBLIB, initial load
PSB with load access
IMS Catalog Experience at Volvo IT
Image copy IMS Catalog database
GENJCL.IC from DBRC
used to generate
JCL for image copy
IMS Catalog Experience at Volvo IT
Restart IMS
DFSDFxxx member will be read and IMS Catalog enabled
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Viewing the contents of the IMS Catalog
Understand structure and format of segments in the IMS Catalog
Or at least know enough to get started…
Using DFSDDLT0
Using File Manager
As XML document
IMS Catalog Experience at Volvo IT
Viewing the contents of the IMS Catalog
Understand structure and format of segments in the IMS Catalog
Or at least know enough to get started…
Using DFSDDLT0
Using File Manager
As XML document
Is it possible to update the IMS Catalog with DL/1 calls?
Insert segments
Delete segments
IMS Catalog Experience at Volvo IT
Format of the segments in the IMS Catalog
HEADER is the root segment
Indicates if a record contains DBD or PSB metadata (record type)
Includes the DBD or PSB name (record name)
Root key in the DBD
FIELD NAME=(RHDRSEQ,SEQ,U),BYTES=16,START=9,TYPE=C
Record type pos 1-8
Record name pos 9-16
Example DBD_____FAC0____
PSB_____F11123___
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using DFSDDLT0, jcl
PSB with
read access
DBD name
Segment name
Key field name
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using DFSDDLT0, sysout
HEADER segment
PSB segment
PCB segment
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using DFSDDLT0, sysout (cont)
Senseg segment
Senseg segment
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using File Manager
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using File Manager
DBD name
PSB with read access
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using File Manager
Key value must be
in upper case
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using File Manager (hex mode)
Segment level
and name
HEX mode
PSB name in HEADER
Timestamp from
acbgen
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using File Manager (char mode)
CHAR mode
Several PSB under HEADER
means several instances
Each instance has
different timestamp
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using DFSDDLT0 with GUR call, jcl
There is a new DL/1 call GUR
Get Unique Record
Works as a GU followed by a series of GNP calls
Returns the entire database record in XML format in one call
Only for IMS Catalog database
Must use AIB
for GUR call
IMS Catalog Experience at Volvo IT
Access the IMS Catalog using DFSDDLT0 with GUR call, result
IMS Catalog Experience at Volvo IT
Is it possible to update the IMS Catalog with DL/1 calls?
IMS Catalog Experience at Volvo IT
Is it possible to update the IMS Catalog with DL/1 calls?
Yes, it is!
Using
DL/1 calls ISRT, DLET or REPL
PSB DFSCP001 (for update access)
Running
DFSDDLT0
File Manager
IMS Catalog Experience at Volvo IT
Is it possible to update the IMS Catalog with DL/1 calls?
Yes, it is!
Using
DL/1 calls ISRT, DLET or REPL
PSB DFSCP001 (for update access)
Running
DFSDDLT0
File Manager
After update
Still possible to view contents like before
IMS Catalog Experience at Volvo IT
Is it possible to update the IMS Catalog with DL/1 calls?
Yes, it is!
Using
DL/1 calls ISRT, DLET or REPL
PSB DFSCP001 (for update access)
Running
DFSDDLT0
File Manager
After update
Still possible to view contents like before
But IMS Catalog utilities like DFS3UACB, DFS3PU10 does not work
Error message
DFS4482E THE PSB USED TO INVOKE THE DFS3PU00 UTILITY
REFERS TO A CATALOG WITH UNEXPECTED STRUCTURE
IMS Catalog Experience at Volvo IT
Is it possible to update the IMS Catalog with DL/1 calls?
Yes, it is!
Using
DL/1 calls ISRT, DLET or REPL
PSB DFSCP001 (for update access)
Running
DFSDDLT0
File Manager
After update
Still possible to view contents like before
But IMS Catalog utilities like DFS3UACB, DFS3PU10 does not work
Error message
DFS4482E THE PSB USED TO INVOKE THE DFS3PU00 UTILITY
REFERS TO A CATALOG WITH UNEXPECTED STRUCTURE
Running initial load of the IMS Catalog again solved the problem
IMS Catalog Experience at Volvo IT
Security with the IMS Catalog
It is possible to update the IMS Catalog with DL/1 calls.
So you need to think about security.
Protect the update PSB DFSCP001
For use from ODBM
IMS Explorer uses this
For use from BMP
Also need to protect the load PSB DFSCPL00
IMS Catalog Experience at Volvo IT
Security with the IMS Catalog
The only updaters of the IMS Catalog are
New ACBGEN utility (DFS3UACB)
Catalog Populate utility (DFS3PU00)
Catalog cleanup utility (DFS3PU10) deletes instances eligible for delete
IMS online and IMS batch regions must never update catalog data
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Working with IMS Explorer
With IMS Explorer you can
Import IMS resources (DBD, PSB) from the IMS Catalog
Update the imported resources
Export the updated resources to e.g. a PDS in z/OS
On z/OS you can run
DBDGEN or PSBGEN
ACBGEN which will update the IMS Catalog
IMS Catalog Experience at Volvo IT
Working with IMS Explorer
With IMS Explorer you can
Import IMS resources (DBD, PSB) from the IMS Catalog
Update the imported resources
Export the updated resources e.g. to a PDS in z/OS
On z/OS you can run
DBDGEN or PSBGEN
ACBGEN which will update the IMS Catalog
IMS Explorer does not update the IMS Catalog
IMS Catalog Experience at Volvo IT
A DBD source without metadata, an example
Only key fields
IMS Catalog Experience at Volvo IT
The same DBD with metadata added
Remove before DBDGEN
Used by e.g. SQL/DL1
The key field
IMS Catalog Experience at Volvo IT
The same DBD with metadata added
Non-key fields
from copytext
IMS Catalog Experience at Volvo IT
Adding metadata to a DBD
With IMS Explorer you work with one DBD at a time
For this DBD you capture metadata from the COBOL copybook
for one segment at a time.
You map each segment with its COBOL copybook layout
This is a one time activity
But to do this for a group of DBDs, e.g. all DBDs for an application,
takes a long time.
So Volvo has sent a request to IBM, asking for a utility to do this job.
IMS Catalog Experience at Volvo IT
Adding metadata to a DBD, request sent to IBM
With Explorer you work with one DBD at a time and for this DBD you
capture metadata from the COBOL copybook for one segment at a time.
You map each segment with its COBOL copybook layout.
If there was a utility it would simplify this job.
In the input for this utility you specify the DBD and its segments
and for each segment its mapping COBOL copybook layout.
We don't have any exact requirements for the placement of such a utility.
If it can be used within IMS Explorer it would be fine. Then you can import
the DBDs you wish to enhance.
And the procedure to enhance a whole DBD or a group of DBDs would
be similar to the way you enhance one segment at a time today.
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
To run ACBGEN
Status of IMS Catalog database must be update mode
Otherwise, you will get error message at ACBGEN
DFS4478E
ABEND U3303 INSERTING A CATALOG RECORD FOR DBD F111CA
With IMSSPOC we can change access to update
UPDATE DB NAME(DFSC*) START(ACCESS) SET(ACCTYPE(UPD))
Access update
IMS Catalog Experience at Volvo IT
New ACBGEN DFS3UACB, sysout with messages
ACBGEN messages
Same as before
Shows DBD / PSB
added or replaced
DBD FAC4 added
PSB F11164 added
1 DBD + 1 PSB
IMS Catalog Experience at Volvo IT
New ACBGEN DFS3UACB, sysout with messages (cont)
Catalog messages
shows segments inserted
3 HEADER inserted
2 DBD + 1 PSB
IMS Catalog Experience at Volvo IT
Browse source of PSB and logical DBD
PSB F11164 uses
DBD F111CD
F111CD is a
logical DBD
DBD F111CD uses
physical DBD FAC4
IMS Catalog Experience at Volvo IT
New ACBGEN DFS3UACB add member, sysout messages condensed
1 DBD + 1 PSB added
in ACBLIB
HEADER inserted
2 DBD + 1 PSB
IMS Catalog Experience at Volvo IT
New ACBGEN DFS3UACB replace member, sysout messages condensed
1 DBD + 1 PSB
replaced
in ACBLIB
No HEADER inserted
But 1 DBD + 1 PSB
within existing
HEADERs inserted
Duplicate is
DBD / PSB with
same timestamp
IMS Catalog Experience at Volvo IT
Using File Manger to view the contents of the IMS Catalog
after previous ACBGENs
Members to view
PSB
F11164
Physical DBD FAC4
Logical DBD F111CD
IMS Catalog Experience at Volvo IT
View DBD FAC4 with File Manager
Timestamp from
first ACBGEN
Timestamp from
2nd ACBGEN
First ACBGEN added
database record
2nd ACBGEN added
new instance
IMS Catalog Experience at Volvo IT
View PSB F11164 with File Manager
PSB F11164 has also 2
instances with same timestamp
as DBD FAC4
First ACBGEN added
database record
2nd ACBGEN added
new instance
IMS Catalog Experience at Volvo IT
View logical DBD F111CD with File Manager
Logical DBD with
timestamp from DBDGEN
First ACBGEN added
database record
2nd ACBGEN added
no instance
(duplicate)
IMS Catalog Experience at Volvo IT
Timestamp in logical (and GSAM) DBDs can look like this
1333008060000
1412813340000
The time shows hour and minute only
Not same detail level as physical DBD and PSB
IMS Catalog Experience at Volvo IT
Timestamp in logical DBDs can look like this
1333008040000
1412813340000
The time shows hour and minute only
Not same detail level as physical DBD and PSB
Timestamp in logical DBDs can also look like this
0000000000000
In this case timestamp is missing
IMS Catalog Experience at Volvo IT
Timestamp in logical DBDs can look like this
1333008040000
1412813340000
The time shows hour and minute only
Not same detail level as physical DBD and PSB
Timestamp in logical DBDs can also look like this
0000000000000
In this case timestamp is missing
Always like this when DBDGEN done before year 2000?
IMS Catalog Experience at Volvo IT
Timestamp in logical DBDs can look like this
1333008040000
1412813340000
The time shows hour and minute only
Not same detail level as physical DBD and PSB
Timestamp in logical DBDs can also look like this
0000000000000
In this case timestamp is missing
Always like this when DBDGEN done before year 2000?
No, there are other DBDs with a timestamp < year 2000
IMS Catalog Experience at Volvo IT
View some GSAM DBD with File Manager
Timestamp before
year 2000
Timestamp
00000000...
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
DFS3PU10
IMS Catalog Record Purge utility
Runs in different modes
MODE ANALYSIS
Generates delete statements for DBD and PSB instances
eligible for deletion
Can process update statements
MODE PURGE
Reads delete statements in the SYSUT1 data set and purges
matching DBD and PSB instances
MODE BOTH
MODE ANALYSIS + PURGE
UPDATE statement
Changes retention criteria for DBD and PSB records
IMS Catalog Experience at Volvo IT
DFS3PU10
IMS Catalog Record Purge utility
Example UPDATE statement
UPDATE PSB F11101 3 365
UPDATE PSB F1116* 3 365
3 365 means INSTANCES=3, DAYS=365
Updated retention criteria stored in HEADER segment
RETNINST and RETNDAYS fields
IMS Catalog Experience at Volvo IT
DFS3PU10 record header after update
UPDATE PSB F1116* 3 365
Default value is INSTANCES=1, DAYS=0
PSB F11121 not updated
PSB F1116X was updated
000000.. when
default values for
instances and days
Updated values for
instances and days
IMS Catalog Experience at Volvo IT
DFS3PU10 MODE ANALYSIS
PSB with read access
Generated delete stmts
on SYSUT1
Input with MODE
command
IMS Catalog Experience at Volvo IT
DFS3PU10 MODE ANALYSIS with UPDATE
PSB with update access
Update done before
generate of delete
stmts
IMS Catalog Experience at Volvo IT
DFS3PU10 MODE PURGE
PSB with update access
Input on SYSUT1 is
delete stmts
IMS Catalog Experience at Volvo IT
DFS3PU10 delete records generated in MODE ANALYSIS, an example
Delete of DBD / PSB
instance with the
specified timestamp
DBD with 6 char name
is logical DBD
Delete timestamp
000000... and 12234...
for F111CO
Delete timestamp
14155... for T2E5E5
IMS Catalog Experience at Volvo IT
View logical DBD F111CO
Will be deleted
Will be deleted
Current instance
kept
IMS Catalog Experience at Volvo IT
View logical DBD T2E5E5
Current instance
Deleted
???
Oldest instance
Kept
???
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Current ACB handling
TSO function for ACBGEN
Generates jcl for ACBGEN
ACBGEN from Endevor
Endevor processor groups generates the jcl
Basically the same jcl as the TSO function
plus Endevor specific jcl and commands
Weekly routine which copies all ACBs to IMS inactive and active ACBLIB
IMS Catalog Experience at Volvo IT
New ACB handling with IMS Catalog
TSO function for new ACBGEN
Generates jcl for ACBGEN with DFS3UACB
Remove batch option from panel
Copy all ACBs to IMS staging ACBLIB
New ACBGEN from Endevor
Endevor processor groups generates the jcl
Basically the same jcl as the TSO function
plus Endevor specific jcl and commands
Weekly routine which copies all ACBs to IMS inactive and active ACBLIB
Need to update the IMS Catalog
IMS Catalog Experience at Volvo IT
Current ACBGEN procedure V501ACB in overview
ACBGEN done here
cCCreates copy stmts for IEBCOPY
Creates copy stmts
for IEBCOPY
Only online ACB
with BUILD
IMS Catalog Experience at Volvo IT
New ACBGEN procedure V501AC13, first version
The only change is
new ACBGEN utility
IMS Catalog Experience at Volvo IT
New ACBGEN procedure V501AC13, first version
The idea was to create a procedure which use DFS3UACB
Messages from acbgen on ddname SYSPRINT
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
The same REXX to create copy statements for IEBCOPY
IMS Catalog Experience at Volvo IT
New ACBGEN procedure V501AC13, first version
The idea was to create a procedure which used DFS3UACB
Messages from acbgen on ddname SYSPRINT
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
The same REXX to create copy statements for IEBCOPY
But it did not work as expected
Messages in SYSPRINT dataset did not include
DFS0940I PSB xxxxxx HAS BEEN ADDED IN LIBRARY. …
IMS Catalog Experience at Volvo IT
The problem was reported to IBM
However, there was already an APAR for this
IMS Development had opened APAR PI15770 to deal with this problem.
This is the APAR error description:
When the DFS3UACB Utility is run with SYSPRINT directed to a dataset,
then only the header information is being sent out to SYSPRINT.
The utility completes but the expected utility messages are missing.
IMS Catalog Experience at Volvo IT
We have tested another solution from IBM:
The ACBCATWK dataset which is used by the DFS3UACB utility
contains useful information.
- One header record, consisting of the ACBGEN start time.
The start time is a hex STCK value with trailing blanks.
- One or more records consisting of a four byte member type,
followed by up to eight bytes of the member name.
Both the member type and member names are EBCDIC,
left justified with trailing blanks.
We need to change our REXX to use the new data set
IMS Catalog Experience at Volvo IT
ACBCATWK data set, an example
We are only interested
in the DBD/PSBname
We have created a new version of our REXX which searches for
DBD or PSB in pos 1
IMS Catalog Experience at Volvo IT
Copy commands generated by the REXX
IMS Catalog Experience at Volvo IT
New ACBGEN procedure V501AC13, updated version
New ACBGEN utility
ACBCATWK to a
temp data set
New version of our
REXX
IMS Catalog Experience at Volvo IT
Weekly routine which copies all ACBs to IMS ACBLIB (current)
Copy all local ACBLIBs
to ddname CHA
CHA input to
IMXXONLC
IMS Catalog Experience at Volvo IT
New weekly routine which copies all ACBs to IMS inactive ACBLIB
Need to update the IMS Catalog
IMS Catalog Experience at Volvo IT
New weekly routine which copies all ACBs to IMS inactive ACBLIB
Need to update the IMS Catalog
Add two new jobsteps before the step which does the copy to IMS ACBLIB
//*--------------------------------------------------------------------------------------------------//* STEP 1: New REXX which compares IMSCHA.ACBLIB with
//* inactive IMS.ACBLIB and creates a delete record for DFS3PU10
//* for each ACB missing in IMSCHA.ACBLIB
//*
//* OUT1 DD DELETE RECORDS
//* OUT2 DD ACBs MISSING IN INACTIVE IMS.ACBLIB (error messages)
//*--------------------------------------------------------------------------------------------------//COMPARE EXEC REXX-PGM,COND=(0,LT)
//IN1
DD DSN=F1IMV0.IMSCHA.ACBLIB,DISP=SHR
//IN2
DD DSN=F1IMV0.IMS.ACBLIBA,DISP=SHR
//OUT1 DD DSN=F1IMV0.ACBDELET(+1),DISP=(NEW,CATLG),...
//OUT2 DD DSN=F1IMV0.MESSAGES(+1),DISP=(NEW,CATLG),...
IMS Catalog Experience at Volvo IT
New weekly routine which copies all ACBs to IMS inactive ACBLIB
Need to update the IMS Catalog
Add two new jobsteps before the step which does the copy
//*--------------------------------------------------------------------------------------------------//* STEP 1: New REXX which compares IMSCHA.ACBLIB with
//* inactive IMS.ACBLIB and creates a delete record for DFS3PU10
//* for each ACB missing in IMSCHA.ACBLIB
//*
//* OUT1 DD DELETE RECORDS
//* OUT2 DD ACBs MISSING IN INACTIVE IMS.ACBLIB (error messages)
//*--------------------------------------------------------------------------------------------------//COMPARE EXEC REXX-PGM,COND=(0,LT)
//IN1
DD DSN=F1IMV0.IMSCHA.ACBLIB,DISP=SHR
//IN2
DD DSN=F1IMV0.IMS.ACBLIBA,DISP=SHR
//OUT1 DD DSN=F1IMV0.ACBDELET(+1),DISP=(NEW,CATLG),...
//OUT2 DD DSN=F1IMV0.MESSAGES(+1),DISP=(NEW,CATLG),...
//*
//*------------------------------------------------------//* STEP 2: DFS3PU10, delete ACBs in the IMS Catalog
//* INPUT : File with delete records from COMPARE step
//*------------------------------------------------------//CLEANUP EXEC DFS3PU10……
IMS Catalog Experience at Volvo IT
Cleanup of ACBLIBs before using the IMS Catalog
To avoid populating the IMS catalog with garbage, it would be a good
idea to analyze the content of IMS ACBLIB and do a cleanup to remove
members (both single members and whole applications) that are not
used anymore.
It is much easier to do a cleanup in advance than clean up the content
of the IMS catalog.
No cleanup was done in our test system (intentionally).
IMS Catalog Experience at Volvo IT
Agenda
The Volvo Group
Background
IMS Catalog concept
Creating and loading
Viewing the contents
Working with IMS Explorer
New ACBGEN
Cleanup of the IMS catalog
Changing our routines
Future plans
IMS Catalog Experience at Volvo IT
Future plans
Install IMS Catalog in SD01 (development environment)
Install during 2014 Q3/Q4
Cleanup ACBLIB needed first
New COBOL version in 2014 Q3 (COBOL 5.1)
Test proposed solutions in SD01
IMS Catalog Experience at Volvo IT
Future plans
Install IMS Catalog in SD01 (development environment)
Install during 2014 Q3/Q4
Cleanup ACBLIB needed first
New COBOL version in 2014 Q3 (COBOL 5.1)
Test proposed solutions in SD01
IMS Catalog, IMS Explorer and Endevor
Synchronized DBD and PSB source
Plugin Endevor – IMS Explorer in RDz
IMS Catalog Experience at Volvo IT
Future plans
Install IMS Catalog in SD01 (development environment)
Install during 2014 Q3/Q4
Cleanup ACBLIB needed first
New COBOL version in 2014 Q3 (COBOL 5.1)
Test proposed solutions in SD01
IMS Catalog, IMS Explorer and Endevor
Synchronized DBD and PSB source
Plugin Endevor – IMS Explorer in RDz
Training for users needed
IMS Catalog Experience at Volvo IT
Future plans
Install IMS Catalog in SD01 (development environment)
Install during 2014 Q3/Q4
Cleanup ACBLIB needed first
New COBOL version in 2014 Q3 (COBOL 5.1)
Test proposed solutions in SD01
IMS Catalog, IMS Explorer and Endevor
Synchronized DBD and PSB source
Plugin Endevor – IMS Explorer in RDz
Training for users needed
Add metadata to all DBDs (one time activity)
IMS Catalog Experience at Volvo IT
Future plans
Install IMS Catalog in SD01 (development environment)
Install during 2014 Q3/Q4
Cleanup ACBLIB needed first
New COBOL version in 2014 Q3 (COBOL 5.1)
Test proposed solutions in SD01
IMS Catalog, IMS Explorer and Endevor
Synchronized DBD and PSB source
Plugin Endevor – IMS Explorer in RDz
Training for users needed
Add metadata to all DBDs (one time activity)
Need for online utilities as the IMS Catalog is always online
Think of recover strategy
Needed if we use database versioning
Think of security
More security than PSB protection needed ?
IMS Catalog Experience at Volvo IT
Future plans
We are interested in IMS v14 with IMS Catalog replacing ACBLIB
The IMS Catalog concept for IMS v14 would then be the real solution
Kurt Jönsson
Volvo IT
Dept DE47805, VAK1
S-405 08 Gothenburg
Tel:
+46 31 3222695
E-mail:
[email protected]

Download Report