Scott, ISPLINK LM Services works very well for what I've needed, the service is there, no need to reinvent the wheel - plus I'm lazy sometime :) assembler
START DS 0H XC WORKTOKE(64),WORKTOKE CLEAN OUT WORK TOKEN * /* LOGIC: GET OUR VARIABLES FROM ISPF. */ CALL ISPLINK, DISPLAY PANEL 1 (DISPLAY,ISPFPAN1,BLANK),VL LTR R15,R15 BNZ END Cobol 1 PROCEDURE DIVISION. 2 MOVE ZERO TO RETURN-CODE. 3 BEGIN. 4 CALL 'ISPLINK' USING SELCMD, 5 CMD, 6 CMDNAME. 7 IF RETURN-CODE NOT = 0 8 THEN 9 CALL 'ISPLINK' USING SETMSG, 0 EDIF014. 1 STOP RUN. for example Carmen Vitullo ----- Original Message ----- From: "scott Ford" <idfli...@gmail.com> To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, January 16, 2019 11:49:42 AM Subject: Re: Is there a C or LE service to retrieve ISPF statistics? Carmen, How you did we did but in Rexx for part of our CI/Deploy process internally. Scott On Wed, Jan 16, 2019 at 11:50 AM Tom Marchant < 0000000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > On Wed, 16 Jan 2019 06:54:29 -0800, Charles Mills wrote: > > >Also, what Kirk says. The above involves writing and maintaining a module > and double OPENs. > > When you open a PDS member, you are opening a sequential data set that > happens to be contained in a PDS member. > > >You ought, as Kirk says, be able just to do an fopen() followed by > meminfo() and get the member info or a return code that says "sorry > Charlie, not a PDS member." > > Maybe so, but someone has to open the PDS to get that information. > > -- > Tom Marchant > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- 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
