GENJCL with the GROUP parameter

You can generate multiple JCL for the Image Copy function by using the GROUP parameter of the GENJCL.IC command:

Write a skeletal JCL member for the Image Copy function. See step 1.
Define DBDSGRP, a group of database data sets to be processed together as a DBDS group in RECON:
```
INIT.DBDSGRP   GRPNAME(dbdsg1)    -
               MEMBERS((db1,dd1),(db2,dd2),.....)
```

Write a default member for each database data set, containing the default values to replace the user-defined keywords. When JCL is generated, the user-defined keywords in the skeletal JCL member (Figure 1) are replaced with values of an appropriate default member. One default member is required for each database data set in the group. Figure 1 shows a sample default member FABJICD2. You can use FABJICD1 shown in Figure 2 for db1, and FABJICD2 for db2.

Figure 1. Default member FABJICD2

  GENJCL.IC DEFAULT MEMBER FOR HPIC IMAGE COPY FUNCTION
  DEFAULT MEMBER NAME (FABJICD2)  

   IF YOU WISH TO USE:
       - DATA COMPRESSION FOR IC RECORDS
       - HDPC HASH CHECK OPTION
   FOR TAKING IMAGE COPY BY GENJCL.IC, REFER TO THIS DEFAULT MEMBER
   AND THE 'FABJICS0' SKELETAL JCL MEMBER OF THE DISTRIBUTED
   SAMPLE JCL LIBRARY.  

   TO USE THIS DEFAULT MEMBER, YOU ARE REQUIRED TO SPECIFY
   DEFLTJCL(FABJICD2) ON INIT.DBDS COMMAND OR DEFAULTS(FABJICD2)
   ON GENJCL.IC COMMAND.  

   SAMPLE GENJCL.IC COMMAND FORMAT BY GROUP ARE:  

    1. YOU ARE REQUIRED TO SPECIFY GRPNAME AND MEMBERS PARAMETERS ON
       INIT.DBDSGRP COMMAND TO DEFINE A GROUP OF DBDSS TO DBRC.  

      INIT.DBDSGRP  GRPNAME(DBDSGLP)    -
                    MEMBERS((DBDNAME1,DDNAME1),(DBDNAME2,DDNAME2))

    2. IF GROUP IS SPECIFIED, THE GENJCL.IC COMMAND IS EXECUTED
       REPEATEDLY FOR EACH DBDS OF THE DBDS GROUP.  

       GENJCL.IC GROUP(DBDSGLP)

    DEFAULT VALUES:  

    FOLLOWING DEFAULT VALUES SUBSTITUTE FOR THE SIMPLE KEYWORDS
    DEFINED IN THE SKELETAL JCL EXECUTION MEMBER 'FABJICS0'.  

DBDNAME2'     DBNAME MUST BE 8 CHARACTERS
DDNAME2 '     DBDDN MUST BE 8 CHARACTERS
Y'            COMPRESSION: YES
N'            HASH CHECK: NO

INIT.DBDS   DBD(db1) DDN(dd1)    -
            DSN(dsn1) GENMAX(n)  -
            ICJCL(FABJICS0) DEFLTJCL(FABJICD1)
INIT.DBDS   DBD(db2) DDN(dd2)    -
            DSN(dsn2) GENMAX(n)  -
            ICJCL(FABJICS0) DEFLTJCL(FABJICD2)

where n=2-255.

Run GENJCL for the DBDSGRP:
```
GENJCL.IC GROUP(dbdsg1)
```