I found this thread from 1998 which references a 1996 thread: http://www.listserv.uga.edu/cgi-bin/wa?A2=ind9806&L=rexxlist&P=5824
With the following REXX. I think it might be adapted to the OP requirements. From what I understand it is the USERDATA that needs to be updated and saved. >Does anyone have a slice of elegant REXX code to obtain the member list for a >PDS when the exec is called via IRXJCL? The PDS will be passed to the exec. >Ideally the member list will be placed into a stem for subsequent processing >Does anyone have a slice of elegant REXX code to obtain the member list for a >PDS when the exec is called via IRXJCL? The PDS will be passed to the exec. Similar usage when used with ISPF is ALLMEM and ISPF edit example when you want the ISPF statistics -- http://booksrv2.raleigh.ibm.com/ispf/code.htm David McRitchie Subject: Re: REXX and ISPF PDS's From: fiela...@nascom.nascom.com (Fielalap) Date: 1996/10/04 Message-ID: <8444449283...@nascom.nascom.com> Newsgroups: bit.listserv.tsorexx [More Headers] [Subscribe to bit.listserv.tsorexx] IN>John T. Studt wrote: >> This I understand - What I want is to get a LIST OF MEMBERS... >> I have a dataset with over 7,000 members... much like the aforementioned L >> services (Give me the first member that starts with a 'ZA%%') John: has everyone missed the point? The following REXX was out here a few months ago. From REXX you can READ the PDS directory yourself. I'm only re-posting it. Author credit is at the end. /* REXX */ TRACE /* For batch, use the following JCL: Until Thursday, I didn't think REXX could handle PDS directories either. Surprise, surprise! This was easier than assembler language. The next step in this is for someone to come up with a P2D/D2P (packed to decimal/ decimal to packed) function so the ISPF stats can be decoded correctly. //REXX EXEC PGM=IRXJCL,PARM='name.of.rexx.exec' //SYSEXEC DD DSN=your.rexx.library,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //PDS DD DSN=your.pds.name,DISP=SHR, // DCB=(RECFM=F,DSORG=PS,LRECL=256,BLKSIZE=256) */ /* For TSO, use the following ALLOCATE sequence: */ /* ARG dsn ADDRESS TSO "ALLOC F(PDS) DA("dsn") SHR REUSE", /* pds directory */ " RECFM(F) DSORG(PS) LRECL(256) BLKSIZE(256)" */ /*-------------------------------------------------------------------*/ "EXECIO * DISKR PDS (STEM DIR. FINIS" /* read pds directory */ DO blk = 1 to dir.0 usedbytes = C2D(SUBSTR(dir.blk,1,2)) index = 3 /* skip past used bytes */ DO WHILE index < usedbytes IF SUBSTR(dir.blk,index,8) = 'FFFFFFFFFFFFFFFF'x THEN SIGNAL direof pds2name = SUBSTR(dir.blk,index,8) /* member name */ SAY pds2name /* do-wah-diddy, we're here */ index = index + 11 /* skip past name and ttr */ pds2indc = SUBSTR(dir.blk,index,1) len = BITAND(pds2indc,'1F'x) /* isolate user data length */ userdata = C2D(len) * 2 /* halfwords to bytes */ index = index + userdata + 1 /* skip past user data */ END END direof: EXIT /* John Kalinich */ /* USA Systems Integration & Management Activity */ /* 314-331-4521 */ /* EXEC TO DEBLOCK PDS DIRECTORY */ Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Thomas Berg > Sent: Tuesday, October 29, 2013 2:24 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: example assembler program to update via stow userdata in > directory > of pds > > You can only update in the ISPF stats format with LMMSTATS. In this case I > suppose there is a whole another format that is needed. > > > > Best Regards > Thomas Berg > ___________________________________________________________________ > Thomas Berg Specialist zOS\RQM\IT Delivery SWEDBANK AB (Publ) > > > > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > > On Behalf Of Itschak Mugzach > > Sent: Tuesday, October 29, 2013 6:39 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: example assembler program to update via stow userdata in > > directory of pds > > > > Whats wrong with a small rexx that uses lm utilities to create and > > set/update pds directory? Commands like lminit, lmmlist, lmmstat, etc.? > > > > ITschak > > בתאריך 29 באוק 2013 01:53, "Paul Gilmartin" <paulgboul...@aim.com> כתב: > > > > > On Mon, 28 Oct 2013 16:56:45 -0500, Dave Kreiss > > > <davekre...@gmail.com> > > > wrote: > > > > > > >Don, here is a module which updates a PDS directory entries TTR but > > > >it can be used as a model to change any field. I can't remember > > > >where the length field is (probably it is in DIRFLAG in the sample) > > > >but I know it is in > > > half > > > >words. The program has a DSECT for the SPF statistics. You will > > > >need to change the length and layout of the directory to match your > > needs. > > > > > > > >Dave > > > > > > > > > > > >UTL45 CSECT > > > > 00010000R0 EQU 0 > > > > 00020000R1 EQU 1 > > > > 00030000R2 EQU 2 > > > > 00040000R3 EQU 3 > > > > 00050000R4 EQU 4 > > > > 00060000R5 EQU > > 5 > > > > 00070000R6 > > > > EQU 6 > > > > > > > How'd you do that? I think I could replicate the behavior, but not > > easily. > > > > > > -- gil > > > > > > -------------------------------------------------------------------- > > > -- 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
