IBM Mainframe Forum

Trying to figure out how to gather data from an ISPEXEC VIEW session initiated from within a REXX, code to initiate the VIEW (user inputs TYPE, LIBRARY and MEMBER) :

"ISPEXEC VIEW DATASET('"VALUE(TYPE"."LIBRARY)"("MEMBER")')"

when in the VIEW session, I need to obtain various data...i.e. ZTITLE, data in current line (after issuing a FIND command to locate specific data string)

example of a portion of the VIEW session screen after the FIND issued (FIND 'STEP03') :

File Edit Edit_Settings Menu Utilities Compilers Test Help
------------------------------------------------------------------------------
VIEW CCP.BASE.PROCLIB(C@D0039) - 01.33 CHARS 'STEP03' found
Command ===> Scroll ===> PAGE
000051 // INCLUDE MEMBER=($SYSOUT)
000052 //STEP03 EXEC PGM=SORT,COND=(0,LT)
000053 //********************************************************************
000054 //*** SORT ***
000055 //********************************************************************
000056 //SORTIN DD DSN=&HLQ3.D0039.&RGN.QTEMP.TRAN&BR0,DISP=&D1
000057 //SORTOUT DD DSN=&HLQ3.D0039.&RGN.QTEMP.WORK(+1),DISP=&D3,

Thanks in advance !!

You have to invoke the view session with a macro that saves (VPUT) whatever needs to be passed back in the shared pool.

Could you provide me an example of using the VPUT with the ISPEXEC command I supplied ?...for example to obtain the ZTITLE in a variable

You might want to have a look at editclip, a REXX exec which invokes itself as a macro to do some processing.

Not too helpful...I'm new to using ISPF within REXX

To pull data from within a VIEW (and EDIT) session, i think the only way is to use the ZSCREENI variable to capture the screen image.

Sample REXX driver:


Sample panel )PROC section:

Just realized that you have to write a new edit panel or modify an existing one. Here is the entire panel I used for the test:

Thanks...but not looking to use the Screen Image...looking to grab the ZTITLE ("CCP.BASE.PROCLIB(C@D0039) - 01.33" in my screen example) and grab row of data from the file after FIND issued (issued "FIND STEP03" which I can address via LINE_AFTER .ZCSR) but I haven't been able to grab ZTITLE or ZCSR while in the VIEW session

Not too helpful...I'm new to using ISPF within REXX

This is likely beyond your skill level.

It is non-trivial because you want to invoke view AND also intercept your find command. My suggestion involves three separate rexx programs:

1. In your current rexx program, invoke view and specify the name of the initial editor macro.


2. The editor macro is a separate rexx program that you supply. In this rexx program (named MYMACRO in this example), use Address ISREDIT to set an alias for 'F', so that when you issue the FIND, it runs a third rexx program. I am unsure of the syntax, but something like this:


3. The third rexx program (named MYFIND01 in this example) will:
a. take any supplied parameters.
b. Address ISREDIT BUILTIN "FIND" inparms
c. Use the return code to determine if the FIND was successful.
d. Address ISREDIT LINE (mydata) = LINE .zcsr /* to get data from line */
Use VPUT to save any data that you want to save.

Your requirement was not clear. If it is always the same FIND command, you can do it from within the MYMACRO program instead of needing the third rexx program.