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
 

 

CICS Startup time

 
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: Sat Jul 17, 2010 5:40 pm    Post subject: CICS Startup time
Reply with quote

Hi All,

Is is possible to get the time at which the current CICS session has started.

My requirement is to get the total no. of seconds from the startup to present time ... am able to see the option of STARTUPDATE in the INQUIRE SYSTEM command... would like something similiar but in unit of time ... icon_razz.gif
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7936
Location: Bellevue, IA

PostPosted: Sat Jul 17, 2010 6:04 pm    Post subject:
Reply with quote

I cannot think of any way to retrieve this data. Nor can I think of any possible use for such a data field. For example, a region that has been up for 10 days straight would have a value of 864,000 seconds in such a time field -- so why do you think you need such a value?
Back to top
View user's profile Send private message
Binop B

Active User


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

PostPosted: Sat Jul 17, 2010 6:43 pm    Post subject:
Reply with quote

Thanks Robert,

Quote:
so why do you think you need such a value?
Its coz we are migrating from the current system (ALCS-Airline Contrl System) to CICS system. In ALCS this functionality is available so was looking into the feasiblity of implementing the same in CICS...

And also the value is stored in a fullword (in binary format)... so hoping 10 days or more should not be a problem...
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: Sat Jul 17, 2010 7:21 pm    Post subject: Reply to: CICS Startup time
Reply with quote

Binop,

Review the DFHCSA DSECT for label CSASITOD, which according to the documentation is defined as "SYSTEM INITIALIZATION TIME OF DAY IN BINARY SECONDS".

Here's a link to the CICS/TS 3.2 Bookshelf and then click on "CICS Data Areas" and search for CSA -

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/DFHASJ00

Click below for a program which establishes addressability to the CSA, because the API was dropped after CICS/MVS 2.1.2 (HLL) and CICS/ESA 3.1.1 (Assembler), which can be used as a template.

http://www.ibmmainframes.com/viewtopic.php?p=226585&highlight=#226585

Bill
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: Sun Jul 18, 2010 8:15 pm    Post subject: Reply to: CICS Startup time
Reply with quote

Actually, you can combine obtaining the startup-date and startup-time into a single sub-program, moving both CSA data-fields to their respective commarea data-fields -

Code:

COMMSTDT DS      PL4                     STARTUP-DATE (JULIAN)
COMMSTTM DS      XL4                     STARTUP-TIME (UNALIGNED-FWORD)
*
         DFHAFCD TYPE=LOCATE             GET AFCB-ADDRESSABILITY
         L       R15,AFCSA-DFHAFCB(,R15) POINT TO THE CSA
         MVC     COMMSTDT,CSASTYDP-DFHCSADS(R15) 
         AP      COMMSTDT,=P'1900000'    CENTURY-ADJUSTMENT
         MVC     COMMSTTM,CSASITOD-DFHCSADS(R15)

Bill
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: Tue Jul 20, 2010 1:56 am    Post subject: Reply to: CICS Startup time
Reply with quote

Binop,

A small adjustment to the previous code -

Code:

         DFHAFCD TYPE=LOCATE             GET AFCB-ADDRESSABILITY
         L       R15,AFCSA-DFHAFCB(,R15) POINT TO THE CSA
         MVC     COMMSTTM,CSASITOD-DFHCSADS(R15)
         L       R15,CSAOPFLA-DFHCSADS(,R15)
         MVC     COMMSTDT,CSASTYDP-CSAOPFL(R15) 
         AP      COMMSTDT,=P'1900000'    CENTURY-ADJUSTMENT

Label CSASTYDP is defined as part of the CSAOPFL (Optional Features List) DSECT. R15 has to be loaded with the Optional Features address CSAOPFLA to establish addressability, after populating the commarea COMMSTTM binary-fullword. In the CSAOPFL DSECT, CSASTYDP is defined as an unaligned address ("A" directive icon_question.gif ), but it's definitely a PL4 Julian-Date.

Apologies for the oversight....

Bill
Back to top
View user's profile Send private message
Binop B

Active User


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

PostPosted: Mon Aug 09, 2010 12:24 pm    Post subject:
Reply with quote

Hi All,

This is what we have done to calculate the no. of seconds since Startup.. When the CICS startup, we will update a CWA field with the Startup time... This field will then be used accordingly whenever required...

Sorry for not posting the solution before... icon_redface.gif
Back to top
View user's profile Send private message
parsesource

New User


Joined: 06 Feb 2006
Posts: 97

PostPosted: Sat Aug 14, 2010 7:21 pm    Post subject: Reply to: CICS Startup time
Reply with quote

write a plt program, which does an ASKTIME and writes the data to CWA. a few lines of code.... however if you care about the few seconds difference between cics step-initiation PGM=DFHSIP up to executing this plt program you need another solution.
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 CICS to Webservices safexc CICS 1 Sun Jan 22, 2017 5:49 pm
This topic is locked: you cannot edit posts or make replies. Full Time COBOL Software Development ... shally Mainframe Jobs 0 Fri Jan 20, 2017 5:24 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 DD DUMMY & CPU TIME Nileshkul Testing & Performance analysis 16 Mon Dec 19, 2016 11:35 pm
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm


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