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

Jim, if the reports are all OK perhaps the easiest fix is to go into 
program CM1540 and look for the CHAINs and READs to file CMFILE?  Look at 
the right-side indicators.  The indicators turn on/off depending on the 
success of the read.  The next section of code could be conditioned by the 
found/not-found status of the record.  That way if the record isn't found 
then CM1540 will just jump past the error-causing condition?
_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




Jim Langston <jlangston@conexfreight.com>
Sent by: owner-rpg400-l@midrange.com
06/30/2000 03:01 PM
Please respond to RPG400-L

 
        To:     "RPG400-L@midrange.com" <RPG400-L@midrange.com>
        cc: 
        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
+---




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