AFAIK only DAIR requires AMODE(24), not DYNALLOC. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3
________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Barkow, Eileen <[email protected]> Sent: Thursday, July 5, 2018 11:42 AM To: [email protected] Subject: Re: DYNALLOC Are you running with AMODE=24? I think that you still need to, from looking at my old DYNALLOC pgms. DS 0F DYNBLKS EQU * RBPOINT DC A(RBS) ADR REQ BLOCK PASSED IN R1 ORG RBPOINT S99RBP DSECT DC X'80' HI ORDER BIT MUST BE ON DS 0F RBS EQU * RB DS 0CL20 S99RB DSECT LOC BY RBPOINT RBLN DC AL1(RBEL) LEN OF RB RBVERB DC AL1(S99VRBAL) FUNC 01-07 01 FOR ALLOC RBFLAG1 DC AL1(S99NOMNT) FLAG BYTE-DONT CONSIDER OFFLINE UNITS RBFLAG2 DS X 2ND FLAG BYTE RBERROR DS XL2 ERROR REASON CODE RBINFO DS XL2 INFO REASON CODE RBTXTPP DS A(TXPOINTS) LIST OF TEXT PTRS DS F RESERVED RBAUTHFL DS XL4 FLAGS FOR AUTH FUNCTIONS RBEL EQU *-RB -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Tom Marchant Sent: Thursday, July 05, 2018 11:31 AM To: [email protected] Subject: Re: DYNALLOC 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 ________________________________ This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments. Please notify the sender immediately by reply e-mail and delete the e-mail from your system. ---------------------------------------------------------------------- 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
