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: DDUCHK2

Package: VA FileMan

Routine: DDUCHK2


Information

DDUCHK2 ;SFISC/RWF/SO-CHECK DD (FIELDS) ;20MAR2014

Source Information

Source file <DDUCHK2.m>

Entry Points

Name Comments DBIA/ICR reference
CHK6 ;W !?5,"Checking FIELDs"
FIELD ;W "."
FIVE
VP
PT
PT1
Q
MULT ;Work subfile
PUSH
POP
WHO
CHKSB ;Check for duplicate "SB" x-refs ;22*130
CHKSBA ;Check if Feidl exists
CHKGL ;Check for duplicate "GL" nodes ;22*130

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE," is missing its zero node."
  • Line Location: FIELD+1
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE,"'s Input Transform contains $Next."
  • Line Location: FIELD+3
Function Call: WRITE
  • Prompt: "doesn't have the correct protection for a field with executable code."
  • Line Location: FIELD+4
Function Call: WRITE
  • Prompt: !?10,"^DD(",DDUCFI,",",DDUCFE,",9) = ""@"" was set."
  • Line Location: FIELD+4
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to missing file: ",DDUCRFI
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to File: "_DDUCRFI_", is missing file's ""GL"" (Global Location) node."
  • Line Location: PT+4
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to File: "_DDUCRFI_", missing File header node."
  • Line Location: PT+6
Function Call: WRITE
  • Prompt: "is missing its 'PT' node in the pointed-to-file."
  • Line Location: PT1+0
Function Call: WRITE
  • Prompt: !?10,"^DD(",+DDUCRFI,",0,""PT"",",DDUCFI,",",DDUCFE,") = """" was set."
  • Line Location: PT1+0
Function Call: WRITE
  • Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") missing subfile: ",+DDUCX2
  • Line Location: MULT+2
Function Call: WRITE
  • Prompt: "Bad 'UP' pointer in subfile #",+DDUCX2
  • Line Location: MULT+3
Function Call: WRITE
  • Prompt: !?10,"^DD(",+DDUCX2,",0,""UP"") = ",DDUCFI," was set."
  • Line Location: MULT+3
Function Call: WRITE
  • Prompt: !?8,"Field: ",DDUCFE," (",DDUCXN,") "
  • Line Location: WHO+0
Function Call: WRITE
  • Prompt: !?5,"*Duplicate Fields represent Sub-file: "_DDUCSB,!?7
  • Line Location: CHKSB+16
Function Call: WRITE
  • Prompt: "field: "_X1_"; "
  • Line Location: CHKSB+17
Function Call: WRITE
  • Prompt: !?7,"*Field: "_DDUCFE_", File: "_DDUCFI_", ""SB"" subscript for subfile: "_DDUCSB_" is missing."
  • Line Location: CHKSBA+1
Function Call: WRITE
  • Prompt: !?5,"*Duplication at global location subscript: "_$P(X1,";")_", piece: "_$P(X1,";",2),!?9
  • Line Location: CHKGL+17
Function Call: WRITE
  • Prompt: "field: "_X3_"; "
  • Line Location: CHKGL+20
Info |  Source |  Entry Points |  Interaction Calls