progress-4gl

问题 I have problem with converting Progress OpenEdge database to PostgreSQL. I have downloaded ODBC from here and when i make ODBC connection (32 bit) in my computer, the connection is established. Next, I downloaded Ispirer SQLWays Wizard 2015 from here (with some limitations, 100 tables max, 2gb od data etc), and tried to make conversion. All seem fine, source and destination databases are connected, I select only 1 table (just for test), but when I start conversion i get some weird error:

问题 DEFINE VARIABLE wlc-Identifiant AS CHARACTER NO-UNDO. DEFINE VARIABLE wlc-file-txt AS CHARACTER NO-UNDO. wlc-Identifiant = STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + REPLACE(STRING(TIME, "HH:MM:SS"), ":", ""). wlc-file-txt = wlc-Identifiant + "foo.txt". DEFINE STREAM outStr. OUTPUT STREAM outStr TO VALUE (wlc-file-txt). FOR EACH customer NO-LOCK: EXPORT STREAM outStr customer. END. OUTPUT STREAM outStr CLOSE. RUN sendmail.p (INPUT wlc-file-txt). /*

问题 DEFINE VARIABLE wlc-Identifiant AS CHARACTER NO-UNDO. DEFINE VARIABLE wlc-file-txt AS CHARACTER NO-UNDO. wlc-Identifiant = STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + REPLACE(STRING(TIME, "HH:MM:SS"), ":", ""). wlc-file-txt = wlc-Identifiant + "foo.txt". DEFINE STREAM outStr. OUTPUT STREAM outStr TO VALUE (wlc-file-txt). FOR EACH customer NO-LOCK: EXPORT STREAM outStr customer. END. OUTPUT STREAM outStr CLOSE. RUN sendmail.p (INPUT wlc-file-txt). /*

问题 I've run across this code in a number of places: DEFINE BUFFER Customer FOR Customer. I have two questions: What is the purpose of this? Why is it beneficial to create a buffer with the same name as the table? When writing code to access this table/buffer, how does Progress know whether to access the DB directly or through the buffer? 回答1: 1: It's usually done to manage the scope of the buffers. If you have, for example, a procedure with a number of internal procedures which all access the

问题 Is there any way to send files from a local folder to an FTP folder using Progress? 回答1: If you're running windows, then WinSCP is a good solution: http://winscp.net/eng/index.php 回答2: The "classic" way to do this is to send the commands that you would use if you were doing this manually to the built-in FTP command. If you know that you want to send a file called "myfile.txt" to the server at 192.168.0.1 you might code: define variable IPAddr as character no-undo. define variable fileName as

问题 define variable hOrderQuery as handle no-undo. define variable browseOrder-hdl as handle no-undo. define variable browse-hdl as handle no-undo. define variable CNumber as integer no-undo. CREATE QUERY hQuery. hQuery:SET-BUFFERS(BUFFER Customer:HANDLE). hQuery:QUERY-PREPARE("FOR EACH Customer"). hQuery:QUERY-OPEN(). CREATE BROWSE browse-hdl ASSIGN TITLE = "Customer Browser" FRAME = FRAME MyFrame:HANDLE QUERY = hQuery X = 2 Y = 2 WIDTH = 74 DOWN = 10 VISIBLE = YES SENSITIVE = TRUE READ-ONLY =

问题 I'm new to the progress Sax-reader. I'm reading an XML and I'm trying to get the value of one of the attributes in a node. Specifically the place-id attribute value. <address ssid="32975" place-id="11537" quality="good"> I'm reading the documentation here: https://documentation.progress.com/output/ua/OpenEdge_latest/index.html#page/dvxml%2Fretrieving-data-from-a-sax-attributes-object.html%23wwID0ECILM and to me that seems to indicate I should be using GET-VALUE-BY-NAMESPACE-NAME( ) I've

问题 I want to search all fields in all tables of a database for a user supplied value and display records which contain that input keyword. Something like this: FOR EACH _file WHERE (NOT _file-name BEGINS "_" AND NOT _file-name BEGINS "sys") NO-LOCK: FOR EACH _field OF _file NO-LOCK: ASSIGN ttable = _file._file-name tfield = _field._field-name . FOR EACH &ttable WHERE ttable.tfield MATCHES "urpon frisbee " NO-LOCK : MESSAGE "hai" VIEW-AS ALERT-BOX INFO BUTTONS OK. DISPLAY _file._file-name . END.

问题 Good day I have a 2 parts problem. currently i have a list of tables and its data needs to be exported to csv. My code is here: def temp table tt-table field f1 as int field f2 as char field . . . . output to value(session:temp-directory + "temp.csv"). put f1 at 1 "," f2. . . output close. is there a way to do this automatically or to shorten this code? there are 30-40 fields each table average and 5 tables needs to be exported. Second part: if i imported them back to our system, is it

问题 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. 回答1: 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. 回答2: DEFINE VARIABLE ch-list AS