Example: Restructuring an online DEDB

The following figure shows a JCL example for restructuring an online DEDB.

Before running this example, you must generate a new ACBLIB. To run this example in an IMS-managed ACBs environment, you must also populate the new ACB definition in the staging data set of the IMS directory.

This example restructures online database DEDB000F. The following changes are also made during the restructuring process:

Replaces the randomizer.
Adds two areas.
Changes the UOW, ROOT, and CISIZE parameters.

Figure 1. Restructuring an online DEDB (Part 1 of 2)

//HFPEXE  EXEC PGM=HFPOSC00,REGION=100M,                             
//        PARM='IMSPLEX=FPFJ1,DBRCGRP=001'                           
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0                                      
//         DD DISP=SHR,DSN=ITB.SFOILOAD
//         DD DISP=SHR,DSN=ITB.SGLXLOAD                    
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL                         
//         DD DISP=SHR,DSN=IMSVS.PGMLIB                           
//         DD DISP=SHR,DSN=HPFP.OSC.USERLIB   <== HFPSETOP    
//HFPPRINT DD SYSOUT=*                                              
//HFPRPTS  DD SYSOUT=*                                              
//*                                                                  
//IMSACB   DD DISP=SHR,DSN=IMSVS.ACBLIB                        
//NEWACB   DD DISP=SHR,DSN=IMSVS.ACBLIB.STAGE                  
//*                                                                  
//SYSOUT   DD SYSOUT=A                                              
//HFP3XTRA DD DUMMY                                                  
//*                                                                  
//HFPSYSIN DD  *                                     
  GLOBAL                                                             
    MSTIMESTAMP=LOCAL,                                               
    IMSID=IFF#,                                                      
    SCAN=NO,                                                         
    TOIXCFGRP=F#TOI                                                  
  RESTRUCTURE                                                        
    DBD=DEDB000F,                                                    
    IAREA=ALL,                                                       
    OAREA=ALL,                                                       
    ITASKCTL=1,                                                      
    OTASKCTL=1,                                                     
    RUNTYPE=FULL,                           
    ERRORACT=ABEND,                                                 
    TAKEOVER_TIME=IMMEDIATE

Figure 2. Restructuring an online DEDB (Part 2 of 2)

  JCLPARM                                                           
    COMPRESS=NO,                                                    
    TOSILOAD='ITB.SFOILOAD',         
    PSBNAME_APPLY=DDLTFPE1,                                         
    IMSID_APPLY=IFF@,                                               
    NBA_APPLY=0020,                                                 
    OBA_APPLY=0010,                                                 
    INTRDR=IFF#OSCG,                                                
    CONFIGLIB_DSN='HPFP.OSC.USERLIB',                    
    DBDLIB_DSN='IMSVS.DBDLIB',                                
    DBR_NOFEOV=NO,                                                  
    DBR_NOFEOV_APPLY=YES,                                           
    DBRCGRP=00$,                                                    
    DCLASS_TEMP=DEFAULT,                                            
    DDNPREFIX_NEW=DDNN,                                             
    DDNPREFIX_SHADOW=DDNS,                                          
    DDNPREFIX_UIC=DDNU,                                             
    DSNMASK_NEW='HPFP.DEDB000F.&AREA.ADS1',                  
    DSNMASK_SHADOW='HPFP.DEDB000F.&AREA.ADS2',               
    DSNMASK_UIC='HPFP.UIC.DEDB000F.&AREA.ADS1',     
    ENQDSN='HPFP.OSC.@ENQDSN',              
    FPLIB_DSN='HPFP.SHFPLMD0',                                               
    IMSLIB_DSN='IMSVS.SDFSRESL',                                 
    IMSLIB_DSN_APPLY='IMSVS.IFJ3.SDFSRESL',                           
    IMSPLEX=FPFJ1,                                                  
    IMSRESLB_RND_DSN='IMSVS.DATACAP.RMOD',                
    IMSRESLB_EDC_DSN='IMSVS.DATACAP.RMOD',                
    JCLDSN='HPFP.OSC.@GENJCLS',                      
    JOBCARD1="MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A,",                  
    JOBCARD2="    USER=,PASSWORD=,",                                
    JOBCARD3="    REGION=300M",                                     
    JOBN_PREFIX=OST00F,                                  
    MCLASS_TEMP=STANDARD,                                
    NEWRESLB_RND_DSN='IMSVS.DATACAP.RMOD.NEW',  
    NEWRESLB_EDC_DSN='IMSVS.DATACAP.RMOD',    
    NEWDBDLIB_DSN='IMSVS.DBDLIB.STAGE',            
    PROCLIB_DSN='IMSVS.IFF#.PROCLIB',                   
    PROCLIB_DSN_APPLY='IMSVS.IFF@.PROCLIB',             
    RECON1_DSN='IMSVS.IFF#.RECON1',                     
    RECON2_DSN='IMSVS.IFF#.RECON2',                     
    RECON3_DSN='IMSVS.IFF#.RECON3',                     
    RECON1_DSN_APPLY='IMSVS.IFF@.RECON1',               
    RECON2_DSN_APPLY='IMSVS.IFF@.RECON2',               
    RECON3_DSN_APPLY='IMSVS.IFF@.RECON3',               
    SCLASS_TEMP=SHARED,                                  
    SPACE=(CYL,5,3),                                     
    SYSAFF=RSIE,                                         
    SYSAFF_APPLY=RSIF,                                   
    LOGDSN='HPFP.OSC',                                 
    TOIXCFGRP_APPLY=F@TOI,                               
    USRHLQ='HPFP.OSC.TEST'                             
 ALLOCATE                                                
    OAREA=ALL,                                           
    ATTRIBUTE=(IDCAMS,                                   
    DSN='HPFP.OSC.@IDCAMS(&AREA)')        
/*