IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

I want to have picture mode number for TOD format.


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Wed Mar 21, 2012 11:29 am
Reply with quote

I working SMF read and report programming.

I want to have picture mode format for TOD format 4 bin length data
in SMF type 78.

Please let me know that.

Thanks,
Mansik.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Mar 21, 2012 12:53 pm
Reply with quote

PL/1 or assembler?
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Mar 22, 2012 9:55 am
Reply with quote

I don't care PL/1 or Assembler.

I working program with Assembler and REXX.

Just want to know TOD(time of day) format binary 4 length.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Mar 22, 2012 10:03 am
Reply with quote

IBM Manual :
MVS System Management Facilities

Chapter 13. SMF Records

Record Type 78 (4E) — RMF Virtual Storage and I/O Queuing Activity
36 24 SMF78DCS 4 binary
Offset to virtual storage common storage data section.

Virtual Storage Common Storage Data Section
184 B8 R782CSAU 40 Mixed(1)
CSA usage both above and below 16 megabytes.

Table 13-3. Byte structure for data collected below 16 megabytes - Mixed(1)
4 4 VSDBNTME 4 binary
Time stamp for minimum. Format is high-order bytes of time-of-day (TOD) clock.

I want to mean 'high-order bytes of time-of-day (TOD) clock.

Thanks,
Mansik.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Mar 22, 2012 10:52 am
Reply with quote

And why dont you just use : Transaction Analysis Workbench ?

publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=%2Fcom.ibm.imstools.fuw.doc.ug%2Ffuwuref_batch_report_smf_78_2.htm
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Mar 22, 2012 11:26 am
Reply with quote

Thanks for your reply.

I already above link but I can't have to way get to 'time field' in program.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Mar 22, 2012 12:03 pm
Reply with quote

How can I handle 4 byte data in time stamp field?

This data format defferent from SMF write time field, I think.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Mar 22, 2012 1:55 pm
Reply with quote

STCKCONV — Store clock conversion routine

publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.ieaa900%2Fiea2a9b01101.htm
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Thu Mar 22, 2012 11:12 pm
Reply with quote

Mansik,

Peter's suggestion to use the z/OS STCKCONV Assembler Macro is probably the best choice you have. It's much simpler than doing it yourself. icon_wink.gif

I've used it many times before and it's easy to use. Just follow the usage instructions in the Link which Peter provided.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Fri Mar 23, 2012 11:34 am
Reply with quote

Dear Mr. Bill,

I don't understand you yet.

I want to just that mean 4 byte bin data format.
ex) x'hhmmssth' or hundreth soconds from mid night.

Please let me have a sample code.

Tnanks,
Mansik.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Fri Mar 23, 2012 12:56 pm
Reply with quote

You said you didn't care if it was PL/1 or Assembler, and you have been pointed to an Assembler macro by Peter, and Mr Bill, who knows a very great deal about these things, thinks it is your best shot.

Quote:
Just follow the usage instructions in the Link which Peter provided.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 23, 2012 1:07 pm
Reply with quote

Look at how to obtain the TOD and the return values here :

publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.ieaa600%2Fiea2a6a0224.htm

And for extensive info read the "Principles of Operation".

Since you dont know sh.t about what you want like Mr. Woodger pointedly
commented I for now will not put any more effort in this topic.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Mar 29, 2012 6:32 pm
Reply with quote

Hi All,

I have a solution better than use STCKCONV macro.

I use IPCS BLSUXTOD service in REXX and have timestamp.

Arg TUNITS
TUNITS = X2c(TUNITS)
TIMESTAMP = Copies(0,26) /* force result length=26 */
Address linkpgm "BLSUXTOD TUNITS TIMESTAMP"
Say TIMESTAMP

Examples:
9DD86997FE000000 --> 12/30/1987 09:49:21.046528
B72F6997FE000000 --> 02/13/2002 22:30:06.632960

Thanks,
Mansik.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Thu Mar 29, 2012 7:15 pm
Reply with quote

Glad you resolved this. At least now, based upon your examples, we now have a better idea of the results that you needed and expected, because many really didn't understand your posting.... icon_confused.gif
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Mar 29, 2012 7:26 pm
Reply with quote

Yes. We kind of relied upon the "PL/1 or Assembler" response you gave to the first question... I think DFSORT has some simple ways to deal with this, as well, but we didn't know other solutions were acceptable to you.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Mar 29, 2012 8:22 pm
Reply with quote

Quote:
I have a solution better than use STCKCONV macro.


don' t play the smart *** with us please icon_cool.gif

the quality of the answers depends on the quality/clarity of the question

so since You asked a way to convert the TOD timestamp using PL/I or assembler
You got what You asked for.

if You are not satisfied with the quality of the answers You get for free on our time
You can, without any regret on our side, ask somewhere else or hire a paid consultant.

NUFF SAID!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts HILITE on Browse mode? TSO/ISPF 2
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
Search our Forums:

Back to Top