sorry for my previous mails which came as junk mails

["Murali dhar" <hydchap1@xxxxxxxxxxxxxx>]

sorry for my previous mail which was hazy due to some html tags...<BR   >
forgive me for the inconvinience caused to you ppl...
   
Thanks,
   = 
Murali.
   

   

   

   

   

   
On Wed, 01 Oct 2003 Tom= Daly wrote :
   
>
   
>Perhaps a file would help.
   
><BR= >
>A          R XWALKR
   
>A*
   
&gt= ;A            FIRM       =   1A
   
>A            ACCNT1&nbs= p;       8A
   
>A          &= nbsp; ACCNT2        8A
   
>
   
>
   
&gt= ;This:
   
>  |  C* These are omnibus accounts
   
>&nb= sp; |  C          OFCAC    IFEQ '= 03309123'
   
>  |  C          &nbs= p;         MOVE '  09123'OFCAC
   
>  = |  C                  &nb= sp; SETON                  &n= bsp; 99
   
>  |  C          &nbsp= ;         END
   
>
   
>
   
>Becomes:   
>C    Key          KLIST
   = 
>C                  KFL= D                    KeyF= IRM
   
>C                &nbs= p; KFLD                  &nbs= p; KeyACCOUNT
   
>
   
>C          &nbs= p;       EVAL      KeyFIRM = *BLANKS
   = 
>C                  EVA= L      KeyACCOUNT = OFCAC
   
>C    Key&nb= sp;         CHAIN    XWALKR    &n= bsp;
     =   99
   
>C              &nbs= p;   EVAL      OFCAC = ACCNT2
   
>
   
><= BR>
>And this
   
>  |  C* GSI clients
   
> = |  C          FIRM      IFEQ= 'B'
   
>  |  C          OFCAC&nb= sp;   ANDEQ'50500003'
   
>  |  C      =               MOVE ' 0166607'OFCAC
   = 
>  |  C              &nb= sp;     SETON              &n= bsp;     99
   
>  |  C      &nbsp= ;             END
   
>
   
>Becom= es:
   
>
   
>C              =     EVAL      KeyFIRM = 'B'
   
>C  &= nbsp;               EVAL    &= nbsp; KeyACCOUNT = OFCAC
   
>C    Key    &nbsp= ;     CHAIN    XWALKR        &nbs= p;
       99
   = 
>C                  EVA= L      OFCAC = ACCNT2
   
>
   
>
   
>The = crosswalk file contains these records:
   
>
   
>
   
>FIRM=   ACCNT1        ACCNT2
   
>----  ---= ------      ----------
   
>' '    '03309123'=     '  09123'
   
>'B'    '50500003'  =   ' 0166607'
   
>
   
>
   
>Get the gist?  May= be something like this can help.
   
>
   
>
   
>Tom Daly<B= R>
>_______________________________________________
   
>This is = the RPG programming on the AS400 / iSeries (RPG400-L)
   mailing list
   
&g= t;To post a message email: RPG400-L@xxxxxxxxxxxx
   
>To subscribe, un= subscribe, or change list options,
   
>visit: http://lists.midrange.c= om/mailman/listinfo/rpg400-l
   
>or email: RPG400-L-request@midrange.= com
   
>Before posting, please take a moment to review the archives<B   R>
>at http://archive.midrange.com/rpg400-l.
   
>
   



   = 


   
[IMG]