|
View previous topic :: View next topic
|
| Author |
Message |
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
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... 
O. |
|
| Back to top |
|
 |
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
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 |
|
|
Madhanlal
Currently Banned
New User
Joined: 21 Apr 2007
Posts: 23
Location: Chennai
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Assuming you are working under TSO & ISPF, the SDSF panel library (which contains ISFPCU41) should be concatenated to ISPPLIB.
O. |
|
| Back to top |
|
|
silentarya
New User
Joined: 11 Mar 2007
Posts: 35
Location: Chennai
|
|
|
|
I am getting the msg
TSO COMMAND IS ONLY USEABLE UNDER TSO NATURAL.
How can we assign something to *TPSYS? |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
*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 |
|
|
silentarya
New User
Joined: 11 Mar 2007
Posts: 35
Location: Chennai
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
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...
O. |
|
| Back to top |
|
|
|
|
