Declaring VSAM:
FILE FILE2 VS
Reading VSAM file by Key
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
LIST ON
FILE FILE1 FB(80 200)
IN-REC 1 80 A
IN-KEY 1 8 A
FILE FILE2 VS
F2-REC 1 80 A
F2-KEY 1 8 A
F2-VALUE 15 30 A
FILE OUTFILE FB(80 200)
OUT-REC 1 80 A
OUT-KEY 1 8 A
OUT-VALUE 10 30 A
JOB INPUT NULL
GET FILE1
DO WHILE NOT EOF FILE1
READ FILE2 KEY IN-KEY STATUS
IF FILE2 : FILE-STATUS EQ 0
MOVE IN-KEY TO OUT-KEY
MOVE F2-VALUE TO OUT-VALUE
PUT OUTFILE
ELSE
DISPLAY IN-KEY ' NOT PRESENT IN VSAM FILE'
END-IF
GET INFILE
END-DO
STOP
How to read VSAM KSDS file using alternate key? What all the things we need to define and use in easytrieve program.
Hi Karthik,
Can you please answer the above query…evn I am also facing the same challenge…I need to read a VSAM file with its alternate key…..