Problem to create member in PDS in assembler

[Yanick Jacques]

Hi,
    I have some trouble to create an empty member in a PDS.Can someone can
help me. Here's the code I have start for this.

OPDADDMB CSECT
         EQUREG
*        PRINT NOGEN
         STM   R14,R12,12(R13)
         LR    R12,R15
         USING OPDADDMB,R12
         LR    R05,R01                  . SAVE ADR DES PARAMS
         ST    R13,SAVEAREA+4
         LA    R2,SAVEAREA
         ST    R2,8(R13)
         LR    R13,R2
READ     EQU   *
         XC    DECBX,DECBX
         WRITE DECBX,SF,IXSET,INAREA
         CHECK DECBX
         STOW  IXSET,STOWLIST,A
FINISH   EQU   *
FIN      CLOSE  (IXSET)
         L       R13,SAVEAREA+4
         LM      R14,R12,12(R13)
         LA      R15,0
         BR      R14
*
         LTORG
SAVEAREA DS     18F
*
IXSET   DCB     DDNAME=ENTRE1,MACRF=(W),DSORG=PO,EODAD=FINISH

STOWLIST DS    0F
         DC    CL8'GIITXXXX'
         DS    CL3
         DC    X'0F'
INAREA   DC    CL80'QWERTY,QWERTY,QWERTY,QWERTY'
         DS
5000