Clarion - Test Prop:DataPath

TestDataPath

          END 
        END       

  CODE                     
  TextFile{PROP:Name} = 'Yada.txt'
  DO CreateFile

  SYSTEM{PROP:DataPath} = 'C:\TMP'
  DO CreateFile

  TextFile{PROP:Name} = 'Testing.txt'  !<-- if don't re-set this, then the changed DataPath does not come into play...
  DO CreateFile       

  SYSTEM{PROP:DataPath} = 'C:\TMP\1.2.3'
  TextFile{PROP:Name} = 'Testing.txt'
  DO CreateFile


CreateFile ROUTINE
  CREATE(TextFile)
  IF ERRORCODE() 
       MESSAGE('CREATE(TextFile) failed|Error['& Error() &']|ErrorFile['& ERRORFILE() &']') 
  ELSE OPEN(TextFile)
       MESSAGE('Created File['& NAME(TextFile) &']') 
       CLOSE(TextFile)
  END