|
Did you use the compiler option OPTION(*CRTF) in the CRTCBLMOD or CRTBNDMOD? I'm not too familiar with this method since my shop doesn't use all of the ILE techniques. Maybe some other forum member can shed some light on the solving your problem. Another way to do it is as follows. Not as elegant, but it does the job: Write a CL program with the follow code and call it at the beginning of your program before you start opening files. MONMSG MSGID(CPF2105 CPF2104) CRTPF FILE(QTEMP/TextFile) SRCFILE(*LIBL/QDDSSRC) OPTION(*NOSOURCE *NOLIST) SIZE(*NOMAX) WAITRCD(*IMMED) The MONMSG will handle the file already exists error and any ADDLIBLE or RMVLIBLE errors. The reason why I left both in is because I don't remember which one is which. The execution is very quick and I don't see any performance loss by doing it this way. It's a surefire method if you get too frustrated with trying to get the program defined dynamic file creation to work. Basil Zangare Applications Specialist Nikon Inc 1300 Walt Whitman Road Melville, New York 11747 phone: (631) 547-4389 fax: (631) 547-4026 bzangare@xxxxxxxxx -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Don Stafford Sent: Friday, January 27, 2006 8:10 AM To: COBOL Programming on the iSeries/AS400 Subject: [COBOL400-L] File creation questions I am using *CRTF as a compiler option - and my program does an OPEN OUTPUT TextFile 1) How do I specify both the library is which I want the file created AND the file name itself? I coded my SELECT statement as.... SELECT TextFile ASSIGN TO DISK-ASN001 The created the file in the QTEMP library. I tried to code the SELECT as....... SELECT TextFile ASSIGN TO DISK-UAVPROFL-ASN001 But the compiler stripped off the -ASN001 2) How do I specify *NOMAX for the file being created? If I don't, my program errors out when the maximum number of records has been written... THANKS for all the help!!
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.