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

Extracting TIOT & TSO


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

New User


Joined: 01 Mar 2006
Posts: 37
Location: Sussex-UK

PostPosted: Thu May 28, 2009 8:07 pm
Reply with quote

Hi,

I have got following code in one of our program

Code:

* GET JOBNAME FROM TIOT AND TEST FOR TSO                     
         EXTRACT MEXTRACT,,FIELDS=(TIOT,TSO)                 
         LM    R2,R3,MEXTRACT                                 
         TM    0(R3),X'80'         TEST FOR TSO               
         BNO   *+8                                           
         MVI   MTEST,X'FF'         SHOW PROGRAM BEING TESTED
         MVC   MJOBN,0(R2)         STORE JOBNAME FROM TIOT   



I understand that TIOT will give Jobname info. Can somebody tell me what kind of information is returned by TSO option in FIELDS parameter above.

Also can you direct me to any reading material which will explain about different options used in FIELDS parameter and corresponding information returned.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu May 28, 2009 8:12 pm
Reply with quote

Look up the EXTRACT macro in the z/OS Authorized Assembler Services Reference manual for your version of z/OS. That will send you to the other manuals you need to review.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu May 28, 2009 8:13 pm
Reply with quote

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A281/CCONTENTS?SHELF=IEA2BK81&DN=SA22-7610-14&DT=20080125032027

part of the MVS bookshelf which contains the manuals dealing with macros

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/IEA2BK81
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 May 28, 2009 8:47 pm
Reply with quote

Perhaps the following will help -

www.ibmmainframes.com/viewtopic.php?p=167434&highlight=#167434

Regards,
Back to top
View user's profile Send private message
yogeshpawar

New User


Joined: 01 Mar 2006
Posts: 37
Location: Sussex-UK

PostPosted: Thu May 28, 2009 10:05 pm
Reply with quote

Hi Bill,

I already had a look at that post and understood about TIOT. Now I want to know what kind of information is returned by TSO option in FIELDS.

Does this tell about whether your job is running on Test or Production system?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu May 28, 2009 10:51 pm
Reply with quote

How would a macro know which system it is being assembled on? If the system returned is SYS1, is that a test or production name?
Back to top
View user's profile Send private message
yogeshpawar

New User


Joined: 01 Mar 2006
Posts: 37
Location: Sussex-UK

PostPosted: Sun May 31, 2009 7:08 pm
Reply with quote

Hi Enricho,

I got the information about EXTRACT macro in the link you have provided but there was no detailed explaination about parameters passed to this.

For eg. When we give TIOT option we get information about Jobname, etc. In the same way I am trying to understand what kind of information is returned when we give TSO option in FIELDS.

Also, the other links provided points o the first link for detailed explaination of EXTRACT but couldn't find much info around the different parameters passed.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Jun 01, 2009 5:09 pm
Reply with quote

starting from 13.0, proceeding to 13.1
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A281/13.1?SHELF=IEA2BK81&DT=20080125032027&CASE=


You get a pointer
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A881/CCONTENTS?DT=20080120225118
Back to top
View user's profile Send private message
yogeshpawar

New User


Joined: 01 Mar 2006
Posts: 37
Location: Sussex-UK

PostPosted: Fri Jul 17, 2009 9:44 pm
Reply with quote

Thanks Enrico. Have found what I needed.
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 Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Help in extracting data between doubl... DFSORT/ICETOOL 5
No new posts Extracting Compression Statistics fro... PL/I & Assembler 2
No new posts UUID4 - extracting time element COBOL Programming 1
No new posts Issues with outrec overlay while extr... SYNCSORT 7
Search our Forums:

Back to Top