Re: Read same file

Do you really need three programs here, or could FILEA be defined three
times in PGMA (each with the different access mode)?

Scott


                                                                                
                                                          
                      cobol400-l@midrange.                                      
                                                          
                      com                         To:       COBOL Programming 
on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>              
                      Sent by:                    cc:                           
                                                          
                      cobol400-l-bounces@m        Subject:  [COBOL400-L] Read 
same file                                                   
                      idrange.com                                               
                                                          
                                                                                
                                                          
                                                                                
                                                          
                      04/13/05 10:06 PM                                         
                                                          
                      Please respond to                                         
                                                          
                      COBOL Programming on                                      
                                                          
                      the iSeries/AS400                                         
                                                          
                                                                                
                                                          
                                                                                
                                                          




Hello,

I am new to the AS400.  I have 3 programs that using the same file but
different Access mode.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  PGMA.
       :
       SELECT FILEA ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-A
           ACCESS MODE IS SEQUENTIAL
           ORGANIZATION IS SEQUENTIAL.
       :
       10-READ-A.
           READ FILEA.
           IF STATUS = "00"
              CALL "PGMB" USING PARM1
              Go To 10-READ-A.
       10-READ-A-X. EXIT.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  PGMB.
       :
       SELECT FILEA ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-A
           ACCESS MODE IS DYNAMIC
           ORGANIZATION IS INDEXED
           RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
       :
       CALL "PGMC" USING PARM2.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  PGMC.
       :
       SELECT FILEA
           ASSIGN TO DATABASE-FILEA
           FILE STATUS IS STATUS-A
           ACCESS MODE IS DYNAMIC
           ORGANIZATION IS INDEXED
           RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.


PGMA is read FILEA one by one.
My problem is the process time for complete the program PGMA is too long.
Could someone help me, how the
accelerate the process .

rgds
Agus R

IMPORTANT NOTICE:

The information in this email (and any attachments) is confidential.
If you are not the intended recipient, you must not use or disseminate the
information.
If you have received this email in error, please immediately notify me by
"Reply" command
and permanently delete the original and any copies or printouts thereof.
Although this email and any attachments are believed to be free of any
virus
or
other defect that might affect any computer system into which it is
received
and opened,
it is the responsibility of the recipient to ensure that it is virus free
and no responsibility
is accepted by American International Group, Inc. or its subsidiaries or
affiliates either
jointly or severally, for any loss or damage arising in any way from its
use.
_______________________________________________
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.