Logbook for delete documents in CMOD 8.4.0.3

[plb3945]

Hello,

Please, i have a question about CMOD 8.4.0.3
I need to create a logbook which refer what documents will be delete in 15 days for applications groups(15 days before the end of expiration time). Do you know how to proceed? Is-it possible automatically?
Thanks for your help.
Best regards
Philippe

[Alessandro Perucchi]

Hello Philippe,

Well I don't know how to do it in z/OS with all the scripts/programs/JCL/... but I can give you a generic idea on how to proceed.
Maybe you can translate it somehow for z/OS.

1) Get the date from today in CMOD format (with arsdate) (I'm assuming here the number for a date, and not for date+time, but you can extend it for that type too), example   15000.
2) get your retention period from the application group XYZ you are interested: exemple 10 years: 3650
3) find the date in 15 days that corresponds to the document loaded 10 years ago:  15000 + 15 => 15015 => 15015 - 3650 = 11365.
4) search the field that is associated to the Segment in the application Group XYG, this is the field that needs to be used to search the documents that will be delete by CMOD. Let say that field is called "Doc_Date".
5) search in CMOD for that application group XYZ with the following critera "where Doc_Date<=11365"

Then you have all the documents that will be deleted in 15 days.
Do it for every application group you might have, and you have a full listing of all documents across CMOD that are going to be deleted.

Except that method, I'm not aware of a tool to simulate the expiration of CMOD... maybe it's time that I write one :-D I'm getting this question quite often!!

I hope that helps :-)

Sincerely yours,
Alessandro

[plb3945]

Hello Alessandro,

Thanks for your help, we appreciate and use it in a first test.
Do you know the name of the system log database table, i can't find it in documentation. I need it to collect time_stamp and doc_name for our logbook.
Could you help me again?
Thanks a lot.
Best regards
Philippe

[Alessandro Perucchi]

Hello Philippe,

Well normally the tables are in the following format:  SLx  where x is a number >=2.

The best way to find all the tables is to launch the following DB2 statement:

select table_name from arsseg where agid in (select agid from arsag where name = ' System Log')

So you get all available tables for System Log.

Sincerely yours,
Alessandro