Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

VS COBOL II in CICS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
csomaik

New User


Joined: 28 Nov 2011
Posts: 2
Location: Hungary

PostPosted: Thu Mar 12, 2015 6:37 pm    Post subject: VS COBOL II in CICS
Reply with quote

Hi,

we are just upgrading from CTS 320 to 520 and our customer faced with a strange issue. The old VS COBOL II applications are failing, but only the 24 bit versions, others with 31 bit not. Those old programs were compiled before LE, during migration not re-compiled.

We have analyzed a bit in the problem, on one single incident – one transaction involving more modules.

Code:
    Bind options   Result   Symptom
Original problem   AMODE(24), RMODE(24)   Fails   16.03.59 STC00082                     +DFHAC2236 BRTMCICS  067
         067                      09/03/2015 16:03:59 BRTMCICS Transaction AI00 abend ASRA in
         067                      LI0100I term MAAB. Updates to local recoverable resources wi
         067                      backed out.
         .
         .
         MAABAI00 20150309160359 CEE3200S The system detected a program interruption.
         MAABAI00 20150309160359          From compile unit LI0100I at entry point LI010
         MAABAI00 20150309160359          000ECCBA.
         DFHDU0203I 09/03/2015 16:03:59 BRTMCICS A transaction dump was taken for dumpcod
         00000272, Program: LI0100I.
         DFHAC2236 09/03/2015 16:03:59 BRTMCICS Transaction AI00 abend ASRA in program LI
         resources will be backed out.
         DFHPG0209 09/03/2015 16:03:59 BRTMCICS MAAB HBE SC19 Resource definition for SC1
         00272 09.03.15 16.03.59 ======== TASK ABEND INFO DISPLAY ======================
         00272 CICS TERMINAL ID ......... MAAB       VTAM NODE NAME ........... BRFV502
         00272 TRANSACTION ID ........... AI00       ABEND CODE ............... ASRA
         00272 ORIGINAL USER ID ......... HBE
         00272 PROGRAM INTERRUPT CODE ... 0000       NO INTERRUPT CODE FOUND
         00272 IN PROGRAM ............... LI0100I    AT OFFSET ................ 00000D80
         00272 =========================================================================


Later version of load module AMODE(31), RMODE(ANY) Succeeds No problems.
Original load module, rebinded with options AMODE(31), RMODE(ANY) Fails
Code:
14.29.38 STC53537                     +DFHAC2236 BRTMCICS  421
         421                      09/03/2015 14:29:38 BRTMCICS Transaction AI00 abend APCW in
         421                      LI0100I term MAAA. Updates to local recoverable resources w
         421                      backed out.
         .
         .
         DFHDU0203I 09/03/2015 14:29:38 BRTMCICS A transaction dump was taken for dumpco
         00002129, Program: AI1000C.
         DFHAC2236 09/03/2015 14:29:38 BRTMCICS Transaction AI00 abend APCW in program L
         resources will be backed out.
         02129 09.03.15 14.29.37 ======== TASK ABEND INFO DISPLAY ======================
         02129 CICS TERMINAL ID ......... MAAA       VTAM NODE NAME ........... BRFV501
         02129 TRANSACTION ID ........... AI00       ABEND CODE ............... APCW
         02129 ORIGINAL USER ID ......... ABS
         02129 FAILED RESOURCE .......... LI0100I  AIWA
         02129 =========================================================================
         
         APCW
         Explanation: The program language is defined as COBOL but the level of the compiler under which it was originally compiled cannot be determined. Most
         probably, the program was compiled under an OS/VS COBOL II compiler but the required level of support for that compiler is not present in the system.



The programs are running as 3270-applications under control of one program (AI0000C) and therefore one transaction (AI00), which is in fact regarding this, is the only transaction in the CICS, and in RACF.

This means that we are accessing the module in error, through this interface, and as far as I know through an 'EXEC CICS LINK'. The main module (AI0000C) is a 31-bit program (AMODE = 31, RMODE = ANY - placed). The underlying module in error is LI0100I which is a 24-bit program (AMODE = 24, RMODE = 24).

If the solution is very simple, please for give me. I'm new in CICS...
Thank you for your time! icon_smile.gif

Krisztian

Code'd
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu Mar 12, 2015 6:59 pm    Post subject: Reply to: VS COBOL II in CICS
Reply with quote

According to this, http://www-01.ibm.com/support/knowledgecenter/SSGMCP_5.2.0/com.ibm.cics.ts.whatsnew.doc/regular_topics/hll_outofservice.htm]http://www-01.ibm.com/support/knowledgecenter/SSGMCP_5.2.0/com.ibm.cics.ts.whatsnew.doc/regular_topics/hll_outofservice.html]http://www-01.ibm.com/support/knowledgecenter/SSGMCP_5.2.0/com.ibm.cics.ts.whatsnew.doc/regular_topics/hll_outofservice.htm, pre-LE is not supported in 5.2.

Even if the 31-bit programs don't immediately fail, I don't think it is good to assume that they "work". If they do work, and later fail, you will not be able to get assistance from IBM, because it is not supported.

How this was missed as a pre-requisite for your using 5.2 I don't know.

I think all the COBOL II programs will need to be recompiled under your release of Enterprise COBOL. Try it with the example you have shown.
Back to top
View user's profile Send private message
csomaik

New User


Joined: 28 Nov 2011
Posts: 2
Location: Hungary

PostPosted: Thu Mar 12, 2015 8:26 pm    Post subject:
Reply with quote

Bill,

thank you for your quick answer. We will try to recompile those programs.
Our CICS guy who upgraded the pilot regions, left the company. i'm his successor and enjoying the issues icon_biggrin.gif
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu Mar 12, 2015 9:30 pm    Post subject: Reply to: VS COBOL II in CICS
Reply with quote

Well, I'm 3 1/2 hours from Budapest Airport :-)
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Mar 12, 2015 10:01 pm    Post subject: Reply to: VS COBOL II in CICS
Reply with quote

Are you positive these programs are COBOL2? Could they be OS/VS COBOL, because they were inherently AMODE/RMODE 24?

If they are OS/VS COBOL, there might be some things you would need to cover, such as "TIME-OF-DAY" Special Register, TRANSFORM Verbs (change them to INSPECT), etc....

HTH....
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts CICS NEW SIT PARAMETERS CICS BEHAVIOR... Kyle Carroll CICS 0 Fri Nov 04, 2016 11:55 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us