Searching the web I found a program called TSOCMD which opens a tso edit window from natural bay doing a call to ISPLINK. Can anyone tell me how to open the “ISPF Primary Option Menu” instead?
your assistance is greatly appreciated
chaim handler
iteam
That won’t work, I’m afraid.
You will find a Natural program called TSO in library SYSEXTP, but when you try to invoke
ISPSTART thru this you will receive
ISPI007 ISPF command not allowed. You are already under ISPF
Use the following Natural PGM:
RESET #FUNCTION(A8) #BUFFER-LEN(B4) #BUFFER(A244)
#SERVICE(A8) #REFRESH(A8) #PARM(A10) #BUF1(A20) #BUF2(A1)
#BUF3(A13)
*
FORMAT ZP=OFF SG=OFF LS=80 PS=23 IP=OFF AD=M
*
SET KEY PF3 = PGM
PF15 = PGM
*
IF *DATA GT 0 THEN
DO
INPUT (AD=MIL) #PARM
DOEND
*
#FUNCTION = ‘CONTROL ’
#SERVICE = ‘DISPLAY’
#REFRESH = ‘REFRESH’
*
CALL ‘ISPLINK’ #FUNCTION #SERVICE #REFRESH
*
#FUNCTION = ‘SELECT’
#BUFFER-LEN = 40
#BUF1 = ‘PANEL(ISR@PRIM) OPT(’
#BUF2 = ‘)’
#BUF3 = ’ NEWAPPL(ISR)’
COMPRESS #BUF1 #PARM #BUF2 #BUF3
INTO #BUFFER
CALL ‘ISPLINK’ #FUNCTION #BUFFER-LEN #BUFFER
*
SET CONTROL ‘R’
*
END