Re: S/36 to AS/400 Logical File Problem

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.