On Wed, 2014-02-05 at 11:15 -0500, MichealButz wrote:
> When scanning the TIOT IS there and end marker, how do I know I have
> scanned all the DDnames ?
Here's some *OLD* code I found rotating around here. (As always,
objects in mirror may be closer than they appear, part of this
nutritious breakfast, ask your doctor, use at own risk, etc etc)
EXTRACT TIOTADDR,FIELDS=TIOT Get TIOT address
SR R2,R2 Clear work register
L R3,TIOTADDR -> TIOT
USING TIOT1,R3
SPACE ,
NEXTDD ICM R2,1,TIOELNGH Get L' DD entry
BZ NODDOUT Branch if end of TIOT
CLC TIOEDDNM,DDOUT This our DD statement?
BE DDFOUND Yes, branch
LA R3,0(R2,R3) -> next DD entry
B NEXTDD and loop
SPACE ,
DDFOUND EQU *
...
...
IEFTIOT1 , TIOT MAPPING DSECT
--
David Andrews
A. Duda & Sons, Inc.
[email protected]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
