Re: COBOL400-L Digest, Vol 4, Issue 10

COBOL 400 does not allow you to specify the library in the SELECT
statement - you need to make sure the correct library is at the top of
your library list when you compile and/or run the program.

John A Arnold
(301) 354-2939
jarnold@xxxxxxxxxxxxx
 

-----Original Message-----
From: cobol400-l-bounces+jarnold=fedmedinc.com@xxxxxxxxxxxx
[mailto:cobol400-l-bounces+jarnold=fedmedinc.com@xxxxxxxxxxxx] On Behalf
Of cobol400-l-request@xxxxxxxxxxxx
Sent: Friday, January 27, 2006 1:00 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 4, Issue 10

Send COBOL400-L mailing list submissions to
        cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
        cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

   1.  File creation questions (Don Stafford)
   2. Re:  File creation questions (Zangare Basil)
   3. Re:  File creation questions (Jon Paris)
   4. Re:  File creation questions (Roman Miklos)
   5. Re:  File creation questions (Zangare Basil)


----------------------------------------------------------------------

message: 1
date: Fri, 27 Jan 2006 08:10:20 -0500
from: "Don Stafford" <don.stafford@xxxxxxxxx>
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!!



------------------------------

message: 2
date: Fri, 27 Jan 2006 09:41:55 -0500
from: "Zangare Basil" <bzangare@xxxxxxxxx>
subject: Re: [COBOL400-L] File creation questions

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!!