View previous topic :: View next topic |
Author |
Message |
samlwho Beginner
Joined: 08 Feb 2007 Posts: 21 Topics: 2
|
Posted: Wed Apr 18, 2007 8:14 am Post subject: |
|
|
vkphani,
I typically code GET & PUT in EZT versus READ & WRITE. Maybe this will work for you:
Code: |
FILE VSAM VS UPDATE
VSAM1 1 17 N
VSAM2 20 3 A
*
FILE FLAT
FLAT1 1 17 N
FLAT2 20 3 A
*
FILE OUTPUT
VSAM2-OUT 1 17 N
JOB INPUT NULL
GET VSAM
IF EOF VSAM
STOP
ELSE
GET FLAT
IF EOF FLAT
STOP
END-IF
END-IF
*
IF VSAM1 = FLAT1
VSAM2-OUT = FLAT2
PUT OUTPUT
END-IF |
|
|
Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Wed Apr 18, 2007 8:30 am Post subject: |
|
|
samlwho,
Your code will NOT work.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
 |
vkphani Intermediate

Joined: 05 Sep 2003 Posts: 483 Topics: 48
|
Posted: Wed Apr 18, 2007 10:37 am Post subject: |
|
|
Thanks to all of you for your help. |
|
Back to top |
|
 |
|
|