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 <[email protected]>
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 [email protected] with the message: INFO IBM-MAIN
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
