Thanks for the advice! My validation check is pretty simple, I've decided to just include it in the proc. Now I have another issue with it, but I'll submit another question because it's a different topic. Joyce
On Thursday, May 20, 2021 at 3:33:39 PM UTC-4 pfalson wrote: > Additionally, depending on your jBASE version, you can place DEBUG ON in > your proc (after the PQ) and view the buffers. > > Sent from my iPhone > > On May 20, 2021, at 12:24 PM, [email protected] wrote: > > > > 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:* [email protected] <[email protected]> *On Behalf Of *Joyce > White > *Sent:* Thursday, May 20, 2021 12:03 PM > *To:* jBASE <[email protected]> > *Subject:* Re: Call jBASE Function from Within a Proc? > > > > Thanks, I find procs to be challenging because I'm not in them often. In > this case, I think I'm just going to write the check into the PROC. It > should be a pretty simple check. Thanks for the suggestions - I appreciate > the advice and help! > > Joyce > > On Thursday, May 20, 2021 at 2:52:00 PM UTC-4 edclark wrote: > > No, I don’t think you can call it from proc directly. You would have to > run it. You probably need a wrapper program that would call your > subroutine—unless jBase lets you run subroutines now. Last time I used > jBase (quite a while ago) IIRC it didn’t allow you to CALL a program, or to > EXECUTE a subroutine. > > A wrapper program can use SYSTEM(27) to determine if it is running from a > proc and use PROCREAD to get the parameter from the input buffer, or > SENTENCE() to get it from the command line (proc primary output buffer). > > > > On May 20, 2021, at 13:26, Joyce White <[email protected]> wrote: > > > > So from your answer, it seems like I CAN call a jBASE subroutine from a > proc, just not with parameters? What is the syntax I would use to call a > subroutine with no parameters from a proc? > > Joyce > > On Thursday, May 20, 2021 at 12:32:25 PM UTC-4 edclark wrote: > > Unless there have been some enhancements to icl, I don’t think that you > can call a subroutine with parameters. > > Your validation program can either parse the parameter from the command > line, or retrieve it with PROCREAD. It can use PROCWRITE to return its > result, or use STOP, and then the proc can check IF E > > > > On May 20, 2021, at 12:01, Joyce White <[email protected]> wrote: > > > > Hi, I have a proc (jcl program) that needs a "date check". I'd like to > write a jBASE function for the date check, then call it from within the > proc, having it return to the proc after it checks the date. Is this > doable? If so, what syntax would I use to call the jBASE function > (LIFE.LEFT.b) from within the proc? > > > > I'm trying the line below and it's not working. My function is LIFE.LEFT, > and it takes a parameter that the user enters in the previous line (%3). > > > > IF [LIFE.LEFT(%3)] = 1 GO 999 > > > > Thanks, > > Joyce > > > > -- > -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > 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 [email protected]. > To view this discussion on the web visit > https://groups.google.com/d/msgid/jbase/54d2fd8d-7d18-4e88-804d-a447e01a689dn%40googlegroups.com > > <https://groups.google.com/d/msgid/jbase/54d2fd8d-7d18-4e88-804d-a447e01a689dn%40googlegroups.com?utm_medium=email&utm_source=footer> > . > > > > > > -- > -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > 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 [email protected]. > > To view this discussion on the web visit > https://groups.google.com/d/msgid/jbase/1f0a6ff7-4f75-4f85-ad18-1dc8507fbbf2n%40googlegroups.com > > <https://groups.google.com/d/msgid/jbase/1f0a6ff7-4f75-4f85-ad18-1dc8507fbbf2n%40googlegroups.com?utm_medium=email&utm_source=footer> > . > > > > -- > -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > 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 [email protected]. > To view this discussion on the web visit > https://groups.google.com/d/msgid/jbase/b10eaa18-98df-4b8e-ac81-b300e528775dn%40googlegroups.com > > <https://groups.google.com/d/msgid/jbase/b10eaa18-98df-4b8e-ac81-b300e528775dn%40googlegroups.com?utm_medium=email&utm_source=footer> > . > > -- > -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > 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 [email protected]. > > To view this discussion on the web visit > https://groups.google.com/d/msgid/jbase/003e01d74dad%24adf42aa0%2409dc7fe0%24%40proman.com > > <https://groups.google.com/d/msgid/jbase/003e01d74dad%24adf42aa0%2409dc7fe0%24%40proman.com?utm_medium=email&utm_source=footer> > . > > -- -- IMPORTANT: T24/Globus posts are no longer accepted on this forum. To post, send email to [email protected] To unsubscribe, send email to [email protected] 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 [email protected]. To view this discussion on the web visit https://groups.google.com/d/msgid/jbase/81ef1cd7-2603-48e3-aeb5-ce67e40ab126n%40googlegroups.com.
