Jag Badal
New User
Joined: 25 Jun 2020
Posts: 6
Location: UK
|
|
|
|
Hello,
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:
| Code: |
ADDRESS ISPEXEC
ADDRESS TSO
"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"
ADDRESS ISPEXEC
'SELECT PGM(ISRSUPC) PARM('SUPARM')'
ADDRESS ISPEXEC
ADDRESS TSO
"FREE FI(NEWDD)"
"FREE FI(OUTDD)"
"FREE FI(SYSIN)"
/* 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. |
|
