View previous topic :: View next topic
|
Author |
Message |
devidas-patil
New User
Joined: 08 Jan 2007 Posts: 54 Location: pune
|
|
|
|
Hi all
how to rewrite the file sequentially in cics
please give the code if possible.
suppose my file name is Dev
keys name is empid |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
STARTBR
READNEXT UPDATE
REWRITE
repeat |
|
Back to top |
|
|
munikumar Currently Banned New User
Joined: 18 Apr 2007 Posts: 24 Location: India
|
|
|
|
I am also giving you some high level view:
MOVE LOW-VALUES TO KEY
EXEC CICS STARTBR
DATASET(dev)
RIDFLD(key)
END-EXEC.
PERFORM LOOP
THRU LOOP-EXIT
UNTIL EOF.
LOOP.
EXEC CICS
READNEXT DATASET(dev)
INTO (data-area)
LENGHT (lenght of data-area)
RIDFLD (key)
GTEQ
UPDATE
END-EXEC.
<<update statement>>
EXEC CICS REWRITE
DATASET(dev)
FROM(data-area)
LENGHT(length of data-area)
END-EXEC.
IF DFHRESP = ENDFILE
SET EOF TO TRUE
END-IF
LOOP-EXIT.
EXIT.
EXEC CICS ENDBR
DATASET(dev)
END-EXEC.
Regards
Munikumar G |
|
Back to top |
|
|
devidas-patil
New User
Joined: 08 Jan 2007 Posts: 54 Location: pune
|
|
|
|
Thanks manikumar |
|
Back to top |
|
|
|