Please send me your email address. My email address is [email protected]
Sent with Proton Mail secure email. ------- Original Message ------- On Wednesday, April 19th, 2023 at 2:54 PM, David Spiegel <[email protected]> wrote: > Hi Richard, > I would be interested in obtaining a copy of this. > > Thanks and regards, > David > > On 2023-04-19 14:41, rpinion865 wrote: > > > I have a very old assembler program. It was written to extract job log > > information from a JES external writer output dataset, and create a member > > for each job. > > > > GENEDIT CSECT > > * * > > *********************************************************************** > > * * > > * PROGRAM DESCRIPTION * > > * * > > * THIS PROGRAM READS A SEQUENTIAL DATA SET THAT WAS CREATED BY AN * > > * EXTERNAL WRITER. THE SEQUENTIAL DATA SET CONTAINS CLASS H OUTPUT * > > * FROM THE PREVIOUS NIGHT'S PRODUCTION JOBS. THE PROGRAM CREATES A * > > * PDS MEMBER FOR EACH JOB. IF THERE ARE DUPLICATE JOBS, SECONDARY * > > * MEMBERS ARE CREATED FROM THE FIRST SIX CHARACTERS OF THE JOB NAME * > > * PLUS A TWO DIGIT COUNT OF THE NUMBER OF TOTAL SECONDARY MEMBER * > > * NAMES. THE PROGRAM ABENDS WITH A USER ONE, IF A RETURN CODE * > > * FROM STOW IS GREATER THAN 4. THE PDS CREATED HAS LRECL OF 133, * > > * BLKSIZE OF 0, AND RECFM OF FB. * > > * * > > *********************************************************************** > > * * > > > > Sent with Proton Mail secure email. > > > > ------- Original Message ------- > > On Wednesday, April 19th, 2023 at 2:38 PM, Paul Gilmartin > > [email protected] wrote: > > > > > On Wed, 19 Apr 2023 14:21:58 -0400, David Spiegel wrote: > > > > > > > If I understand correctly ... > > > > "ALLOC F(X) DA('MY.PDS') SH REU" > > > > > > > > Do i=1 to n > > > > "ALLOC F(Y) DA('MY.PDS('member')') SH REU > > > > "EXECIO * DISKW (FINIS > > > > End > > > > > > > > Is this correct? > > > > That's what I remember. But it might be better to remove the ALLOC and > > > > EXECIO from > > > > the loop and do > > > > LMINIT DDNAME(X) /* outside the loop. / > > > > then LMPUT, etc. / inside. */ > > > > > > LMPUT requires exclusive allocation, not SHR. > > > It's infuriating that ISPF has no support for REXX compould symbols, > > > instead providing the bizarre MULTX form. > > > > > > IBM doesn't care. > > > > > > -- > > > gil > > > > > > ---------------------------------------------------------------------- > > > 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 > > > ---------------------------------------------------------------------- > 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
