On Thu, 5 Jul 2018 08:14:35 -0700, Charles Mills wrote: >Should not be a S0C4 but don't you want pointers to ALL of the text units? > He doesn't have pointers to any of his text units. X'0055',X'0001' is likely not a valid address.
-- Tom Marchant > > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On >Behalf Of Bill Godfrey >Sent: Thursday, July 5, 2018 7:48 AM >To: [email protected] >Subject: Re: DYNALLOC > >On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden <[email protected]> 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 [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
