Better or Best ideas to make my code much smaller

["Murali dhar" <hydchap1@xxxxxxxxxxxxxx>]

Please find below is the RPG program 'YCV06020R'....I ve to 
convert program YCV06020R to replace hard coded account 
numbers...any better of best ideas?..actually the program is very 
lengthy ,i ve cut many account numbers since the code similar to 
this...this is best extracted program from the very legnthy 
program....

only these three following sections are repeating in the entire 
code of the program...for understanding i ve posted the complete 
program below..Can anybody give me the best ideas to remove the 
hard coded  account numbers and make my program smaller....
Thanks so much,
Murali.
they are:
=====================================================
C* These are omnibus accounts
C           OFCAC     IFEQ '03309123'
C                     MOVE '   09123'OFCAC
C                     SETON                     99
C                     END
======================================================
C* GSCD clients
C           FIRM      IFEQ 'M'
C           OFCAC     ANDEQ'97580091'
C                     MOVE ' 0109123'OFCAC
C                     SETON                     99
C                     END
=======================================================
C* GSI clients
C           FIRM      IFEQ 'B'
C           OFCAC     ANDEQ'50500003'
C                     MOVE ' 0166607'OFCAC
C                     SETON                     99
C                     END
===========================================================


-----------------------------------------------------------------------
FGMIRPMF1UF  F     218            DISK
IGMIRPMF1AA
I                                        2   2 FIRM
I                                       13  17 CIDENT
I                                       20  22 CFIRM
I                                        5  12 OFCAC
I                                       13  16 NAME
I                                       30  33 CCYY
I                                       55  56 TYPE
I                                      201 202 CLSUB
C                     READ GMIRPMF1                 60
C           *IN60     DOWEQ'0'
C                     SETOF                     979899
C*
C           CCYY      IFEQ '2099'
C                     SETON                     97
C                     END
C*
C           FIRM      IFEQ 'B'
C           CLSUB     ANDEQ'H '
C           FIRM      OREQ 'M'
C           CLSUB     ANDEQ'H '
C           CIDENT    IFEQ 'CFTC'
C           CIDENT    OREQ 'COT'
C           CIDENT    OREQ 'BOT'
C           CIDENT    OREQ 'CME'
C                     MOVE 'G'       FIRM    1
C                     SETON                     99

C                     END
C                     END
C*
C           NAME      IFEQ 'BOT '
C* These are omnibus accounts
C           OFCAC     IFEQ '03309123'
C                     MOVE '   09123'OFCAC
C                     SETON                     99
C                     END
C           OFCAC     IFEQ '00166607'
C                     MOVE '   66607'OFCAC
C                     SETON                     99
C                     END
C           OFCAC     IFEQ '00160214'
C                     MOVE '   60214'OFCAC
C                     SETON                     99
C                     END
C* added 03/22/00 JWD
C           OFCAC     IFEQ '03341600'
C                     MOVE '   41600'OFCAC
C                     MOVE 'G'       FIRM
C                     MOVE '   '     CFIRM
C                     SETON                     99
C                     END
C           OFCAC     IFEQ '03341610'
C                     MOVE '   41610'OFCAC
C                     SETON                     99
C                     END
C* GSCD clients
C           FIRM      IFEQ 'M'
C           OFCAC     ANDEQ'97580091'
C                     MOVE ' 0109123'OFCAC
C                     SETON                     99
C                     END
C* GSCD
C           FIRM      IFEQ 'M'
C           OFCAC     ANDEQ'97508819'
C                     MOVE ' 0209123'OFCAC
C                     SETON                     99
C                     END
C* GSCD
C           FIRM      IFEQ 'M'
C           OFCAC     ANDEQ'97551415'
C                     MOVE ' 0309123'OFCAC
C                     SETON                     99
C                     END
C* GSI clients
C           FIRM      IFEQ 'B'
C           OFCAC     ANDEQ'50500003'
C                     MOVE ' 0166607'OFCAC
C                     SETON                     99
C                     END
C* GSI
C           FIRM      IFEQ 'B'
C           OFCAC     ANDEQ'50500001'
C                     MOVE ' 0266607'OFCAC
C                     SETON                     99
C                     END
C           FIRM      IFEQ 'B'
C           OFCAC     ANDEQ'55500037'
C                     MOVE ' 0266607'OFCAC
C                     SETON                     99
C                     END

C*
C           FIRM      IFEQ 'B'
C           OFCAC     ANDEQ'88800192'
C                     MOVE ' 4766607'OFCAC
C                     SETON                     99
C                     END
C*
C                     END
C         97
COR       98
COR       99          EXCPTOUT
C                     READ GMIRPMF1                 60
C                     END
C**
C                     MOVE '1'       *INLR
C**
OGMIRPMF1E                OUT
O                    99   FIRM       2
O                    99   OFCAC     12
O                    99   CFIRM     22
O                    97             33 '1999'
----------------------------------------------------------------------

___________________________________________________
Television meets Accounts; Jyoti Weds Rajaram.
Rediff Matchmaker strikes another interesting match !!
Visit http://matchmaker.rediff.com?1