Category : Paradox DBMS
Archive   : PDXGTFLD.ZIP
Filename : SAMPLE.SC

 
Output of file : SAMPLE.SC contained in archive : PDXGTFLD.ZIP

; Hi... This is a sample script using this wonderful
; Little routine.
; If you use it I don't care...Paradox is way to hard
; without little routines to help.
; Hope you can use it.
;
; I Highly recommend that this proc be compiled and run from
; a library!
;
; Stephen Kravats ... Bytemaster Consultants...BBS (410)766-4490

Play "GetField"
Clear
@ 14,33 ?? " to Exit"
While TRUE
VLen = 10
Temp = "test val"
GetField(1,10,"A",VLen,Temp)
TKChar = retval
TmpPos = Search("{",TKChar)
keyl = TmpPos - 1
KeyNm = NUMVAL(SubStr(TKChar,1,keyl))
ValNm = SubStr(TKChar,TmpPos+1,VLen)
if KeyNm = 27 Then
quitloop
endif
@ 2,26 ?? " Returned ---->"+TKChar+"<----"
@ 3,26 ?? "Key Returned ---->"+STRVAL(KeyNm)+"<----"
@ 4,26 ?? "Val Returned ---->"+ValNm+"<----"
VLen = 5
Temp = 301
GetField(5,10,"N",VLen,Temp)
TKChar = retval
TmpPos = Search("{",TKChar)
keyl = TmpPos - 1
KeyNm = NumVal(SubStr(TKChar,1,keyl))
ValNm = SubStr(TKChar,TmpPos+1,VLen)
if KeyNm = 27 Then
quitloop
endif
@ 6,26 ?? " Returned ---->"+TKChar+"<----"
@ 7,26 ?? "Key Returned ---->"+STRVAL(KeyNm)+"<----"
@ 8,26 ?? "Val Returned ---->"+ValNm+"<----"
VLen = 1
Temp = "N"
GetField(9,10,"Y",VLen,Temp)
TKChar = retval
TmpPos = Search("{",TKChar)
keyl = TmpPos - 1
KeyNm = NUMVAL(SubStr(TKChar,1,keyl))
ValNm = SubStr(TKChar,TmpPos+1,VLen)
if KeyNm = 27 Then
quitloop
endif
@ 10,26 ?? " Returned ---->"+TKChar+"<----"
@ 11,26 ?? "Key Returned ---->"+STRVAL(KeyNm)+"<----"
@ 12,26 ?? "Val Returned ---->"+ValNm+"<----"
ENDWHILE
Release Procs GetField
Clear
ClearAll
Return