APAR status
INTRAN
Error description
DOS/VS RPG II RELEASE 1.3.0 online applications cannot run in CICS TS as language RPG is not supported. With ptf UK60655 for apar PM22788 against DOS/VS RPG II Release 1.3.0 compiler, online RPG II application program can be compiled to run in CICS TS. Note: UK60655 supercedes UK58484. The following will be required to be done to setup the environment for compiling online RPG applications to run o Activation of required CICS/VSE Programs / Macros / Samples Two jobs are provided in ICCF library 59 which need to be executed/submitted to activate the required CICS/VSE parts to support RPGII in a CICS TS environment. RPGINST 1. This Job will define a new sublibrary called PRD2.RPGII 2. will linkedit phase DFHERP1$ (CICS/VSE RPGII translator) into this newly defined sublibrary. 3. will catalog the CICS/VSE BMS Map structures (A-books) DFHANRAT, DFHANRWC, DFHMDC, DFHMDCL, DFHMDF, DFHMDI, DFHMRPG, DFHMSD, DFHPRMCK and DFHSYS into sublibrary PRD2.RPGII . 4. and will catalogs R-type members DFHAID, DFHEIBLK, DFHEIVAR, DFHBMSCA and DFHMSRCA into sublibrary PRD2.RPGII RPGSAMPL This job will catalog CICS/VSE supplied RPG Sample applications into PRD2.RPGII sublibrary (same sublibrary as used for the other CICS/VSE supplied parts). Following is a list of the RPG Sample applications which will be cataloged as R-type members: DFHXFILE, DFHXLOGA, DFHXL86O, DFHXRALL, DFHXRBRW, DFHXRCOM, DFHXRMA, DHFXRMB, DFHXRMC, DFHXRMD, DFHXRMK, DFHXRML, DFHXRMNU, DHFXRREN, DFHXRREP and DFH29080. o When at least the RPGINST job has been submitted successfully then you must add the new sublibrary PRD2.RPGII to the LIBDEFs in member C$$RPONL in ICCF library 2. When the environment has be established then the following has to be done to run RPG II online application in CICS TS, o compile with EXEC PARM option of CICSTS e.g. // EXEC RPGII,PARM='CICSTS' (refer below for sample) o link edit including new ILNERI object where previously DFHERI was included. o define the program to CICS TS as language type ASSEMBLER o define the program to CICS TS as RELOAD=YES sample compile JCL to compile for CICS TS * $$ JOB JNM=DFHXRMNU,CLASS=0 * $$ PUN DISP=I,PRI=6,CLASS=0 // JOB DFHXAMNU // ASSGN SYSIPT,SYSRDR // EXEC IESINSRT // JOB DFHXAMNU // LIBDEF *,SEARCH=(testlib.sublib,prd2.rpg,PRD2.RPGII) // LIBDEF PHASE,CATALOG=testlib.sublib // OPTION CATAL PHASE XDFHRMNU,* INCLUDE ILNERI // EXEC RPGII,PARM='CICSTS' * $$ END // LIBDEF *,SEARCH=(testlib.sublib,prd2.rpg,PRD2.RPGII) // OPTION DECK // EXEC DFHERP1$ * $$ SLI MEM=DFHXRMNU.R,S=PRD2.RPGII /* // EXEC IESINSRT /* // EXEC LNKEDT /* #& $ $$ EOJ * $$ END /& * $$ EOJ Also batch applications compiled with UK60655 applied will function as before. Note that linkedit of batch compiles will now have UNRESOLVED EXTERNAL REFERENCES WXTRN DFHEI1 with LAST RETURN CODE WAS 0002. Note that the RPG II online application is restricted to CICS API calls as described in CICS/DOS/VSE Version 1 Release 6 Application Programmer's Reference Manual (RPGII) that are supported in CICS TS. UK97635 for apar PM94531 corrects a defect where the CICS program storage is not released for an RPG II applcation. Note: - RPG II online applications have to be relinked with the ILNERI updated by UK97635 - The ILNERI must be the first object included in linking the phase. Failure to do so will result in the program storage not being released. e.g. PHASE RPGPROG,* INCLUDE ILNERI INCLUDE .... INCLUDE .... - add program RPGIICLN and transaction CRPG to the CSD DEFINE PROG(RPGIICLN) GROUP(group) DA(BELOW) LANG(A) DEFINE TRANS(CRPG) GROUP(group) PROG(RPGIICLN) - Transaction security for CRPG has to be allowed. - The program RPGIICLN has to be in sublibrary which is in the CICS LIBDEF SEARCH chain.
Local fix
Problem summary
Problem conclusion
Temporary fix
Comments
APAR Information
APAR number
II14452
Reported component name
PA LIB INFO ITE
Reported component ID
INFOPALIB
Reported release
001
Status
INTRAN
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-06-15
Closed date
Last modified date
2013-11-12
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
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19N","label":"APARs - OS\/390 environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG32M","label":"APARs - VSE\/ESA environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":null,"label":null},"Product":{"code":"SG19O","label":"APARs - MVS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSSN3L","label":"z\/OS Communications Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG27M","label":"APARs - z\/VM environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB16","label":"Mainframe HW"}}]
Document Information
Modified date:
12 November 2013