QMClient Example

The program samples below show how the QMClient API can be used to build a simple application that displays details from a sales order system. They are based on the QM demonstration files that can be created using the SETUP.DEMO command. For simplicity, some error handling that would be appropriate to a real application has been omitted.

Click on the language name in the blue bar to show the example for that language.

Class Module

program example

prompt ''

session = object('!qmclient')

if not(session->Connect('127.0.0.1', -1, 'username', 'password', 'demo')) then

stop 'Failed to connect to server: ' : session->Error

end

* Open files

fSales = session->Open('SALES')

if fSales = 0 then stop 'Cannot open SALES file'

fStock = session->Open('STOCK')

if fStock = 0 then stop 'Cannot open STOCK file'

fCustomers = session->Open('CUSTOMERS')

if fCustomers = 0 then stop 'Cannot open CUSTOMERS file'

* Prompt for order number repeatedly until a blank is entered

loop

display 'Enter order number, blank to terminate:' :

input SaleId

until SaleId = ''

SaleRec = session->Read(fSales, SaleId, Err)

SaleDate = SaleRec<1>

SaleCust = SaleRec<2>

SaleItems = SaleRec<3>

SaleNumItems = dcount(SaleItems, @vm)

CustRec = session->Read(fCustomers, SaleCust, Err)

CustName = CustRec<1>

display

display 'Order Number ' : SaleId : ' (' : CustName : ')'

display

display 'Cust Date..... Item Description Qty Price Total'

Prefix = SaleCust : ' ' : oconv(SaleDate, 'D2DMYL[,A3]')

SaleTotal = 0

for line = 1 to SaleNumItems

ItemId = SaleRec<3,line>

ItemQty = SaleRec<4,line>

ItemPrice = SaleRec<5,line>

ItemPriceExt = oconv(ItemPrice, 'MD2')

StockRec = session->Read(fStock, ItemId, Err)

StockDescr = StockRec<1>

ItemTotal = ItemPrice * ItemQty

SaleTotal += ItemTotal;

ItemTotalExt = oconv(ItemTotal, 'MD2')

* 0 1 2 3 4 5 6 7

* 12345678901234567890123456789012345678901234567890123456789012345678901234567890

* Cust Date..... Item Description Qty Price Total

* xxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx xxxxxxx xxxxxxx

s = space(76)

s[1,15] = Prefix

s[18,4] = ItemId

s[24,30] = StockDescr

s[56,3] = fmt(ItemQty, '3R')

s[61,7] = fmt(ItemPriceExt, '7R')

s[61,7] = fmt(ItemTotalExt, '7R')

display s

Prefix = ''

next line

SaleTotalExt = oconv(SaleTotal, 'MD2')

display fmt('=======', '76R')

display fmt(SaleTotalExt, '76R')

repeat

session->Disconnect()

end

import qmclient.*;

import java.io.*;

class ex

