Jacques - You must OPEN the dataset prior to writing to it. You should (but are not required to) close the dataset after the last I/O operation and before returning to the operating system.
I'm not sure about the correctness of the STOW as I don't have a manual handy. On Mon, Dec 12, 2011 at 1:45 PM, Yanick Jacques <[email protected]> wrote: > 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
