In article <[log in to unmask]>,
Roshan P. Shah <[log in to unmask]> wrote:
> Thanks for the Response, but I need more detailed info. Sorry for the
> Repost.
>
> Actually I am not working on it, the Guy who is working on it had just
> put forward his problem. I would like to have a much detailed response if
> someone has some time ........:)
>
> TIA,
> Roshan.
> [log in to unmask]
> _____________________________________________________________________________
 
Here is some partial code which hopefully get you started:
 
001000 01  WS-VCHANGE.
001100*******  Used with   V C H A N G E F I E L D S
001200**
001300**       The number of fields * the number of changes
001400**       per field = number of entries.
001500
001600     05  VCHANGE-ENTRIES    PIC S9(4) COMP VALUE +1.
001700
001800     05  VCHANGE-AREA.
001900         10  VC-FLD-NO      PIC S9(4) COMP VALUE 1.
002000         10  VC-CHG-TYPE    PIC S9(4) COMP VALUE 4.
002100         10  VC-CHG-SPEC    PIC  X(4)      VALUE "B   ".
002200
002300
002400 1000-CHANGE-FIELD-SPECS.
002500
002600     MOVE 0 TO VIEW-COMMON-STATUS.
002700     CALL "VCHANGEFIELD" USING VIEW-COMMON-AREA,
002800                               VCHANGE-AREA,
002900                               VCHANGE-ENTRIES.
003000
--
Paul Krikorian                   | Internet: [log in to unmask]
Coast Community College District |           (or [log in to unmask])
1370 Adams Ave.                  |    Voice: (714) 432-5865 x7150
Costa Mesa, CA 92626, USA        |      Fax: (714) 432-5062