/*MAIN.P */
DEFINE NEW SHARED VARIABLE cust LIKE customer.cust-num.
DEFINE NEW SHARED VARIABLE ordno AS INT FORMAT ">>>>>>>".
DEFINE NEW SHARED VARIABLE repno AS CHARACTER FORMAT "X(2)".
DEFINE NEW SHARED VARIABLE invper LIKE sysmstr.prod-inv-per.
/**********************************...
/* OE-01A.p */
DEFINE NEW SHARED VARIABLE flename AS CHARACTER FORMAT "X(15)". /* Locked File Name */
DEFINE NEW SHARED VARIABLE prgname AS CHARACTER FORMAT "X(15)". /* Program Name */
DEFINE SHARED VARIABLE ssno LIKE passfile.soc-sec-num.
DEFINE SHARED VARIABLE ordno AS INT...
I'm having some trouble with a record's locking scope.
Our table SYSMST2 keeps track of the next available order number. Using OE-01A.P, we need to increment SYSMST2.nextord in each time we enter a new order in MAIN.P below. We want to unlock SYSMST2 immediately after incrementing...
Thanks, Stefan.
So what happens when a program executes "RUN X" (no .r or .p)? In this case, Progress in my environment never runs the .p; it only looks for .r files in the PROPATH. That's why I'm surprised to see Progress reference source code instead of run-time code at all when I reference...
If I reference a static class within a program (example: "x:methodname();"), why would Progress reference the source code of a class (X.CLS) instead of its run-time code (X.R)?
Here's my situation:
I have the following PROPATH in my dev environment...
Is this what you're after?
DEF VAR I AS INTEGER.
/* The program will accept the user's input for the I value and continue after the user presses F1 or ENTER. */
UPDATE I GO-ON(F1 ENTER).
IF LASTKEY=KEYCODE("F1") THEN
DO:
/* Do whatever you want*/
message "F1 PRESSED! VALUE OF I IS"...
OpenEdge Release: 10.2B07
Eclipse Platform Version: 3.4.2.R342_v20090122-9I96EiWElHi8lheoJKJIvhM3JfVsYbRrgVIWL
In the AppBuilder, I'm using the ProBindingSource Designer to bind a Progress database table to a BindingSource object. However, I can't see all of the tables in my database; it looks...
DEFINE VARIABLE y AS CHARACTER FORMAT "X(1)".
FORM
y VIEW-AS EDITOR size 60 by 11 SCROLLBAR-VERTICAL AT 10 SKIP(1)
HEADER "Title" AT 25 SKIP(1)
WITH NO-LABELS NO-UNDERLINE NO-BOX DOWN FRAME work2.
y = "This is a lot of text~n~n~n~n~n~n This is a lot of text.".
DISPLAY y WITH...
OpenEdge Release: 10.2B07
Database: Type II
Our databases use backups and after images. I know how to recover the databases to a certain time by rolling AI files forward against a backup file. Is it possible to skip parts of AI file operations?
For example, a user makes a critical data entry...
I did, and it said I have nothing to update. I guess I'm up to speed, then. Thanks!
Would the service pack affect the database and our software? What are the risks involved in upgrading? Where can I find SP8's new features/fixes?
I want to make sure I have the latest version of OpenEdge Architect for OpenEdge 10.2b Service Pack 7.
Here's what I currently have:
Progress OpenEdge Architect: 10.2.1.07
Eclipse Platform: 3.4.0
Are these the latest versions I can use for our version of Progress?
Maybe this is a better question:
How do I use the Criteria field (aud-event-policy._Event-criteria) in Audit Policy Maintenance? Where can I find the syntax for the criteria conditional? I was unable to find any documentation on this field.
Is it possible to audit an event only under certain conditions without using application level events?
For instance, let's say I have an integer field "ON-HAND" in the "ITEM" table. I want to audit updates to ON-HAND only if its new value is greater than 100. How can I do that?
The EDITING block works like a charm, and it's easy to add it to existing code.
Just for reference, this is what I did:
DEFINE VARIABLE workno AS INTEGER.
REPEAT:
UPDATE workno AT 1 GO-ON(ESC F4)
WITH NO-LABELS NO-UNDERLINE NO-BOX FRAME c
EDITING:
READKEY...
repeat:
update block GO-ON(F5 PF4 F4) WITH FRAME setup4.
IF LASTKEY=KEYCODE("F5") THEN LEAVE.
IF LASTKEY=KEYCODE ("PF5") THEN LEAVE.
IF LASTKEY=KEYCODE("F4") OR
LASTKEY=KEYCODE("PF4") OR
LASTKEY=KEYCODE("ESC") THEN LEAVE.
END.
Is there an easy way to force the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.