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 <[email protected]> > 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 <[email protected]> > 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 <[email protected]> > 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 <[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 > :> > :>---------------------------------------------------------------------- > :>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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
