Re: RE: Better or Best ideas to make my code much smaller

   
Really Thanks a ton Tom Daly! for giving detailed solution...Thanks s   o much 
let me try today I will get back to you if i find any problems
   furth= er.
   
Thank you Cathie for your valuable answer!
   
Thank you,
   = 
Murali.
   

   

   
On Wed, 01 Oct 2003 Tom Daly wrote :
   
&= gt;
   
>Perhaps a file would help.
   
>
   
>A  &nbsp= ;       R XWALKR
   
>A*
   
>A    &nbsp= ;       FIRM          1A
   
&gt= ;A            ACCNT1      &nbs= p; 8A
   
>A            ACCNT2  &n= bsp;     8A
   
>
   
>
   
>This:
   
>&nbs= p; |  C* These are omnibus accounts
   
>  |  C  &= nbsp;       OFCAC    IFEQ '03309123'
   
>&= nbsp; |  C                &nbs= p;   MOVE '  09123'OFCAC
   
>  |  C  &nbsp= ;                 SETON  &nbs= p;                 99
   
>&n= bsp; |  C                &nbsp= ;   END
   
>
   
>
   
>Becomes:
   
>C  &n= bsp; Key          KLIST
   
>C   =               KFLD     =               KeyFIRM
   
>C =                 KFLD   =                 KeyACCOUNT
   
&= gt;
   
>C                &nbs= p; EVAL      KeyFIRM = *BLANKS
   
>C    &= nbsp;             EVAL      K= eyACCOUNT = OFCAC
   
>C    Key      &nbsp= ;   CHAIN    XWALKR          &nbs= p;
       99
   
>C&= nbsp;                 EVAL  &= nbsp;   OFCAC = ACCNT2
   
>
   
>
   
>And this
   = 
>  |  C* GSI clients
   
>  |  C  &nbsp= ;       FIRM      IFEQ 'B'
   
>  = |  C          OFCAC    ANDEQ'5050= 0003'
   
>  |  C            &= nbsp;       MOVE ' 0166607'OFCAC
   
>  |  C=                     SETO= N                    99<= BR>
>
   |  C              =       END
   
>
   
>Becomes:
   
>
   
&g= t;C                  EVAL&nbs= p;     KeyFIRM = 'B'
   
>C        &nb= sp;         EVAL      KeyACCOUNT = OF= CAC
   
>C    Key          CHAIN&= nbsp;   XWALKR                  99
   
>C    &nb= sp;             EVAL      OFC= AC = ACCNT2
   
>
   
>
   
>The crosswalk file contains t= hese records:
   
>
   
>
   
>FIRM  ACCNT1  &nbs= p;     ACCNT2
   
>----  ---------    &nbsp= ; ----------
   
>' '    '03309123'    '  0= 9123'
   
>'B'    '50500003'    ' 0166607'
   
= >
   
>
   
>Get the gist?  Maybe something like this ca= n help.
   
>
   
>
   
>Tom Daly
   
>________________= _______________________________
   
>This is the RPG programming on th= e 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/rpg40= 0-l
   
>or email: RPG400-L-request@xxxxxxxxxxxx
   
>Before post= ing, please take a moment to review the archives
   
>at http://archiv= e.midrange.com/rpg400-l.
   
>
   



   


   
[IMG]