• Subject: Problem with creating a LF..
  • From: "Graap, Ken" <keg@xxxxxxxxxxxxxxxxxx>
  • Date: Wed, 17 Nov 1999 15:26:29 -0800

Has anyone else noticed this strangeness with CRTLF...:

We are on Version 4 Release 4 of OS/400....


When we build a logical file over an entire physical file (no physical file
member is 
specified), then  the logical file is created as expected. If we specify a
physical file member, 
however, the file is created differently.

Example: Logical file UAGNPTX is created over physical file UAGN. 
The UAGN file has 6 "buckets" that represent the different aging periods on
the system. 

A sample layout would be:

1) UAACT - Account Number
2) UAUTL - Utility Type
3) UAAG1 - Aging Bucket 1
4) UAAG2 - Aging Bucket 2
5) UAAG3 - Aging Bucket 3
6) UAAG4 - Aging Bucket 4
7) UAAG5 - Aging Bucket 5
8) UAAG6 - Aging Bucket 6
9) UAPT1 - Payment Priority 1
10) UAPT2 - Payment Priority 2
11) UAPT3 - Payment Priority 3
12) UAPT4 - Payment Priority 4
13) UAPT5 - Payment Priority 5
14) UAPT6 - Payment Priority 6

Each account would have multiple utility records.

Logical file UAGNPTX exists to put the aging buckets in payment priority
order. 
It has six formats arranged like:

1) UAACT 
2) UAUTL
3) PRTY1        RENAME(UAPTx)
4) AMT1 RENAME(UAAGx)

Where "x" represents bucket 1-6.

When we create the physical file in library QTEMP, and then create the
logical file over it, 
the logical file has 6 records for every record in UAGN (one for each
priority). This is what
I would expect.

If we create the physical file in one of our files libraries, and this file
has multiple members
(one for each interactive job id on the AS/400), the resulting UAGNPTX file
only has one 
record for every record in UAGN. This makes the payment allocation by
priority feature
of our application fail. 

The only difference between how the files are created are the following
parameters on the
CRTLF command:
        
                (this works)

Physical file data members:                      
  Physical file  . . . . . . . .   *ALL                 Name, *ALL
    Library  . . . . . . . . . .                        Name, *CURRENT
  Members  . . . . . . . . . . .                        Name, *NONE
        
                (this doesn't)

Physical file data members:                      
Physical file  . . . . . . . .   UAGN                   Name, *ALL
Library  . . . . . . . . . .           P1FILES             Name, *CURRENT
Members  . . . . . . . . . . .   QPADEV00H8       Name, *NONE

        
Kenneth

****************************************
Kenneth E. Graap
IBM Certified Specialist
AS/400 Professional
Systems Administrator
NW Natural (Gas Services)
keg@nwnatural.com
Phone: 503-226-4211 x5537
FAX:    603-849-0591
****************************************


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

This thread ...


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

This mailing list archive is Copyright 1997-2019 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 here. If you have questions about this, please contact [javascript protected email address].