Hi Assembler gurus,
I use the code below to dynamically allocate a PDS member. This works fine if
the member does not exist. If it does (& I wish to append to it), it fails with
a B14-04.
I thought that Text Unit id=4 with a value of X'02' indicated I wanted to use
DISP=MOD. What do I need to change in order to be able to append to an existing
PDS member?
As an aside, is there a better way of doing this?
DYNA DC 0F'0',X'80',AL3(DYNARB1) RB POINTER
DYNARB1 DS 0F ALIGN
DC AL1(20),AL1(01),AL2(0) LENGTH,ALLOC-VERB,FLAGS1
DYNAER DC AL2(0) ERROR CODE
DYNAIN DC AL2(0) INFO CODE
DC A(DYNATU) TEXT UNIT LIST POINTER
DC A(0) RESERVED
DC A(0) FLAGS2
DYNATU CALL ,(D11,D12,D13,D14,D15),VL,MF=L TU POINTERS
D11 DC XL2'1',XL2'1',XL2'8',CL8'CNTL ' DDNAME
D12 DC XL2'2',XL2'1',XL2'2C',CL44' ' DSNAME
D13 DC XL2'3',XL2'1',XL2'8',CL8'CSV' MEMBERNAME
D14 DC XL2'4',XL2'1',XL2'1',XL1'02' DISP=(MOD...
D15 DC XL2'5',XL2'1',XL2'1',XL1'08' ...,KEEP)
DSNAME EQU D12+6,44
DSNMEMB EQU D13+9,5
Regards - Grant.
DTCC DISCLAIMER: This email and any files transmitted with it are confidential
and intended solely for the use of the individual or entity to whom they are
addressed. If you have received this email in error, please notify us
immediately and delete the email and any attachments from your system. The
recipient should check this email and any attachments for the presence of
viruses. The company accepts no liability for any damage caused by any virus
transmitted by this email.
