Hi,
Now I have open the file in output , but now I get an abend SB00 and
don't what to check exactely. There is something wrong in my code? Also, I
don't understand very well the concept of STOWLIST and NODELIST.
OPEN (IXSET,(OUTPUT))
READ EQU *
WRITE DECBX,SF,IXSET,OUTAREA WRITE AND CHECK NEXT RECORD
CHECK DECBX
LA R4,NOTELIST LOAD ADDRESS OF NOTE LIST
WRITE DECBY,SF,IXSET,OUTAREA WRITE AND CHECK NEXT RECORD
CHECK DECBY
NOTE IXSET TO DIVIDE THE MEMBER INTO SUBGROUPS,
ST R1,0(R4) NOTE THE TTRN OF THE FIRST RECORD IN
LA R4,4(R4) INCREMENT TO NEXT NOTE LIST ENTRY
WRITE DECBZ,SF,IXSET,NOTELIST WRITE NOTE LIST RECORD AT THE
CHECK DECBZ
NOTE IXSET NOTE TTRN OF NOTE LIST RECORD
ST R1,12(R5) STORE TTRN IN STOW LIST
STOW IXSET,(R5),A ENTER THE INFORMATION IN DIRECTORY
FINISH EQU *
FIN CLOSE (IXSET) FERME INSET
LTORG
SAVEAREA DS 18F
OUTAREA DS CL80 AREA TO WRITE FROM
NOTELIST DS 0F NOTE LIST
DS F NOTE LIST ENTRY (4 BYTE TTRN)
DS 19F ONE ENTRY PER SUBGROUP
STOWLIST DS 0F LIST OF MEMBER NAMES FOR STOW
DC CL8'GIITXXXX' NAME OF MEMBER
DS CL3 TTR OF FIRST RECORD (CREATED BY STOW)
DC X'23' C BYTE, 1 USER TTRN, 4 BYTES OF USER DATA
DS CL4 TTRN OF NOTE LIST
IXSET DCB DDNAME=ENTRE1,MACRF=(W),DSORG=PO,EODAD=FINISH
INSET DCB DDNAME=ENTRE1,MACRF=(R),DSORG=PO,EODAD=FINISH
END
-----Message d'origine-----
De : IBM Mainframe Assembler List [mailto:[email protected]] De
la part de Binyamin Dissen
Envoyé : 13 décembre, 2011 11:22
À : [email protected]
Objet : Re: Problem to create member in PDS in assembler
On Tue, 13 Dec 2011 09:00:48 -0700 Paul Gilmartin <[email protected]>
wrote:
:>On Dec 12, 2011, at 15:02, Sam Siegel wrote:
:>> Jacques - You must OPEN the dataset prior to writing to it. You
:>If you had checked for errors after WRITE and CHECK, this should
:>have been detected.
If the file had not been opened, I would have expected an ABEND when the READ
branched to the access method.
:>> 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.
:>And I believe CHECK before STOW, as you did, is the correct sequence.
Yes. All DECBs must be CHECKed before the STOW otherwise there may be
merriment.
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
