November 3

0 comments

JBA System21 Customer Inquiry (or should that be Enquiry)

By NickLitten

November 3, 2008

#Customer, #Inquiry, #SYSTEM21

Prompting a list of all customers defined in Sales Ledger (or Account Receivable as its also known) is simple from within any JBA RPG program.

A call to SL016 – JBA Customer Inquiry – pops a window up, you select you customer using various subset, selection functions and it will be returned to the calling program via the *LDA

Sample RPGLE code could be:

L#CUSN is the returned customer code defined at:

D L#CUSN 482 489

And you can display the customer selection window like this:

// If customer prompt has been requested, do so.
// Note: oslsl* needs to be in *libl
‚Äč/free
 CUSN L#CUSN = CUSN??
 IF *INKD;
 Out LDA;
 Call 'SL016'; // or whatever prototype you have created to call this RPG*PGM
 In LDA;
 CUSN?? = L#CUSN; //populate the return customer number
 EndIf;

Obviously the Selected customer code is returned via *LDA variable L#CUSN (defined earlier) and in this case you can see that the window looks like this:

JBA System21 Customer Inquiry (or should that be Enquiry) 1

{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}

Join the IBM i Community for FREE Presentations, Lessons, Hints and Tips

>

Snug CBD

 20% Discount

I have partnered with SNUG CBD givING you Organic CBD
20% discount code "NL20"