Hi everyone!
Can't understand where is my mystake in using LOAD program instruction.
Code
PROGRAM testkarel
VAR
prog_name :STRING[12]
ListSTATUS :INTEGER
LoadSTATUS :INTEGER
prog_type IN DRAM :INTEGER
n_match IN DRAM :INTEGER
n_skip IN DRAM :INTEGER
format IN DRAM :INTEGER
ary_nam IN DRAM :ARRAY[5] OF STRING[20]
BEGIN
prog_name = 'perch_init' -- Only interested in PERCH_INIT program
prog_type = 6 -- Interested only in PC type files
n_skip = 0 -- First time do not skip any files
format = 1 -- Return just the filename
PROG_LIST(prog_name, prog_type, n_skip, format, ary_nam, n_match, ListSTATUS)
LOAD (prog_name+'.PC', 0, LoadSTATUS)
END testkarel
Display More
As relult, I have:
ListSTATUS = 0
ary_nam[1]='perch_init'
LoadSTATUS=2014 - file not found.
Can't understand, what's the problem