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
 

 

Natural tip: Going to SDSF and back from Natural

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Feb 12, 2009 1:12 pm    Post subject: Natural tip: Going to SDSF and back from Natural
Reply with quote

Sometimes, when you work under Natural, you want to look at your SDSF screens.

Instead of logging off from Natural, the following program will do the trick:
Code:
DEFINE DATA LOCAL                                           
01 #LENGTH (I4)                                   
END-DEFINE                                                 
*                                                           
IF *TPSYS = 'TSO'                                           
  CALL 'ISPLINK' 'CONTROL ' 'DISPLAY ' 'REFRESH  '         
*                                                           
  #LENGTH := 20                                             
  CALL 'ISPLINK' 'SELECT  ' #LENGTH "PGM(ISFISP) PARM(ST)" 
*                                                           
  CALL 'ISPLINK' 'CONTROL ' 'DISPLAY ' 'REFRESH  '         
ELSE                                                       
  SET CONTROL 'T=3279'                                     
  WRITE NOTITLE NOHDR                                       
    'TSO CoMmanD is only useable under TSO NATURAL' (V)     
END-IF                                                     
END                                                         


Enjoy... icon_biggrin.gif

O.
Back to top
View user's profile Send private message

monasu1998

Active User


Joined: 23 Dec 2005
Posts: 176
Location: India

PostPosted: Sat Feb 21, 2009 9:00 am    Post subject: Re: Natural tip: Going to SDSF and back from Natural
Reply with quote

Ofer,

I will try this on Monday, I can not hold back my eagerness to try out this new trick..

Thanks for posting the tips.
Back to top
View user's profile Send private message
Madhanlal
Currently Banned

New User


Joined: 21 Apr 2007
Posts: 23
Location: Chennai

PostPosted: Mon Feb 23, 2009 10:57 am    Post subject:
Reply with quote

Hi Ofer

It was very informative.

I tried executing that code.

I got the following error:

ISPP100

Panel 'ISFPCU41' error
Panel not found.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Mon Feb 23, 2009 3:50 pm    Post subject:
Reply with quote

Assuming you are working under TSO & ISPF, the SDSF panel library (which contains ISFPCU41) should be concatenated to ISPPLIB.

O.
Back to top
View user's profile Send private message
silentarya

New User


Joined: 11 Mar 2007
Posts: 35
Location: Chennai

PostPosted: Mon Mar 30, 2009 7:09 pm    Post subject: Reply to: Natural tip: Going to SDSF and back from Natural
Reply with quote

I am getting the msg
TSO COMMAND IS ONLY USEABLE UNDER TSO NATURAL.
How can we assign something to *TPSYS?
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Mon Mar 30, 2009 11:44 pm    Post subject:
Reply with quote

*TPSYS is un-updatable system varibale. This variable is filled by Natural when you enter the Natural Nucleus. Natural simply puts there the current TP monitor (CICS/TSO/BATCH/COM-PLETE/etc.).

You have to work under TSO in order to invoke the TSO command.

What is your current setting?

O.
Back to top
View user's profile Send private message
silentarya

New User


Joined: 11 Mar 2007
Posts: 35
Location: Chennai

PostPosted: Wed Apr 01, 2009 9:33 pm    Post subject: Reply to: Natural tip: Going to SDSF and back from Natural
Reply with quote

My current value for *TPSYS is CICS.
Normally we execurte natural codes from the CICS region.
Is there also a way wherein we run the natural codes from TSO region?
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Apr 01, 2009 10:10 pm    Post subject:
Reply with quote

Natural can be edited/run from within all supported TP monitors (their list is in the fine manual). TSO is supported. In many places, Natural under TSO is the major Natural development environment, whereas CICS/Batch are for production.

There are many advantages for developing/running Natural under TSO, but this is an issue for another topic... icon_biggrin.gif

O.
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 -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Natural ADABAS Opening with CTS enikhilk Mainframe Jobs 0 Wed Nov 30, 2016 5:37 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm
No new posts Natural/Adabas - Migration/Replatform Virendra Shambharkar Java & MQSeries 5 Tue Apr 05, 2016 2:37 pm


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