While it is admittedly easier using the macros, it can be done in pure REXX, although I wouldn't bother.
________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Joseph Reichman <reichman...@gmail.com> Sent: Thursday, October 12, 2023 7:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IPCS and Rexx I understand my only question is to get it clear to CREATE a structure aka control block this can only be done using the BLSQ assembler macros I agree any other processing I need to do I’ll do it in Rexx Thank you > On Oct 12, 2023, at 5:03 AM, Binyamin Dissen <bdis...@dissensoftware.com> > wrote: > > 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://secure-web.cisco.com/1IRjTkmdTyXkTVFuDlBW_hSz_mjbr6p-G7qUoJWiLxPJsBQp1N2J5q51hJw0_dTOMuhVNCbqB0dv6qIO_HdTjPyfDPHGye2OrANiKvaDynGNTgaEnfWet-3EcOIc7fXcSZGUtqfHqnfykrjH6PjhJy6Q78E0UsLHMPMnC2x51bIDBA7V-kOdDDsW8biT56t9Co_hA-abym8jSxGTXurBPNnBXXbynILevlboZxO6Wjh_N-_T4WwEu-cnMTd7S-z2MooXqwYZYPogtprDUuDXOIiocPfivdE36UEy3QIQRgZuOp4gF51A7zrx0q01fPLnqrZK28Qa0tJv38f36BO-EmUNaT8cK2R2yL8SDhzJQmDEl0Eqlp92RMzelD9S5JY09gqcguwM8JwBoOc2QtH7pBQVnCsq9KAJvZHOF5vZtLOo/http%3A%2F%2Fwww.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://secure-web.cisco.com/1IRjTkmdTyXkTVFuDlBW_hSz_mjbr6p-G7qUoJWiLxPJsBQp1N2J5q51hJw0_dTOMuhVNCbqB0dv6qIO_HdTjPyfDPHGye2OrANiKvaDynGNTgaEnfWet-3EcOIc7fXcSZGUtqfHqnfykrjH6PjhJy6Q78E0UsLHMPMnC2x51bIDBA7V-kOdDDsW8biT56t9Co_hA-abym8jSxGTXurBPNnBXXbynILevlboZxO6Wjh_N-_T4WwEu-cnMTd7S-z2MooXqwYZYPogtprDUuDXOIiocPfivdE36UEy3QIQRgZuOp4gF51A7zrx0q01fPLnqrZK28Qa0tJv38f36BO-EmUNaT8cK2R2yL8SDhzJQmDEl0Eqlp92RMzelD9S5JY09gqcguwM8JwBoOc2QtH7pBQVnCsq9KAJvZHOF5vZtLOo/http%3A%2F%2Fwww.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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN