II07872: MSG4228I OPEN RC20 RC32 FOR RPGII WORKFILE WHEN USED WITH AUTOREPORT

APAR status

• INTRAN

Error description

• When AUTOREPORT is used with RPG, the disposition of
  workfile IJSYS02 (SYS002), when located in VSAM space,
  is a problem. As this workfile is used to pass data from the
  AUTOREPORT preprocessor to the RPG compiler, the default
  disposition (NEW,DELETE) leads to MSG4228I IJSYS02 OPEN ERROR.
  On the other side the disposition cannot be changed between
  preprocessor and compiler, as they are called within one step.
  When KEEP is used as second disposition parameter, the space for
  the workfile will be kept unnecessarily.
     Solution: Use separate filenames for AUTOREPORT and the RPG
  compiler, thus different dispositions can be defined for the
  same workfile within one step.
  A similar situation occurs, if the translator(RPGIXLTR) is used.
  Translator output may be passed via workfile IJSYS02 to the
  compiler. As the translator is invoked in a separate step,
  modified labels can be used for the compiler (RPGII). If
  you prefer to use permanent labels, the filename in the
  translator program should also be modified.
  
  Please see both alternatives in the Local Fix part.
  

Local fix

• * SET FILENAME IJSYS02 TO IJRPG02/01 IN RPGII AND AUTOREPORT
  // EXEC MSHP
  COR 5746-RG1-00-O42 : II07872
  RESO 'SYS002 PROBLEM WHEN IN VSAM SPACE'
  AFF PHASE=RPGIZ000
  ALTER 986  C9D1E2E8E2F0F2 : C9D1D9D7C7F0F2
  AFF PHASE=RPGI0000
  ALTER  62E C9D1E2E8E2F0F2 : C9D1D9D7C7F0F1
  ALTER 3F35 C9D1E2E8E2F0F2 : C9D1D9D7C7F0F1
  /*
  
  Local APAR fix for TRANSLATOR, AUTOREPORT and RPG compiler:
  
  * SET FILENAME IJSYS02 TO IJRPG02/01 IN RPGII AND AUTOREPORT
  // EXEC MSHP
  COR 5746-RG1-00-O42 : II07872
  RESO 'SYS002 PROBLEM WHEN IN VSAM SPACE'
  AFF PHASE=RPGIZ000
  ALTER 986  C9D1E2E8E2F0F2 : C9D1D9D7C7F0F2
  AFF PHASE=RPGIXLTR
  ALTER 7A96 C9D1E2E8E2F0F2 : C9D1D9D7C7F0F2
  AFF PHASE=RPGI0000
  ALTER  62E C9D1E2E8E2F0F2 : C9D1D9D7C7F0F1
  ALTER 3F35 C9D1E2E8E2F0F2 : C9D1D9D7C7F0F1
  /*
  
  
  Modified labels:
  // DLBL IJRPG02,'%DOS.WORKFILE.SYS002',,VSAM,RECSIZE=4096,     C
                 RECORDS=(500,200),DISP=(NEW,KEEP)
  // DLBL IJRPG01,'%DOS.WORKFILE.SYS002',,VSAM,DISP=(OLD,DELETE)
  
  Update 03/13/2000
  Please verify the offsets of character string
  IJSYS02 before you change the RPGII phases.
  Offsets for the currently shipped RPGII phases are:
  RPGIZ000 x'986'
  RPGI0000 x'62E'
  RGGI0000 x'3F45'
  RPGIXLTR x'7AD6'
  

Problem summary

Problem conclusion

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:

Fix information

Applicable component levels