It has been a few decades since I used DYNALLOC and I am now doing
something stupid that results in an 0C4 somewhere in never-never land. Can
someone give me a clue without going to much trouble? (DRB and DRBPTR are
on full word boundaries.)
LA 1,DRBPTR
DYNALLOC
...
...
TU1 DC X'0055',X'0001',X'0008',C'xxxxxxxx' Returned DDname
TU2 DC X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
TU3 DC X'0004',X'0001',X'0001',X'04' DISP=NEW
TU4 DC X'0005',X'0001',X'0001',X'04' DISP=DELETE
TU5 DC X'0008',X'0000' Allocate in cylinders
TU6 DC X'000A',X'0001',X'0003',X'00000A' 10 cylinders
TU7 DC X'0010',X'0001',X'0006',C'WORK01' volser
TU8 DC X'0015',X'0001',X'0004',C'3390' UNIT type
DRB DC X'14'
DC X'01' verb = dsname allocation
DC X'6080' flags
DC X'00000000' error codes
DC A(TU1)
DC X'00000000'
DRBPTR DC X'80'
DC AL3(DRB)
Thanks..
BIll Ogden
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
