Re: START KEY EQUAL TO


<cblkid@xxxxxxxxx> wrote in message
news:1119973385.735390.239950@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> I am working with a client who is using a START ...KEY IS EQUAL TO. We
> are migrating the code from an MVS system to Windows. The FD for the
> file is similar to:
>
> FD Filename
> 01 KEY-REC.
> 05 PRIME-KEY.
> 10 PK-VAR1 PIC 99.
> 10 PK-VAR2 PIC X(10).
> 10 PK-VAR3 PIC X(3).
> 10 PK-VAR4 PIC X(2).
> 10 PK-VAR5.
> 15 PK-VAR5A PIC X(2).
> 15 PK-VAR5B PIC X(4).
> 15 FILLER PIC X(10).
> 10 PK-VAR6 PIC 9(4).
> 05 PK-KEY1 REDEFINES PRIME-KEY PIC X(17).
>
> They supply values for PK-KEY1 and do a START on it (START filename KEY
> IS EQUAL TO PF-KEY1). They say this works on the mainframe. In the PC
> environment we are receiving an error (file status '23': Record not
> found). We agree with the PC version and have asked for a mainframe
> output to show this working.
>
> The logic being this is a partial key. When an EQUAL TO is used
> 'partial keys' can not be used. Is this correct? Can partial keys be
> used when a START EQUAL TO is?
>
> Thank you for all your insight and assistance!
>
> Long Live COBOL!!!
>

I've had problems using 'start equal'. Try 'not less than'.

John


.