Posted by Marc on July 20, 2007 at 16:37:43:
In Reply to: Re: edi record posted by Jim Guerber on July 20, 2007 at 16:22:37:
Sorry Jim - wasn't specific enough in my request. I was wondering if the length is returned anywhere if the the following instruction is executed:
print (0) (FileStatus=file,flags)
After this mnemonic is issued, your program can issue an INPUT on LUN (0) to retrieve the file status information and error information. For example:
LENGTH 2 & LOCAL AX$,DX$
LENGTH 254 & LOCAL RESULT$
ResultFmt: FORMAT AX$;DX$;RESULT$
.
.
Print (FileStatus=File$,Flags)
Input (0,ResultFmt)
! The file name starts at position 31
Result$ = Sub(Result$, 31, 254)
! Find length of strng
Delim = Pos("@00@", Result$)
If (Delim NE 0) Then _
Result$ = Sub(Result$, 1, Delim-1)
Print "Filename:";Result$
The file name starts at position 31 of the RESULT$ field.