Strange Error

[Lurton Keel <Lurton.Keel@xxxxxxxx>]

                Here is a strange one for you.

                Sunday, I was modifying an old CL program that did a SAVOBJ.
                This CL has not been run since V3R6.  We are current on CUM
and on V4R3.

                I compiled the program and when I ran it, I received the
following:

                Message . . . . :   CPF3733 received by SAVESRC at 900. (C D
I R)              
                Cause . . . . . :   Control language (CL) program SAVESRC in
library QGPL      
                  detected an error at statement number 900. Message text
for CPF3733 is: LIB  
                  QGPL in QSYS previously damaged.


                I did a DSPOBJD of both QSYS and QGPL and nothing was marked
damaged.

                I looked at the job log and  it had a strange entry.  It
said that the OBJTYPE **FILE was invalid.
                I looked at the SAVOBJ via a f4, removed the *FILE and then
put *ALL in, recompiled and the program ran fine.


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