PL22652: IADF - EXTRACT DOES NOT WORK WHEN USING BATCH JOB

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• BATCH EXTRACT DOES NOT WORK. THE SCENARIO IS AS FOLLOWS:
  PANEL ADFUEXTC: ENTER THE DATASETNAME THAT CONTAINS THE SOURCE
  CLIST ADFUEXTA EDITS THE SOURCE USING MACRO ADFXT
  THIS ADDS THE STATEMENT: GENERATE OPTIONS=ADFX
  ADFUEXTA CONSTRUCTS JCL FOR THE BATCH JOB
  ADFUEXTA EDITS THE SOURCE AGAIN AND THE GENERATE STATEMENT
   ADDED PREVIOUSLY GETS DELETED
  THEN WE GET THE ADFSUBP PANEL TO SUBMIT THE JOB
  SO WHEN THE BATCH JOB RUNS, THE SOURCE DOESNOT CONTAIN THE
  ADFX GENERATE ANYMORE AND EXTRACT DOESNOT WORK.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: IADF - BATCH EXTRACT                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: WHEN USING EXTRACT, IF THE MEMBER USED  *
  *                      FOR THE SOURCE CODE DOES NOT INCLUDE A  *
  *                      GENERATE OPTIONS=ADFX STATEMENT, THAT   *
  *                      STATEMENT SHOULD BE ADDED BEFORE        *
  *                      GENERATING. IN FOREGROUND THIS OPTION   *
  *                      WORKS FINE BUT IN BATCH THE GENERATE    *
  *                      STATEMENT ADDED IS DELETED BEFORE THE   *
  *                      JOB IS EXECUTED AND THEREFORE THE       *
  *                      EXTRACT DOES NOT WORK.                  *
  ****************************************************************
  * RECOMMENDATION: APPLY SEND PACKAGE                           *
  ****************************************************************
  BATCH EXTRACT DOES NOT WORK BECAUSE THE "GENERATE OPTIONS=ADFX"
  STATEMENT DOES NOT EXIST IN THE SOURCE THAT IS BEING USED. THIS
  STATEMENT SHOULD BE ADDED BY IADF BUT THIS ONLY WORKS IN
  FOREGROUND.
  

Problem conclusion

• WHEN EXTRACTING IN BATCH, IF MACRO AFTXT FINDS THAT THE
  SOURCE CODE DOES NOT HAVE A "GENERATE OPTIONS=ADFX" STATEMENT,
  CLIST ADFUEXTA ADDS THIS STATEMENT, CREATES A PDS
  (SYSID.ADF.EXTRACIN) AND COPIES THE SPECIFIED INPUT MEMBER
  INTO THE NEW PDS.
  SKELETON ADFCRDC WILL USE (SYSID.ADF.EXTRACIN(MBR)) AS INPUT IN
  THE SYSIN OF THE RULES GENERATOR STEP.
  210Y
  ADFCRDC
  ADFUEXTA
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UL28407

Modules/Macros

•    ADFCRDC  ADFUEXTA
  

Fix information

• Fixed component name

  IMS ADF II V2 R

• Fixed component ID

  566534801

Applicable component levels

• R210 PSY UL28407

     UP88/05/12 P F805

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.