// JOBCARD
//*       
//* -----------------------------------------------------------------
//*                                                                   
//*  CHANGE THE OPERANDS ON THE FOLLOWING SET STATEMENTS             
//*  TO REFERENCE THE DATA SET NAMES APPROPRIATE FOR                 
//*  YOUR INSTALLATION.                                               
//*                                                                   
//*     SRCLIB  REFERENCES THE LIBRARY WHICH CONTAINS                 
//*             THE SOURCE CODE PARTS.                               
//*                                                                   
//*     TGTLIB  REFERENCES THE TARGET HFS TO CONTAIN                 
//*             THE LOAD MODULE.                                     
//*                                                                   
//*                                                                   
//PROCESS   OUTPUT  DEFAULT=YES,CLASS=*,JESDS=ALL,OUTDISP=HOLD       
//SRCLIB    SET SRCLIB='ARS.SMPE105.SARSINST'                         
//TGTLIB    SET TGTLIB='/u/some/target/exits'                               
//*                                                                   
//* -----------------------------------------------------------------
//*                                                                   
//COMP     EXEC PGM=CCNDRVR,                                       
// PARM=('/OPTFILE(DD:COPTS)')                                     
//STEPLIB  DD DSN=CEE.SCEERUN,DISP=SHR                             
//         DD DSN=CBC.SCCNCMP,DISP=SHR                             
//COPTS    DD *                                                     
DEFINE(OS390)                                                       
DEFINE(UNIX)                                                       
DEFINE(ARS_COPYRIGHT)                                               
DEFINE(MVS_PRAGMA)                                                 
DEFINE(_THREAD_SAFE)                                               
DEFINE(_OPEN_SYS)                                                   
DEFINE(_XOPEN_SOURCE_EXTENDED)                                     
DEFINE(__OS390__)                                                   
OPT(2)                                                             
GOFF                                                               
XPLINK                                                             
CSECT                                                               
INLRPT                                                             
LIB                                                                 
ARCH(10)                                                           
TUNE(12)
LONGNAME                                                             
RENT                                                                 
SOURCE                                                               
LIST                                                                 
NOSEQ                                                               
NOMAR                                                               
SPILL(512)                                                           
//SYSIN    DD  DSN=&SRCLIB(ARSUPERM),DISP=SHR                       
//USERLIB  DD  DISP=SHR,DSN=ARS.SMPE105.SARSINST                     
//SYSLIB   DD  DISP=SHR,DSN=ARS.SMPE105.SARSINST                     
//         DD  DSNAME=CEE.SCEEH.H,DISP=SHR                           
//         DD  DSNAME=CEE.SCEEH.SYS.H,DISP=SHR                       
//SYSUT1   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)     
//SYSUT4   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)     
//SYSUT5   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)   
//SYSUT6   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)   
//SYSUT7   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)   
//SYSUT8   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)   
//SYSUT9   DD  UNIT=SYSDA,DISP=(NEW,DELETE),                         
//   SPACE=(32000,(30,30)),DCB=(RECFM=VB,LRECL=137,BLKSIZE=882)     
//SYSUT14  DD  UNIT=SYSDA,SPACE=(32000,(30,30)),                     
//             DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)               
//SYSPRINT DD SYSOUT=*                                               
//SYSCPRT  DD SYSOUT=*                                               
//SYSLIN   DD DSN=&&OBJ,                                             
//             DISP=(MOD,PASS),                                     
//             UNIT=SYSALLDA,LRECL=80,RECFM=FB,BLKSIZE=3120,         
//             SPACE=(TRK,(30,30))                                   
//LKED     EXEC PGM=IEWL,COND=(4,LT,COMP),                           
//     PARM='AC=1,CASE=MIXED,OPTIONS=OPTS'                           
//SYSLIB   DD  DISP=SHR,DSN=CEE.SCEEBND2                             
//OPTS     DD  *                                                     
    XREF                                                             
    AMODE=31,MAP                                                     
    RENT,DYNAM(DLL)                                                 
