Re: Removing keys from Keyed Physical File

[Robert Rogerson <rogersonra@xxxxxxxxx>]

Rob, that was my first thought as well.

 Message ID . . . . . . :   CPD32B1       Severity . . . . . . . :   20
 Message type . . . . . : Diagnostic
 Date sent  . . . . . . :   02/22/19      Time sent  . . . . . . :   
11:17:11

 Message . . . . :   Constraint cannot be removed from file PWDTLPROB.
 Cause . . . . . :   Constraint *ALL cannot be removed from file 
PWDTLPROB in
   library TSXROBWRK for TYPE value *ALL, RMVCST value *REMOVE. The 
constraint
   was not removed because of errors. The reason code is 12. The reason 
codes
   and their meanings are as follows:
     01 - CST(*CHKPND) and TYPE(*UNQCST) or TYPE(*PRIKEY) not valid.

     11 - Error with QADBFCST cross reference file.
     12 - File has no constraints.
     13 - Check constraint associated with the primary key cannot be 
removed

Also if I look for indexes in TSXROBWRK there are none.  But I right 
click on the file in Schemas and Work with Indexes then there is one row 
with the same name as the phsysical file.  And it's type is Keyed 
Physical file

But thanks,

Rob

On 2/22/2019 2:11 PM, Rob Berendt wrote:
> Can you try RMVPFCST?
> I have used ADDPFCST to create a key over a file created by DSPUSRPRF OUTPUT(*FILE)...
>
> -----Original Message-----
> From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Robert Rogerson
> Sent: Friday, February 22, 2019 2:02 PM
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
> Subject: Removing keys from Keyed Physical File
>
> Hi all,
>
> I'm trying to create a journal extract file which will format JOESD from DSPJRN.
>
> I have it more or less working.  I use CRTDUPOBJ of the journaled file and then ALTER TABLE to add the journal fields.
>
> As I said I have this working.  The problem I just found was that the CRTDUPOBJ still creates a keyed physical file.
>
> Before I change the process to an all SQL solution I'm wondering if anyone knows a way to remove the keys from the keyed physical file.
>
> I haven't found a way but I thought someone else may of a way. If not I'll use and sql approach...
>
> Thanks,
>
> Rob
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com