ACCEPT without APPLY (pregeneration mode)

This SMP/E method is the pregeneration method for processing service.

Important: This information is accurate as of its printing. For the most current and more detailed information, see Information APAR II13024.

This procedure requires that ACCJCLIN was set in the distribution zone when the FMIDs were ACCEPTed.

Procedure

Back up the IMS environment.
1. Back up the SMP/E data sets (such as Zones, SMPMTS, and SMPPTS).
2. Back up IMS product data sets (such as SDFSRESL and ADFSLOAD).
Obtain the desired service.
Read the documentation accompanying the package:
- ESO tape documentation
- CBPDO Memo to Users Extensions
- Preventative Service Planning (PSP)
Run the SMP/E RECEIVE command with both the parameters SYSMODS and HOLDDATA set.
Run either the SMP/E RESTORE or ACCEPT commands for all outstanding service for all products present in the IMS distribution and IMS target zones. Use the following sample SMP/E control statements to identify this outstanding service (SYSMODS that have been applied only):
```
//SMPCNTL DD *
          SET BDY(targetzonename).
          LIST APAR PTF USERMOD NOACCEPT NOSUP.
```

Unload the target zone DDDEFs using the SMP/E UNLOAD command. Use the following sample SMP/E control statements and JCL to complete this task:

//SMPCNTL DD *
          SET BDY(targetzonename).
          UNLOAD DDDEF.
        //SMPPUNCH DD DSN=IMS.SMPUNLD,DISP=(,CATLG),
        // UNIT=SYSDA,SPACE=(TRK,(5,1),RLSE),
        // DCB=(RECFM=FB,BLKSIZE=16000,LRECL=80)

Run the SMP/E LIST command on the target zone to determine the name of the OPTIONS entry. This OPTIONS entry will be used in Step 10. Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
          SET BDY(targetzonename).
          LIST TARGETZONE.
```
Scratch and reallocate the following data sets:
- SMPMTS
- SMPSTS
- SMPSCDS
- SMPLTS
Note: The SMP/E CLEANUP command can be used instead of scratching and reallocating the SMPPTS, SMPSTS and SMPSCDS data sets. The SMP/E CLEANUP command cannot be used for the SMPLTS data set. You need to scratch and reallocate this data set.

Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
         SET BDY(targetzonename).
         CLEANUP.
```
Delete the SMP/E target zone.
1. Run the SMP/E ZONEDELETE command for the Target zone.
  Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
          SET BDY(targetzonename).
          ZDEL TZONE(targetzonename).
```
2. If no other SMP/E zones are in the target CSI (the VSAM cluster), run the IDCAMS DELETE and DEFINE commands on the target CSI to improve performance.
  
  Attention: If multiple zones are contained in the same CSI as the target zone, do not delete and redefine the cluster because you will also lose the information for those zones.
Re-initialize the new Target zone.
1. Run the IDCAMS REPRO command to copy SYS1.MACLIB(GIMZPOOL) into the new CSI.
  Attention: If you did not delete and redefine the target CSI as described in Step 9, do not copy GIMZPOOL into the new target zone.
2. Rebuild the relationship between the old DLIB zone and the new Target zone. Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
        SET BDY(GLOBAL).
          UCLIN.
            ADD GZONE ZONEINDEX(
            (targetzonename,target.zone.cluster.name,TARGET)
                                ).
          ENDUCL.
 
         SET BDY(targetzonename).
           UCLIN.
             ADD TARGETZONE(targetzonename)
                 SREL(P115)
                 RELATED(dlibzonename)
                 OPTIONS(xxxxxx).
           ENDUCL.
```
  Note: Be sure that this new target points to the correct OPTIONS entry. The correct OPTIONS entry can be determined from the output created in step 7.
3. Run UCLIN to add the DDDEFs back to the target zone.
  This step uses the data set created in step 6 as input. Use the following SMP/E control statements and JCL to complete this task:
```
//SMPCNTL DD *
  SET BDY(targetzonename).
//        DD DSN=IMS.SMPUNLD,DISP=SHR
```
  Note: Return code 4 is expected in this step because DDDEFs are being added instead of being replaced.
  
  Attention: Before processing SMP/E in step 11, RECEIVE the current Enhanced HOLDDATA. Doing so enables you to resolve PEs during SMP/E processing. You can get the most recent HOLDDATA at https://public.dhe.ibm.com/s390/holddata/.
Run the SMP/E ACCEPT GROUPEXTEND BYPASS(APPLYCHECK) commands for the PTFs to be processed.
Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
        SET BDY(dlibzonename).
           ACCEPT GROUPEXTEND
               BYPASS(APPLYCHECK
                      HOLDCLASS(ERREL,UCLREL)
                      HOLDSYSTEM
                      )
                 SOURCEID (SMCREC,RSU08*,RSU090*,RSU0910,etc)
                 PTFS.
```
Attention: After SMP/E processing is complete, using the current enhanced HOLDDATA, run the SMP/E REPORT ERRSYSMODS command to identify missing HIPERs and PE exposures.
Run the SMP/E ZONEMERGE command specifying CONTENT to merge the distribution zone to the new target zone.
Use the following sample SMP/E control statements to complete this task:
```
//SMPCNTL DD *
       SET BDY(targetzonename).
           ZONEMERGE(dlibzonename)
               INTO(targetzonename)
               CONTENT.
```
Run the SMP/E GENERATE command to create the JCL necessary to rebuild the target libraries.
Tip: This step requires that ACCJCLIN was set in the distribution zone before the IMS FMIDs were ACCEPTed.

Use the following sample SMP/E control statements and additional JCL to complete this task, where the data set for DD name CNTL must have a member named J, which contains a sample JOB card:
```
//CNTL     DD  DSN=yourpds,DISP=SHR
       //SMPPUNCH DD  DSN=IMS.GENERATE,
       //             DISP=(,CATLG),UNIT=SYSDA,
       //             SPACE=(CYL,(25,5),RLSE),
       //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=16000)
        SET BDY(targetzonename).
        GENERATE JOBCARD(CNTL,J) REPLACE.
```
Run the JCL that was created in step 13.
Note: The SMPLTS job will complete with a return code of 4 because of unresolved external references (IEW2454W). All other jobs should complete with a return code of 0.
Run an IMS ALL type of system definition (STAGE 1 and STAGE 2).

Attention: Ensure that Stage 2 processing is complete before performing step 16.
Run SMP/E JCLIN, pointing to the STAGE 2 JCL as input.
Run the SMP/E APPLY command for any IMS service that was not accepted. This service was identified in step 5.
Run the SMP/E APPLY command for any service for other products that was not accepted. This service was identified in step 5.
Download a new copy of Enhanced Holddata from the RECEIVE command.
Run the SMP/E REPORT ERRSYSMODS command.
Analyze the output from the SMP/E REPORT ERRSYSMODS command and process additional services as appropriate.
Test the new system.