//SYSLMOD  DD PATH='&TGTLIB'                                         
//SYSUT1   DD UNIT=VIO,SPACE=(CYL,(10,2)),DISP=(NEW,DELETE)           
//SARSLOAD DD DISP=SHR,DSN=ARS.SMPE105.SARSLOAD                       
//SCEELIB  DD DISP=SHR,DSN=CEE.SCEELIB                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSDEFSD DD DUMMY                                                   
//SYSLIN   DD  DSN=*.COMP.SYSLIN,DISP=(OLD,DELETE)                     
//         DD  DDNAME=SYSIN                                           
//SYSIN    DD  *                                                       
   SETOPT PARM(PATHMODE(0,7,5,5),EXTATTR(APF))                         
    INCLUDE SARSLOAD(ARSZUXFX)                                         
    INCLUDE SCEELIB(CELHS003,CELHS001)                                 
    NAME    arsuperm(R)                                               
//*

Yes.  The snag is that encryption happens at load time -- all new documents will be encrypted, but old documents will remain un-encrypted.  You can reload the documents to force the data to be encrypted at rest.  This also remains true for Globally Unique IDs and Hash values -- only new data will receive the features.

-JD.

OpenText is an archive, BUT : They have not the compress ratio that CMOD have , and the license are expensive. They usually start low, but after 1 year they increase.
I guess OpenText is a more "live archive", CMOD is a cold archive .. you store, search and view. Simple, but effective.

Hi ! Have anyone added encryption at rest on a working environment before ?

BR,
Anne

I learned that new function level is available for Db2.

At this time, there is no plan for CMOD to require any of these new functions.

Db2 13 - What's new - Function level 507 (PH64907 - April 2025)

Function level 507 introduces online conversion of table partitions from PBR to PBG, enhanced concurrency for system temporal tables, LASTUSED support for application plans, more flexibility for temporal and archive-enabled tables, and greater than 64 GB allocation quantities.

There's a few reasons not to do this...

- The file it generates may be *enormous*, especially if the loaded files were compressed.
- Older versions of CMOD had issues generating generic index files over 2GB in size, rolling over the byte offset back to 0.
- Loading a single large file with data that spans years may break expiration processing, especially if the expiration type is 'Load'.
- Any error retrieving data from CMOD will result in the entire extract failing.
- If there's more than a couple thousand documents, you'll quickly reach a point where your filesystem will be overwhelmed, and simple commands (ls / cp / mv / rm) will take several minutes.

Most folks extract by Load ID or date or by a mostly-unique ID like customer number, etc.

If this is a particularly large job, reach out to me via eMail -- I have a fast & automated extraction utility I use for migrations.

-JD.

Goodday all,

Is it possible with the arsdoc get command to retrieve all archived documents from the AG?

I have tried some arsdoc get parameters, but not luck
Any help will be appreciated.

I am using this command:

arsdoc get -a -d /tmp/cmod -f "MSM Consignment Notes" -h archive -i "where CONSIGN_NO='*'" -G D150 -o TEST

Tried also with: CONSIGN_NO='%'

Thankyou

Kind regards ,

Michel

As of this writing there is no plan to replace the 10.5.0.9 Admin Client on the download site.

IF your shop is going to be administering ODF

THEN use the 10.5.0.8 Admin Client

OR request a copy of the 10.5.0.9 Admin Client from Level 2 that contains the fix.

Ed

Hi All,

Does anybody have any knowledge of OpenText? Is this a similar product as CMOD?
Customer of mine want to migrate to OpenText. I would rather stay at CMOD. I need some counter arguments why we should keep CMOD for archiving our documents.

Kind regards,

Michel.

Don't install the 10.5.0.9 admin client if you're going to use it to administer ODF.

Otherwise, it's fine - just ODF administration has an issue.

I'll append here as I find out more.

Ed