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
