Re: *lda

[dhandy@xxxxxxxxxxx (Douglas Handy)]

>Also a question.  A while back someone listed a way to display a batch jobs
>LDA.  It had to do with dumping the job to an outfile and then searching for
>LDA.  Can you post it again!

Although I wasn't the poster, here is a copy of what Chuck R. Pence
replied last Aug 7, regarding this question:

<begin quote>

The easiest way IMO is to STRSRVJOB on the job whose *LDA you need to
review.  Then issue the command: DMPSYSOBJ *PCS.  Next issue the
command:
DSPSPLF QPSRVDMP SPLNBR(*LAST), search on *LDA in the splf;
on the left of spool data is an offset -- record it.  Finally issue:
DMPSYSOBJ *PCS OFFSET(recorded_offset) followed by the command:
DSPSPLF QPSRVDMP SPLNBR(*LAST) and review *LDA starting at x/60 I
think.  
FWiW the offset into the *PCS AFaIK is always OFFSET(230) <ie. I have
never seen otherwise>; so you may be able to create a command having a
CLP rqs:
 DMPSYSOBJ *PCS OFFSET(230)
 DSPSPLF QPSRVDMP SPLNBR(*LAST)
 DLTSPLF QPSRVDMP SPLNBR(*LAST)
 
Regards, Chuck
 -- Comments provided "as is" with no warranties of any kind
whatsoever.
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---