progress-4gl

def var cList as char no-undo. assign cList = "one,two,three,four". <Loop> cList logic... </Loop> What's the best way to loop through a comma delimited list in a char variable so that in this example I would get one then two then three then four. Lol I still remember a bit of Progress I think. DEF VAR i AS INT NO-UNDO. &SCOPED-DEFINE LIST "one,two,three,four" DO i=1 TO NUM-ENTRIES({&LIST}): MESSAGE SUBSTITUTE("LIST[&1] is &2", i, ENTRY(i, {&LIST})). END. DEFINE VARIABLE ch-list AS CHARACTER NO-UNDO. DEFINE VARIABLE i-cnt AS INTEGER NO-UNDO. DEFINE VARIABLE i-entry AS INTEGER NO-UNDO. ASSIGN ch

I was wondering how to send messages to another user using Progress 4gl. We are trying to cut down on the PA speaker where I work and I want some way to notify a certain user/users of some predefined messages. I'm not sure if this is even possible with Progress, or if there is a message queue that can be used. If anyone has any samples, ideas or has done this before, please let me know. Thanks!! You might find this helpful: Following on from presentations in Boston and Finland, dot.r is pleased to announce the open source Stomp project, available immediately. Download from either http://www

The Progress docs spill plenty of ink on SOAP, but I'm having trouble finding the example for a simple HTTP GET/POST with Progress ABL. How do I GET and POST strings to/from a URL? Can the URL be https://? Can Progress provide HTTP Basic or HTTP Digest authentication? Openedge has built in statements for handling SOAP services, but no simple statement for a GET/POST. What it does have, however, is a mechanism to read / write to specific sockets. So you could use this to build a HTTP post routine, or for that matter a routine to handle any other socket based protocol. There is a routine - http

Is there a way to group records by a field within a table within a 4gl query? My code. define variable v-invoice as inte no-undo. define variable v-sell-price as decimal no-undo. define variable v-cost-price as decimal no-undo. define variable iinv as integer no-undo. For each Order no-lock : v-invoice = Order.tblinvoice. v-sell-price = Order.sell-price. v-cost-price = Order.cost-price. iinv = iinv + Order.sell-price. display Order.invoice Order.sell-price. end. Thank you Yes, of course you can, very basic: DEFINE VARIABLE v-sell-price AS INTEGER NO-UNDO. DEFINE VARIABLE v-cost-price AS

I have a number of subreports in which I calculate totals. In the main report I need the sum of those totals. I don't know how to get acces to the totals in the subreports. You need to look into using Shared Variables, which can be read and written to by both the parent report and its subreports. Example : In parent report, a formula to initialise things called 'InitTotal', containing the text : Shared NumberVar MyTotal := 0; Place this formula in the report header and suppress it. Add a formula to each subreport called 'AddTotal', containing the text : Shared NumberVar MyTotal := MyTotal +