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.
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)')
/*