• Subject: RE: Non-Join multi-PF logical file format
  • From: "SELTZER, Heather (Reading)" <HSeltzer@xxxxxxxxxxxxxx>
  • Date: Thu, 25 May 2000 09:50:26 -0400

I do agree.  The example I used was out of one of our multi logical files.
I should have deleted the lines with omit and select because we only use
that for EDI purposes.....they really weren't meant to be used in the
example.
As for the weather, well, it has rained here in Pennsylvania for seven days.
Today we have a break, but it looks like the weekend is not going to be a
good one!!!
Ciao     

-----Original Message-----
From: Finucci Domenico [mailto:finucci@Fiditalia.it]
Sent: Thursday, May 25, 2000 3:35 AM
To: 'COBOL400-L@midrange.com'
Subject: R: Non-Join multi-PF logical file format


Hi, Heater, how are you? The sun is shining in Italy now. 
May be i'm wrong, but 
" record format can use only the fields common to all the physical files" 
is true for the Key definition of the Logical file only, and it's true
because 
of logical reasons only ( i  mean not for technical ones). 

The logical file will contain and show all the fields from the original PFs.
There is no need to use OMIT and INCLUDE statement, because the system is
able to recognize the record format which is reading from. 
Try using a DFU session and watch the result.
Do you agree ? 

Yours sincerely. Ciao
Domenico Finucci


-----Messaggio originale-----
Da: SELTZER, Heather (Reading) [mailto:HSeltzer@Exideworld.com]
Inviato: mercoledý 24 maggio 2000 17.11
A: 'COBOL400-L@midrange.com'
Oggetto: RE: Non-Join multi-PF logical file format

In a multiple format logical file, a record format can use only the fields
common to all the physical files on the PFile keyword for that record
format.  
ex:
R A856HDR                   PFILE(EDI856HDR)
K LONO
K BONO
O STSCD                     COMP(NE 'OK')
S TRDPNRID                  COMP(EQ 'ACE')
S TRDPNRID                  COMP(EQ 'MEIJER')


R A85657SC                  PFILE(EDI85657SC)
K LONO
K BONO
K SHPSQ
O STSCD                     COMP(NE 'OK')
S TRDPNRID                  COMP(EQ 'ACE')
S TRDPNRID                  COMP(EQ 'MEIJER')
+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---END
+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END



As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

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