View previous topic :: View next topic
|
Author |
Message |
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Hi all -
ISPF services can be very useful for some requirements. For example - manipulating members and datasets, displaying panels, interfacing with ISPF tables, generating jobs with skeletons etc.
Here is an example of how to invoke ISPF services directly from within NATURAL. This example uses the ISPLINK interface (as opposed to ISPEXEC interface). Pay attention that you can build your parameters list as constants or as a group of variable. In my example you'll see both types (the CONTROL services are constants; the VIEW service is a group of variables).
For a list of all ISPF services, see the manual: ISPF Services Guide. The ISPLINK interface is well documented in section 1.3.3 of the same manual.
Code: |
DEFINE DATA LOCAL
1 #ISPLINK-VIEW
2 #ISPF-SERV (A008)
2 #ISPF-DATASET (A056)
2 #ISPF-VOLUME (A006)
2 #ISPF-PASSWORD (A008)
2 #ISPF-PANEL (A008)
2 #ISPF-MACRO (A008)
2 #ISPF-PROFILE (A008)
2 #ISPF-DATAID (A008)
2 #ISPF-MEMBER (A008)
2 #ISPF-FORMAT (A008)
2 #ISPF-MIXED (A003)
2 #ISPF-CONFIRM (A003)
2 #ISPF-WSFN (A008)
2 #ISPF-WS (A003)
2 #ISPF-CHGWARN (A003)
2 #ISPF-PARM (A008)
1 #RET (I004)
END-DEFINE
*
IF *TPSYS NE 'TSO'
STOP
END-IF
*
#ISPF-SERV := 'VIEW '
#ISPF-DATASET := "'OFERF.A.REXX(TEMP)'"
*
CALL 'ISPLINK' 'CONTROL ' 'DISPLAY ' 'REFRESH
CALL 'ISPLINK' 'CONTROL ' 'ERRORS ' 'RETURN
*
CALL 'ISPLINK' #ISPLINK-VIEW
#RET := RET('ISPLINK')
WRITE 'RET FROM VIEW ' #RET
*
CALL 'ISPLINK' 'CONTROL ' 'DISPLAY ' 'REFRESH
*
END |
O. |
|
Back to top |
|
|
Smin
New User
Joined: 11 Aug 2005 Posts: 7 Location: China
|
|
|
|
can u explain more detail, i'm a rookie
thx |
|
Back to top |
|
|
monasu1998
Active User
Joined: 23 Dec 2005 Posts: 176 Location: India
|
|
|
|
What if we are using CICS TP System???? |
|
Back to top |
|
|
|