Taking image copies

You can take image copies by invoking the FABJMAIN program.

Procedure

In FABJMAIN JCL, code the EXEC statement as follows:
```
//      EXEC PGM=FABJMAIN,REGION=nM,IMSPLEX=plex-name,DBRCGRP=dbrcgrp
```
Where:

IMSPLEX

If you need to start IMSplex through the IMS HP Image Copy job, specify the IMSPLEX parameter.

DBRCGRP

If you use the DBRCGRP keyword of IMS, you must specify the DBRCGRP parameter.
Code the appropriate DD statements. See DD statements for creating image copies.
JCL examples are provided in Examples for the Image Copy function.
Code the corresponding control statement keywords in the ICEIN data set.

To invoke the Image Copy function, you must specify the IC, AIC, CIC, or ACIC statement, or the GROUP statement with the FUNC keyword. For more information, see ICEIN control statements. For a list of control statement keywords, see Control statement keywords for the Image Copy function.
Submit the JCL.

Example

The following figure shows a sample JCL stream.

//* -------------------------------------------------------
//DEF#DMP EXEC PGM=IEFBR14
//RDUMPDS DD DSN=TEMPDS.RCNDUMP,
//           DISP=(,CATLG),
//           DCB=(DSORG=PS,RECFM=VB,LRECL=2048,BLKSIZE=20480),
//           SPACE=(CYL,(1,1)),UNIT=SYSDA
//* --------------------------------------------------------
//ICOPY   EXEC PGM=FABJMAIN,REGION=nM,COND(4,LT)
//STEPLIB   DD DISP=SHR,DSN=&HPSLIB 
//          DD DISP=SHR,DSN=&IMSRES 
//DFSRESLIB DD DISP=SHR,DSN=&IMSRES 
//IMS       DD DISP=SHR,DSN=xxx
//IMSDALIB  DD DISP=SHR,DSN=xxxx
//RECON1    DD DISP=SHR,DSN=xxxxx
//RECON2    DD DISP=SHR,DSN=xxxxxx
//RECON3    DD DISP=SHR,DSN=xxxxxxx
//SYSPRINT  DD SYSOUT=*
//ICEPRINT  DD SYSOUT=*
//DFSPRINT  DD SYSOUT=*
//ICDD      DD DISP=OLD,DSN=TEMPDS.RCNDUMP
//ICEIN     DD *
            :