Is not PROF for TSO, not Netview? The 878 abend is occurring in Netview.
You can just use Netview to automate the starting of a procedure to run
directly under TSO.
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
ITschak Mugzach
Sent: Wednesday, May 20, 2020 8:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX assistance
It's simple. use "PROF VARSTORAGE(HIGH)" to direct EXECIO and other getmains
above the line.
ITschak
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring for
z/OS, x/Linux & IBM I **| z/VM comming son *
On Wed, May 20, 2020 at 2:46 PM Dave Jousma <
000001a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
> All,
>
> We have some relatively new Netview automation to process inbound FTP
> processing that is written in REXX, and over time we’ve seen Netview abends
> with 878’s, etc. IBM indicates we may have a problem below the line,
> specifically SP0 being exhausted. They are seeing a lot junk that looks
> like workpack volser’s PCWxxxx, temp dataset names, etc. It is my belief
> that it is the remnants of calling IDCAMS to do our FTP processing to
> create special dataset catalog entries amongst other stuff and cleanup
> is not occurring that over time causes our problems.
>
> Here is the bit of rexx code I am looking at. Look at how IDCAMS is
> being called in line 318. I’m not a REXX coding expert by any means.
> Is that the equivalent of just a standard CALL? Or like entering TSO
> IDCAMS at a command line in TSO? I’m wondering if there is a better way to
> call
> IDCAMS? I see references to LINK, ATTACH, LINKMVS, ATTCHMVS, LINKPGM,
> ATTCHPGM. I’m embarrassed to say that I do not know the nuances of each of
> these, and when appropriate to use. Do any of these create a new
> environment, do the function, and then tear the environment down upon
> exit? It seems like this is what we need to use to fix this issue.
>
> 000308 /*
> */
> 000309 /* We have now created all the IDCAMS statements, we now write
> them*/
> 000310 /* to our dataset to be used as SYSIN for IDCAMS command */
> 000311 /*
> */
> 000312 Say "Number of Queued Lines is " QueuedLines
>
> 000313 Address MVS 'EXECIO 'QueuedLines' DISKW 'Infile' (FINIS'
>
> 000314 /*
> */
> 000315 /* The IDCAMS statement calls IDCAMS using the 2 DD names
> listed */
> 000316 /* after the command as SYSIN and SYSPRINT */
> 000317 /*
> */
> 000318 IDCAMS Infile Outfile
>
> 000319 Say "IDCAMS RC for File Rename = " RC
>
> 000320 If RC > 4 Then
>
> 000321 Do
>
> 000322 Address MVS 'EXECIO * DISKR 'Outfile' (STEM Prtrex.
> FINIS'
> 000323 do xy = 1 to Prtrex.0
>
> 000324 Say "Idcams output = " Prtrex.xy
>
> 000325 end
>
> 000326 end
>
> 000327 "free fi("Infile")"
>
> 000328 "free fi("Outfile")"
>
> 000329
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
________________________________
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send it
to you, do not disseminate, copy or otherwise use this e-mail or its
attachments. Please notify the sender immediately by reply e-mail and delete
the e-mail from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
