Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Dynamic program name for CREATE TRANSACTION

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

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Tue Aug 17, 2010 1:45 pm    Post subject: Dynamic program name for CREATE TRANSACTION
Reply with quote

Hi All,

Is it possible to dynamically change the program name when we use the CREATE TRANSACTION statement ?

Suppose say currently I have my base program in Assembler and the program name is available in a variable. We did some testing but could not assign the value in the variable to the program attribute. This is how i have coded.
Code:
PG12001  EQU   *                                                       
         MVC   NEWTRANS,=C'C001'    NEW TRANSACTION                     
         MVC   NEWPROG,=C'CHECK001' NEW PROGRAM                         
*                                                                       
         EXEC CICS CREATE TRANSACTION ( NEWTRANS ),                    -
               ATTRIBUTES ('PROGRAM (NEWPROG)'),                       -
               RESP ( RESPCODE ),                                      -
               RESP2 ( RESPCOD2 )                                       
When I am running the above code and new transaction C001 is created but with a program name NEWPROG instead of CHECK001.
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Tue Aug 17, 2010 2:11 pm    Post subject:
Reply with quote

the manual is a little confusing without the benefit of experiment.
a guess:
the manual mentions Atrributes and literals and strings and values.

have you attempted
ATTRIBUTES ('PROGRAM' (NEWPROG))
instead of
ATTRIBUTES ('PROGRAM (NEWPROG)')

no idea if it will work.
Back to top
View user's profile Send private message
Binop B

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Tue Aug 17, 2010 2:44 pm    Post subject:
Reply with quote

Hi dbz,

Thanks a lot for the response... icon_smile.gif

Quote:
have you attempted
ATTRIBUTES ('PROGRAM' (NEWPROG))
instead of
ATTRIBUTES ('PROGRAM (NEWPROG)')
Hadn't tried before... Tried the statement in a couple of ways and am getting an error messages as below...

CICS Precompiler is going okay but with an error in Assembler compiler..
Code:
*        EXEC CICS CREATE TRANSACTION ( NEWTRANS ),                     
*              ATTRIBUTES ('PROGRAM'( NEWPROG )),                       
*              RESP ( RESPCODE ),                                       
*              RESP2 ( RESPCOD2 )                                       
         DFHECALL =X'3008C00028C000000000000000',(CHA4,NEWTRANS),'PROGR*
               AM'( NEWPROG )                                           
** ASMA088E Unbalanced parentheses in macro call operand - DFHEC/'PROGRAM'(
** ASMA435I Record 221 in CICSTS32.SDFHMAC(DFHECALL) on volume: SYS026     



This error is during the CICS Precompiler ..
Code:
*        EXEC CICS CREATE TRANSACTION ( NEWTRANS ),                     
*              ATTRIBUTES ('PROGRAM'( NEWPROG ),                       
*              RESP ( RESPCODE ),                                       
*              RESP2 ( RESPCOD2 )                                       
         DFHECALL =X'3008C00008C000000000000000',(CHA4,NEWTRANS),'PROGR*
               AM'( NEWPROG )                                           
*DFH7200I E  TOO MANY ARGUMENTS FOR 'ATTRIBUTES'. EXCESS ARGUMENTS     
*            IGNORED.                                                   
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 Create procedure issues -628 when add... chandraBE DB2 1 Mon Sep 18, 2017 12:16 pm
No new posts How do I create a mainframe monitorin... anjali.bisht All Other Mainframe Topics 4 Fri Sep 01, 2017 2:20 pm
No new posts Delete IMS remote transaction when MO... Sam Singh IMS DB/DC 0 Wed Aug 23, 2017 9:12 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
No new posts Need to track the CICS transaction fr... sam8051 CICS 3 Mon Aug 07, 2017 3:11 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us