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
