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
