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
