|
You want to create the logical file in DDS over the physical file. Then, in the COBOL code, just reference the file like: SELECT Customer-FILE ASSIGN TO DATABASE-(logical file name) ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY IS EXTERNALLY-DESCRIBED-KEY FILE STATUS IS filsta. Dale Nieswiadomy Livingston County Information & Technology Services (585) 243-7191 dnieswiadomy@xxxxxxxxxxxxxxxxxxx "Phil Campbell" <pcampbell@xxxxxx nv.com> To Sent by: <cobol400-l@xxxxxxxxxxxx> cobol400-l-bounce cc s@xxxxxxxxxxxx Subject S/36 to AS/400 Logical File Problem 08/12/2003 03:02 PM Please respond to COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxx nge.com> I am working on converting programs from a S/36 (CBL36) mode to a AS400 (CBL) mode. I've run into something that I have not been able to figure out. Hopefully someone can help me. On the S/36 I have got logical files but off the physical file with multiple keys. I cannot compile these on the AS400. I am REALLY stumped on this one. What do you do to convert logical files (COBOL wise) from the System/36 to the AS400. Start Len CUST-NUMBER 1 6 (Key to the Physical File) CUST-TYPE 7 1 CUST-NAME 8 30 I have a logical file set up by name, type and then number. My file definition in COBOL looks like this. SELECT CUSTOMER-FILE ASSIGN DATABASE-CUSTFILE ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY IS CUST-NAME CUST-TYPE CUST-NUMBER This will not compile using COBOL 400. It tells me that I've got too many keys. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx Phil Campbell :) _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l.
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.