Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DIKKUTL4

Package: VA FileMan

Routine: DIKKUTL4


Information

DIKKUTL4 ;SFISC/MKO-KEY DEFINITION, READER PROMPTS ;10:01 AM 15 Jul 1998

Source Information

Source file <DIKKUTL4.m>

Entry Points

Name Comments DBIA/ICR reference
RORM(DIKKUFLD,DIKKFLD) ;
EORD(DIKKID,DIKKFL) ;Choose to edit or delete the key.
EDORC() ;Choose to edit key, delete key, or create a Uniqueness Index
EDORI() ;Choose to edit key, delete key, or create a Uniqueness Index

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Key fields and the fields in the Uniqueness Index don't match."
  • Line Location: RORM+2
Function Call: WRITE
  • Prompt: !,@$S(I:"?6",1:"?0"),DIKKMSG(I)
  • Line Location: EORD+7
Function Call: WRITE
  • Prompt: !,$C(7)_"NOTE: All Keys must have a Uniqueness Index defined."
  • Line Location: EDORC+3
Function Call: WRITE
  • Prompt: !!,$C(7)_"ERROR: The key is not unique and/or some records have key field values missing."
  • Line Location: EDORI+3
Info |  Source |  Entry Points |  Interaction Calls