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

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
+---