|
View previous topic :: View next topic
|
| Author |
Message |
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| PL/1 or assembler? |
|
| Back to top |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
| Back to top |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
Thanks for your reply.
I already above link but I can't have to way get to 'time field' in program. |
|
| Back to top |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
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. 
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 |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
| Back to top |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006
Posts: 29
Location: Korea
|
|
|
|
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 |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
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....  |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
| Quote: |
| I have a solution better than use STCKCONV macro. |
don' t play the smart *** with us please 
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 |
|
|
|
|
