× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.