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