On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden <og...@us.ibm.com> wrote:
>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) > Your A(TU1) should be A(TUPL), and TUPL should look like this: TUPL DC A(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'80000000) Bill ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN