The example that I sent - IS - doing a RUNCHAIN. It is following the SSCT
chain extracting information.
All you need to do is do something similar with your control blocks, just
using
ADDRESS IPCS "NOTE 'text'"
for the control block information that you want in the IPCS report.
Most of my IPCS EXECs have the subroutine
DOASAY: PROCEDURE EXPOSE DEBUGFLAG
ARG TEXT
NOTE "'"TEXT"'"
IF DEBUGFLAG = "DEBUG" THEN
SAY TEXT
RETURN
so I can
CALL DOASAY string-expression
On Wed, 11 Oct 2023 03:58:49 -0400 Joseph Reichman <reichman...@gmail.com>
wrote:
:>Thanks
:>
:>That was very helpful back to my first beef
:>
:>The EVAL
.. subcommands particular to Rexx clist are interspersed among those
IPCS subcommands done by hand
:>
:>The reason I think I cannt get around verbx assembler exit is because I want
to create a structure to be used in the run chain command and I think that
necessitates the use of the BLSQS assembler macros
:>
:>> On Oct 11, 2023, at 2:18 AM, Binyamin Dissen <bdis...@dissensoftware.com>
wrote:
:>>
:>> ?I am still mystified why you want to use CBF out of REXX code.
:>>
:>> Use EVAL to get the storage. I would think that it would be much easier to
:>> manipulate the control block itself rather than parse the CBF output.
:>>
:>> Here is a REXX program to show the subsystem control blocks.
:>>
:>> /* REXX */
:>> ARG REQNAME
:>> ADDRESS IPCS
:>> SSNAME = "AAAA"
:>> POINTER = "BBBB"
:>> SSCTADDR = "CCCC"
:>> "EVAL 10.?+128?+18 REXX(STORAGE(SSCTADDR))"
:>> DO WHILE SSCTADDR ¬= "00000000" & RC = 0
:>> "EVAL" SSCTADDR"+8 REXX(STORAGE(SSNAME))"
:>> "EVAL" SSCTADDR"+4 REXX(STORAGE(POINTER))"
:>> IF REQNAME = "" THEN
:>> SAY "SSCT AT ADDRESS" SSCTADDR "NAME" X2C(SSNAME),
:>> "NEXT" POINTER
:>> ELSE
:>> IF REQNAME = X2C(SSNAME) THEN DO
:>> "EQUATE SSCT"REQNAME SSCTADDR"."
:>> SAY "SSCT"REQNAME "SET TO" SSCTADDR
:>> RETURN 0
:>> END
:>> SSCTADDR = POINTER
:>> END
:>> IF REQNAME <> "" THEN
:>> SAY "SUBSYSTEM" REQNAME "NOT FOUND"
:>> RETURN 0
:>>
:>> On Tue, 10 Oct 2023 21:02:53 -0400 Joseph Reichman <reichman...@gmail.com>
:>> wrote:
:>>
:>> :>Hi
:>> :>
:>> :>I am posting this message here and at the TSO/REXX LISTSERV not sure which
:>> :>is more appropriate.
:>> :>
:>> :>Would anyone know where the documentation is for IPCS and REXX
:>> :>
:>> :>Are all the valid commands that are on ISPF PANEL BLSPDSLE if so is the
:>> :>command/subcommand in Rexx documented any where
:>> :>
:>> :>I mean formatting a control block doesn't seem like it can be done in Rexx
:>> :>because it requires the BLSQMDEF BLSQMFLD and BLSQSHDR so I guess that has
:>> :>to be Assembler
:>> :>
:>> :>Anu information or telling me where the doc is would help
:>> :>
:>> :>thanks
:>> :>
:>> :>
:>> :>----------------------------------------------------------------------
:>> :>For IBM-MAIN subscribe / signoff / archive access instructions,
:>> :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
:>>
:>> --
:>> Binyamin Dissen <bdis...@dissensoftware.com>
:>> http://www.dissensoftware.com
:>>
:>> Director, Dissen Software, Bar & Grill - Israel
:>>
:>> ----------------------------------------------------------------------
:>> 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
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
