Re: KLIST

["Peter Vidal" <Peter_Vidal@xxxxxxxx>]

Murali:
You can't chain a file that is not indexed, so yes: you will need to assign keys
to the physical file, or maybe, create a logical file over the physical with the
key(s) you need and you do not have to touch your physical file.

Peter Vidal
Pall Aeropower Corp.
SR Programmer Analyst
WWW.Pall.com

"A good player makes himself look good; a great player makes the team look
good."
Author unknown


                                                                                
                                          
                    "Murali  dhar"                                              
                                          
                    <hydchap1@rediffmai       To:     "RPG programming on the 
AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>    
                    l.com>                    cc:                               
                                          
                    Sent by:                  Subject:     KLIST                
                                          
                    rpg400-l-bounces@mi                                         
                                          
                    drange.com                                                  
                                          
                                                                                
                                          
                                                                                
                                          
                    10/03/2003 12:29 PM                                         
                                          
                    Please respond to                                           
                                          
                    RPG programming on                                          
                                          
                    the AS400 / iSeries                                         
                                          
                                                                                
                                          
                                                                                
                                          





hi folks,



i ve a program described file as follows:
   =
-------------------------------------------------

    &n= bsp;   F GMIRPMF1UF F 218 DISK

0041.00  I GMIRPMF1AA
   =


0042.00 I  2 2 FIRM



0043.00 I  13 17 CIDE= NT



0044.00 I  20 22 CFIRM



0045.00 I 5 12 O= FCAC



0046.00 I 13 16 NAME

=========   ===============

iam writing a cross wal= k file like

          R XWALKR   =

A*      &n= bsp;                     =

A            FIRM  =         1A

A      &= nbsp;     ACCNT1        8A
   =
A            ACCNT2      &n= bsp; 8A

===============   ===============

i ve written KLIST in m= y program as follows..

------------------------------------------
   =
C    Key          KLIST  &nbsp= ;                     &nb= sp;

C               =   KFLD                 =   KeyFIRM

C              &nb= sp;   KFLD                &nb= sp;   KeyACCOUNT



C        &nbs= p;         EVAL      KeyFIRM = *BLANK= S

C                  EV= AL      KeyACCOUNT = OFCAC

C    Key =         CHAIN    XWALKR    &nbsp= ;                     &nb   sp; 99


C            &nbs= p;     EVAL      OFCAC = ACCNT2

===   =========================   =========================   =================

i wud like to kno= e do i need to define my file XWALKR as keyed since
   iam doing a chain opera= tion on that file?



Thanks in advance,

Murali.


   =











[IMG]

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.