IBM MAINFRAME HELP & SUPPORT FORUMS

ofer71 · Joined: 27 Dec 2005 Posts: 1959 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.

Smin · Joined: 11 Aug 2005 Posts: 7 Location: China

can u explain more detail, i'm a rookie
thx

monasu1998 · Joined: 23 Dec 2005 Posts: 96 Location: Hyderabad

What if we are using CICS TP System????