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
 

 

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: 6966
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 SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Dynamic array request/response contai... Suja.Sai CICS 2 Tue Jan 24, 2017 11:37 am
No new posts CICS transaction slow response time vasanthz All Other Mainframe Topics 3 Thu Jan 19, 2017 1:31 am
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm


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