Joined: 25 Jun 2020
I'm working on a REXX utility that will read a file with list of tables and search for them in production libraries. If they are not present then they will be written in the output file, which will then be used for other processing.
The utility I have coded is working properly, this is the basic logic -
1. Read the input file sequentially ( i.e. list of tables)
2. Using the ISRSUPC - SRCHFOR in library1. Open the output of 'ISRSUPC' and confirm if the table was found. If not the table was not found, then use the ISRUPC to search in library 2.
3. If the table was not found in both the libraries then it is written in the output file.
However, the problem I'm facing is ISPEXEC VIEW DATASET statement. Once the processing of the MACRO is complete - it opens the dataset for the user to view and then the user has to press F3 for it to continue. I want the process to run in the background.
Below is the snippet of code - ISRSUPC execution and then checking the output for SRCHFOR to check if the table was found:
"ALLOC DD(NEWDD) SHR REU DA("PRODPDS")"
"ALLOC DD(OUTDD) SHR REU DA("TESTOUT") SP(50,50) TR MOD
REU RELEASE LRECL(080) BLKSIZE(27920) RECFM(F,B,A)"
"ALLOC DD(SYSIN) SHR REU DA("TABLE1","MEMBERS")"
SUPARM = "SRCHCMP,ANYC"
'SELECT PGM(ISRSUPC) PARM('SUPARM')'
/* CHECKING THE RESULT OF SRCHFOR */
ADDRESS TSO "ISPEXEC VIEW DATASET("TESTOUT") MACRO(CLEANMC2)"
ADDRESS ISPEXEC 'VGET (STRFND) PROFILE'
STRFND = STRIP(STRFND)
Also, I tried running this in batch mode as well, and got the below error
***** Dialog Error ***** - Application(ISP); Function Command (CLEANUP1); Service(VIEW)
Line from cmd: - VIEW DATASET(TEST.OUT.LIST) MACRO(CLEANMC2)
Panel 'ISREDDE3' error - Panel not found.
I have used this view statement multiple times with MACRO, but I have not faced this issue before.
Let me know if you all have any inputs for me.