I’m not sure what those macros generate but I’m sure you got it right > On Oct 12, 2023, at 12:36 PM, Seymour J Metz <sme...@gmu.edu> wrote: > > You retrieve the CB storage from IPCS, use SUBSTR to extract the fields you > want, use c2x() to make binary data human readable and use standard REXX > abutment and concatenation to format the data with labels. > > ________________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of > Joseph Reichman <reichman...@gmail.com> > Sent: Thursday, October 12, 2023 7:45 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: IPCS and Rexx > > Seymour I looked thru the manuals to create an actual control block or > structure think you need assembler just give me a hint how I would go abou > this task In Rexx > > Get Outlook for iOS<https://aka.ms/o0ukef> > ________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of > Seymour J Metz <sme...@gmu.edu> > Sent: Thursday, October 12, 2023 7:40:18 AM > To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: IPCS and Rexx > > 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 > > ---------------------------------------------------------------------- > 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
