--
--
IMPORTANT: T24/Globus posts are no longer accepted on this forum.
To post, send email to jB...@googlegroups.com
To unsubscribe, send email to jBASE-un...@googlegroups.com
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
---
You received this message because you are subscribed to the Google Groups "jBASE" group.
To unsubscribe from this group and stop receiving emails from it, send an email to jbase+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/jbase/54d2fd8d-7d18-4e88-804d-a447e01a689dn%40googlegroups.com.
Here’s a thought. Can you store your parameter in one of the Proc Buffers and then instead of a Function, write a program that performs a PROCREAD to get the buffer contents, and puts the result back into the Buffer?
--
To view this discussion on the web visit https://groups.google.com/d/msgid/jbase/1f0a6ff7-4f75-4f85-ad18-1dc8507fbbf2n%40googlegroups.com.
jBase used to support proc user exits, for compatibility with the old assembler versions.
I suspect the code still works.
We don’t use them but here’s a sample, docs might still be out there somewhere.
The jpq_namedcommon variables allow for query and setting of the buffer pointers.
SUBROUTINE U088(result, source, code, type, error)
INCLUDE jpq_namedcommon
Ptr = IPBUFFPTR
IF Ptr > 1 THEN Ptr +=1 ; ! skip over the blank
IF PQproc THEN
Delim = " "
END ELSE
Delim = CHAR(254)
END
ucode = code<1,1,1>
! if called as U1088 then the prompt will be :
! if called as U(2-F) then the prompt will be "?"
! can thus be customized for 16 prompt chars
BEGIN CASE
CASE ucode = "1"
PROMPT ":"
CASE 1
PROMPT "?"
END CASE
INPUT Q
CurrData = IPBUFFER[Ptr,9999]
CData = FIELD(CurrData,Delim,1)
IF Q # "" THEN
P1 = IPBUFFER[1,Ptr-1]
P2 = CurrData[COL2(),999]
IPBUFFER = P1:Q:P2
END
RETURN
From: jb...@googlegroups.com <jb...@googlegroups.com> On Behalf Of Joyce White
Sent: Thursday, May 20, 2021 12:03 PM
To: jBASE <jb...@googlegroups.com>
To view this discussion on the web visit https://groups.google.com/d/msgid/jbase/b10eaa18-98df-4b8e-ac81-b300e528775dn%40googlegroups.com.
On May 20, 2021, at 12:24 PM, ma...@proman.com wrote:
To view this discussion on the web visit https://groups.google.com/d/msgid/jbase/003e01d74dad%24adf42aa0%2409dc7fe0%24%40proman.com.