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

[Tom Daly <Tdaly@xxxxxxxxxxxxxx>]

Perhaps a file would help.

A          R XWALKR                
A*                                
A            FIRM           1A    
A            ACCNT1         8A    
A            ACCNT2         8A    


This: 
 |  C* These are omnibus accounts
 |  C           OFCAC     IFEQ '03309123'
 |  C                     MOVE '   09123'OFCAC
 |  C                     SETON                     99
 |  C                     END


Becomes:
C     Key           KLIST                             
C                   KFLD                    KeyFIRM
C                   KFLD                    KeyACCOUNT
   
C                   EVAL      KeyFIRM = *BLANKS
C                   EVAL      KeyACCOUNT = OFCAC
C     Key           CHAIN     XWALKR                             99    
C                   EVAL      OFCAC = ACCNT2


And this
 |  C* GSI clients
 |  C           FIRM      IFEQ 'B'
 |  C           OFCAC     ANDEQ'50500003'
 |  C                     MOVE ' 0166607'OFCAC
 |  C                     SETON                     99
 |  C                     END

Becomes:

C                   EVAL      KeyFIRM = 'B'
C                   EVAL      KeyACCOUNT = OFCAC
C     Key           CHAIN     XWALKR                             99    
C                   EVAL      OFCAC = ACCNT2


The crosswalk file contains these records:


FIRM   ACCNT1         ACCNT2
----   ---------      ----------
' '    '03309123'     '   09123'
'B'    '50500003'     ' 0166607'


Get the gist?   Maybe something like this can help.


Tom Daly