{

private static qmclient qm;

public static void main(String[] args) throws IOException

{

int fSales; // SALES file

int fStock; // STOCK file

int fCustomers; // CUSTOMERS file

String SaleId; // SALES record id

String SaleRec; // SALES record

String SaleDate; // Date

String SaleCust; // Customer id

String SaleItems; // Items in order

int SaleNumItems; // Order line count

int SaleTotal; // Total value of order, internal format

String SaleTotalExt; // Total value of order, external format

String CustRec; // Customer record

String CustName; // Customer name

String ItemId; // Item id

String ItemQty; // Quantity in order line

String ItemPrice; // Price, internal format

String ItemPriceExt; // Price, external format

int ItemTotal; // Item total, internal format

String ItemTotalExt; // Item total, external format

String StockRec; // Stock record

String StockDescr; // Item description

String Prefix; // Single valued items as line prefix

int line; // Order line counter

qm = new qmclient();

if (!qm.ConnectLocal("demo"))

{

System.out.println("Failed to connect to server: " + qm.Error);

return;

}

// Open files

fSales = qm.Open("SALES");

if (fSales == 0)

{

System.out.println("Cannot open SALES file");

return;

}

fStock = qm.Open("STOCK");

if (fStock == 0)

{

System.out.println("Cannot open STOCK file");

return;

}

fCustomers = qm.Open("CUSTOMERS");

if (fCustomers == 0)

{

System.out.println("Cannot open CUSTOMERS file");

return;

}

// Prompt for order number repeatedly until a blank is entered

while(true)

{

System.out.print("Enter order number, blank to terminate:");

SaleId = System.console().readLine();

if (SaleId.length() == 0) break;

SaleRec = qm.Read(fSales, SaleId);

SaleDate = qm.Extract(SaleRec, 1, 0, 0);

SaleCust = qm.Extract(SaleRec, 2, 0, 0);

SaleItems = qm.Extract(SaleRec, 3, 0, 0);

SaleNumItems = qm.Dcount(SaleItems, "\u00FD");

CustRec = qm.Read(fCustomers, SaleCust);

CustName = qm.Extract(CustRec, 1, 0, 0);

System.out.println("");

System.out.println("Order Number " + SaleId + " ("+CustName+")");

System.out.println("");

System.out.println("Cust Date..... Item Description Qty Price Total");

Prefix = SaleCust + " " + qm.OConv(SaleDate, "D2DMYL[,A3]");

SaleTotal = 0;

for(line = 1; line <= SaleNumItems; line++)

{

ItemId = qm.Extract(SaleRec, 3, line, 0);

ItemQty = qm.Extract(SaleRec, 4, line, 0);

ItemPrice = qm.Extract(SaleRec, 5, line, 0);

ItemPriceExt = qm.OConv(ItemPrice, "MD2");

StockRec = qm.Read(fStock, ItemId);

StockDescr = qm.Extract(StockRec, 1, 0, 0);

ItemTotal = Integer.valueOf(ItemPrice) * Integer.valueOf(ItemQty);

SaleTotal += ItemTotal;

ItemTotalExt = qm.OConv(String.valueOf(ItemTotal), "MD2");

System.out.printf("%15s %4s %-30s %3s %7s %7s %n",

Prefix, ItemId, StockDescr, ItemQty, ItemPriceExt, ItemTotalExt);

Prefix = "";

}

SaleTotalExt = qm.OConv(String.valueOf(SaleTotal), "MD2");

System.out.printf("%76s%n", "=======");

System.out.printf("%76s%n", SaleTotalExt);

}

qm.Disconnect();

}

import qmclient as qm

import sys

# ======================================================================

VM = chr(253)

if not(qm.ConnectLocal("DEMO")):

print("Failed to connect to server: ", qm.Error())

sys.exit()

# Open files

fSales = qm.Open("SALES")

if fSales == 0:

print("Cannot open SALES file")

sys.exit()

fStock = qm.Open("STOCK")

if fStock == 0:

print("Cannot open STOCK file")

sys.exit()

fCustomers = qm.Open("CUSTOMERS")

if fCustomers == 0:

print("Cannot open CUSTOMERS file")

sys.exit()

# Prompt for order number repeatedly until a blank is entered

while True:

SaleId = input("Enter order number, blank to terminate:")

if SaleId == "": break

SaleRec, Err = qm.Read(fSales, SaleId)

SaleDate = qm.Extract(SaleRec, 1, 0, 0)

SaleCust = qm.Extract(SaleRec, 2, 0, 0)

SaleItems = qm.Extract(SaleRec, 3, 0, 0)

SaleNumItems = qm.Dcount(SaleItems, VM)

CustRec, Err = qm.Read(fCustomers, SaleCust)

CustName = qm.Extract(CustRec, 1, 0, 0)

print("")

print("Order Number", SaleId, " ("+CustName+")")

print("")

print("Cust Date..... Item Description Qty Price Total")

Prefix = SaleCust + " " + qm.OConv(SaleDate, "D2DMYL[,A3]")

SaleTotal = 0

for line in range(1, SaleNumItems + 1):

ItemId = qm.Extract(SaleRec, 3, line, 0)

ItemQty = qm.Extract(SaleRec, 4, line, 0)

ItemPrice = qm.Extract(SaleRec, 5, line, 0)

ItemPriceExt = qm.OConv(ItemPrice, "MD2")

StockRec, Err = qm.Read(fStock, ItemId)

StockDescr = qm.Extract(StockRec, 1, 0, 0)

ItemTotal = int(ItemPrice) * int(ItemQty)

SaleTotal += ItemTotal

ItemTotalExt = qm.OConv(str(ItemTotal), "MD2")

print('{:<15} {:>4} {:<30} {:>3} {:>7} {:>7}'.format(Prefix,

ItemId, StockDescr, ItemQty, ItemPriceExt, ItemTotalExt))

Prefix = ""

SaleTotalExt = qm.OConv(str(SaleTotal), "MD2")

print('{:>76}'.format("======="))

print('{:>76}'.format(SaleTotalExt))

qm.Disconnect()