Re: S36 Index Sort and Record Not Found -- RPG400-L

Jim,

Is it possible there is another process deleting records in CMFILE?  The
sort produces a file with record numbers and the RPG program just uses the
record numbers to retrieve the records.  So it is possible, even though not
very likely, that records get deleted in the time between the sorting and
the reading.

Another possibility is that that the record numbers are truncated.  I'm not
quite sure how the record numbers are stored in the record address file, but
I seem to remember that is possible to use 4 bytes in stead of 3 in the
record address file (not sure if it is possible in the S/36 environment
though).  Anyway, this would only happen if the record numbers are very
large.  Seeing that 34031 records are read, this would imply that CMFILE
contains a lot of deleted records.  So it makes sense to check this.

Would it be an option to replace the sort with an OPNQRYF?  I have never
used the S/36 environment but I seem to remember having read it is possible
to use CL-commands in OCL.  If CMFILE does not contain different record
types, it would be possible to recreate it with DDS.  With OPNQRYF you only
have to remove the record address file from the RPG (and the sort from the
OCL); no other modifications needed.

Joep Beckeringh


----- Original Message -----
From: "Jim Langston" <jlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Friday, June 30, 2000 9:01 PM
Subject: S36 Index Sort and Record Not Found


> We still have a number of S/36 reports on our system that are going to die
a natural death.
> This use the indexed sort for an RPG program, and we commonly get an RPG
error stating
> the record is not found.  It is a big pain to keep typing I for ignore to
get these things to continue.
>
> So, my questions are, what is wrong and how do I fix it?
>
> Sort cryteria:
>      // LOAD #GSORT
>      // FILE NAME-INPUT,LABEL-CMFILE,DISP-SHR
>      // FILE NAME-OUTPUT,LABEL-ASCM1540,RECORDS-00040196,RETAIN-J
>      // RUN
>           HSORTA    25A        3X       N
>
> Output according to Job Cryteira
>      34031 records read and 30009 records selected from CMFILE in library
QS36F
>        mbr CMFILE.
>      34031 total records read, and 30009 total records selected.
>      30009 RA entries placed in output file ASCM1540 in library QTEMP mbr
>        M000629.
>      REQUEST SUCCESSFUL 06/29/00 14:42:51.
>
> Then we run a S/36 RPG program:
>     // LOAD CM1540
>     // FILE NAME-ASCM1540,DISP-SHR
>     // FILE NAME-CUSMAS,DISP-SHR
>     // FILE NAME-EQPMST,DISP-SHR
>     // FILE NAME-CMFILE,DISP-SHR
>     // RUN
>
> It opens the files:
> 0020.00 0020 FCMFILE  IP  F4480 448R16II     1 DISK                   300
> 0021.00 0021 FASCM1540IR    300   3  3IT      EDISK
> 0022.00 0022 FCUSMAS  IC  F 180 180R 5AI     1 DISK                    80
> 0023.00 0023 FEQPMST  IC  F  80  80R11AI     1 DISK                   100
> 0024.00 0024 FPRINTER O     132 132     OF     PRINTER
> 0025.00 0025 FPRINTER2O     132 132     OA     PRINTER
> 0026.00 0026 E    ASCM1540CMFILE
>
> I uses the RPG cycle as you can see.  When the program runs sometimes (if
not all the time) we
> get errors we have to answer:
>
>  Message ID . . . . . . :   SSP0352
>  Date sent  . . . . . . :   06/30/00      Time sent  . . . . . . :
11:47:49
>
>  Message . . . . :   RPG9035 Options ( 123F)
>                   No record was found on read operation for file CMFILE.
>
>  Cause . . . . . :   The RPG program CM1540 in library CNXY2K at statement
>    00000000 is trying to read a record that does not exist.  For an
indexed
>    file, there is no record containing the key value specified.  For a
direct
>    file or file processed by address output file, the relative record
number is
>    in the file, but it is a deleted record.
>
> We just had the sort procedure sort the address output file, so it
shouldn't contain
> deleted records, correct?
>
> Does anyone have a clue?  We have to keep selecting reply 1 over and over
and over
> to get these things to finish.
>
> P.S. I just re-read this note before I sent it and noticed the line:
>      // FILE NAME-OUTPUT,LABEL-ASCM1540,RECORDS-00040196,RETAIN-J
>
> That RECORDS-00040196: Does that tell the sort to create the output file
with 40,196 records,
> and since there's only 30,009 that over 10,000 records contain blank info?
I doubt it, as I know
> we have to reply 1 a lot of times, but surely not 10,000 times!
>
> Regards,
>
> Jim Langston



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---