I have a VSAM with following key structure with key length of 110:
Code: Select all
01 VSAM-KEY-REC.
05 VSAM-KEY-DATA PIC X(109).
05 VSAM-KEY-FLAG PIC X(01).
This is in my program:
Code: Select all
MOVE LOW-VALUES TO VSAM-KEY-DATA.
MOVE 'N' TO VSAM-KEY-FLAG.
*
READ VSAM-FILE
KEY IS VSAM-KEY-REC
END-READ.
Thanks.