Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
16
Programming / Loading a json pre version 11
« on: July 01, 2022, 02:39:07 PM »
All, I developed a routine to retrieve JSON data from an API and, developing at 11.5, used the dim load array$[all]=json$. My customer is running at 9.x and this feature is not available. Does anyone have a routine to load or parse a json. I have parsing ability, but it isn't foolproof.
17
Registration and Setup / Linux Licensing
« on: June 21, 2022, 12:39:23 PM »
I need to run a "stand alone" application that, unfortunately, needs to have PVX running on a Linux box and accessed via Windx. Can this be accomplished with a single user license. I'm afraid the simple client server instance will use a license and then the Windx connection will use one. Is this correct or can I get by with one license?
18
Language / Json Element addressing
« on: May 24, 2022, 10:16:30 AM »
I have this JSON:
{
"totalSize":1,
"done":true,
"records":[
{
"attributes":{
"type":"Order",
"url":"/services/data/v54.0/sobjects/Order/8012D0000016xq5QAA"
},
"Id":"8012D0000016xq5QAA",
"OrderNumber":"00000100",
"CreatedDate":"2022-02-21T13:13:01.000+0000",
"OrderItems":{
"totalSize":1,
"done":true,
"records":[
{
"attributes":{
"type":"OrderItem",
"url":"/services/data/v54.0/sobjects/OrderItem/8022D000001GgV5QAK"
},
"Id":"8022D000001GgV5QAK",
"Product2":{
"attributes":{
"type":"Product2",
"url":"/services/data/v54.0/sobjects/Product2/01t2D0000050iKrQAI"
},
"StockKeepingUnit":"25"
},
"Quantity":5.0,
"TotalPrice":1250.0
}
]
}
}
]
}
I cannot figure out how to address, the OrderItems, or the "records" under that element. The above is the result of a dim load test$=myjson$.
{
"totalSize":1,
"done":true,
"records":[
{
"attributes":{
"type":"Order",
"url":"/services/data/v54.0/sobjects/Order/8012D0000016xq5QAA"
},
"Id":"8012D0000016xq5QAA",
"OrderNumber":"00000100",
"CreatedDate":"2022-02-21T13:13:01.000+0000",
"OrderItems":{
"totalSize":1,
"done":true,
"records":[
{
"attributes":{
"type":"OrderItem",
"url":"/services/data/v54.0/sobjects/OrderItem/8022D000001GgV5QAK"
},
"Id":"8022D000001GgV5QAK",
"Product2":{
"attributes":{
"type":"Product2",
"url":"/services/data/v54.0/sobjects/Product2/01t2D0000050iKrQAI"
},
"StockKeepingUnit":"25"
},
"Quantity":5.0,
"TotalPrice":1250.0
}
]
}
}
]
}
I cannot figure out how to address, the OrderItems, or the "records" under that element. The above is the result of a dim load test$=myjson$.
19
Programming / UCS-2
« on: May 05, 2022, 05:25:42 PM »
I am having trouble using the SalesForce API and it appears it might be because those endpoints require UCS-2 encoding. Can anyone verify this, and more importantly does anyone have a function or routine that creates that encoding.
Thanks!
Michael
Thanks!
Michael
20
ODBC / Mnemonic to show generated SQL
« on: March 28, 2022, 12:46:56 PM »
I have seen this before and will document this time, but what is mnemonic or parameter that causes a pop up showing a generated sql command on a channel?
21
We have some legacy customers running back at PXPlus 11.50. This is not supporting TLS 1.2. My understanding is that PXPlus uses the dlls in the pvx directory. I do see that this release has been modified as recently as 08/2019. Is it possible that this was one of the areas addressed. If not is there a solution to get these versions of PXPlus to support TLS 1.2? Will the DLLs from a later version work and would this be allowed under our license agreements? Any help is appreciated.
22
Programming / Check for damaged files
« on: November 18, 2021, 08:10:08 AM »
Has anyone worked to incorporate *ufac into a program that will scan an entire directory and check all PVX data files therein? I'm sure we can pull this off but wanted to check if someone else has already done this.
Thanks!
Thanks!
23
Language / Large records in file
« on: October 25, 2021, 10:50:18 AM »
I am trying to create a file with record size >32K. I am using this:
keyed "myfile",[1:1:16:"+"],0,-50000,opt="X"
This throws an error 41. What am I mssing?
keyed "myfile",[1:1:16:"+"],0,-50000,opt="X"
This throws an error 41. What am I mssing?
24
Language / Automation issue (OLE)
« on: August 02, 2021, 10:43:37 AM »
I am trying to duplicate this VBS script in PxPlus:
strSLXCon = "Provider=SLXOLEDB.1;Password=password;Persist Security Info=True;User ID=admin;Initial Catalog=FACTSCONNECTION;Data Source=IP-SQL;Extended Properties=PORT=1706;LOG=ON;CASEINSENSITIVEFIND=ON;AUTOINCBATCHSIZE=1;SVRCERT=;"
Set objSLXCon = CreateObject("ADODB.Connection")
objSLXCon.Open strSLXCon
Set objSLXRS = CreateObject("ADODB.Recordset")
strSQL = "slx_dbids('Account',1)"
objSLXRS.Open strSQL, objSLXCon
objSLXRS.Movefirst
strID = objSLXRS.Fields(0)
objSLXRS.close
msgbox strID
Here is my code:
1000 !
1005 def object crm,"ADODB.Connection"
1007 def object rec,"ADODB.Recordset"
1010 constr$="Provider=SLXOLEDB.1;persist security info=True;Initial Catalog=FACTSCONNECTION;PASSWORD=password;user ID=admin;Data Source=IP-SQL;EXTENDED PROPERTIES=""PORT=1706;log=on;casesensitivefind=on;autoincbatchsize=1;SVRCERT="""
1015 crm'open(constr$)
1020 idsql$="slx_dbids('Account',1)"
1025 ! id$=crm'execute$(idsql$)
1030 ! print id$
1035 rec'open(idsql$,*crm)
1040 rec'movefirst()
1045 id$=rec'fields$(0)
1050 print id$
1080 drop object crm
1085 drop object rec
I do not get the same result as the VB script which does return the correct value. My code executes, but generates a completely different set of ID's. Any pointers on what is wrong here?
strSLXCon = "Provider=SLXOLEDB.1;Password=password;Persist Security Info=True;User ID=admin;Initial Catalog=FACTSCONNECTION;Data Source=IP-SQL;Extended Properties=PORT=1706;LOG=ON;CASEINSENSITIVEFIND=ON;AUTOINCBATCHSIZE=1;SVRCERT=;"
Set objSLXCon = CreateObject("ADODB.Connection")
objSLXCon.Open strSLXCon
Set objSLXRS = CreateObject("ADODB.Recordset")
strSQL = "slx_dbids('Account',1)"
objSLXRS.Open strSQL, objSLXCon
objSLXRS.Movefirst
strID = objSLXRS.Fields(0)
objSLXRS.close
msgbox strID
Here is my code:
1000 !
1005 def object crm,"ADODB.Connection"
1007 def object rec,"ADODB.Recordset"
1010 constr$="Provider=SLXOLEDB.1;persist security info=True;Initial Catalog=FACTSCONNECTION;PASSWORD=password;user ID=admin;Data Source=IP-SQL;EXTENDED PROPERTIES=""PORT=1706;log=on;casesensitivefind=on;autoincbatchsize=1;SVRCERT="""
1015 crm'open(constr$)
1020 idsql$="slx_dbids('Account',1)"
1025 ! id$=crm'execute$(idsql$)
1030 ! print id$
1035 rec'open(idsql$,*crm)
1040 rec'movefirst()
1045 id$=rec'fields$(0)
1050 print id$
1080 drop object crm
1085 drop object rec
I do not get the same result as the VB script which does return the correct value. My code executes, but generates a completely different set of ID's. Any pointers on what is wrong here?
25
Language / Launch PxPlus with -S
« on: July 15, 2021, 03:40:30 PM »
Ignore this. I coldn' delete. Missing inittab file.
I have to have 2 instances of the inittab emulator running on a server. I hacked the winutl/service program to change the name of the service from PxPlusInit to PxPlusInitA and also changed the long name. I see in the registry that the image is \pathtopvx\pxplus.exe -s PxPlusInit93. (normally for the first install that is just PxPlusInit). This service will not start and stay running. I can find now documentation on the -s switch, but I suspect the name PxPlusInit93 is what is doing me in. Any insight appreciated.
I have to have 2 instances of the inittab emulator running on a server. I hacked the winutl/service program to change the name of the service from PxPlusInit to PxPlusInitA and also changed the long name. I see in the registry that the image is \pathtopvx\pxplus.exe -s PxPlusInit93. (normally for the first install that is just PxPlusInit). This service will not start and stay running. I can find now documentation on the -s switch, but I suspect the name PxPlusInit93 is what is doing me in. Any insight appreciated.
26
Programming / Code failure between PVX 9.1 and 15.1
« on: July 15, 2021, 11:59:26 AM »
This line of code executes on version 9.1 of PxPlus with no issue.
10010 ok=1; test=hfn; if %wdx=1 then open (test,err=MISSING_WASP)"[WDX][ODB]SunnyLabel" else open (test,err=MISSING_WASP)"[ODB]SunnyLabel"
The exact same code on the same workstation returns an error 15 and branches to the "MISSING_WASP" label on vesion 15.0. %WDX is in fact 1, so the wdx vefrsion is executing.
What might I be missing here?
Thanks!
10010 ok=1; test=hfn; if %wdx=1 then open (test,err=MISSING_WASP)"[WDX][ODB]SunnyLabel" else open (test,err=MISSING_WASP)"[ODB]SunnyLabel"
The exact same code on the same workstation returns an error 15 and branches to the "MISSING_WASP" label on vesion 15.0. %WDX is in fact 1, so the wdx vefrsion is executing.
What might I be missing here?
Thanks!
27
Language / Writing Postgres tables
« on: July 09, 2021, 01:12:55 PM »
Has anyone every written to a postgres database out of a PVX program. Any pointers would be appreciated.
28
Language / *windev* and scheduled tasks
« on: June 17, 2021, 09:46:19 AM »
We have a user trying to run a program via the Task Scheduler on windows and a printer open to a *windev* device is throwing an error 12. Is there a limitation on using *windev* when running something in this fashion?
29
Language / Opening MySQL on a remote server using ADO command tag
« on: May 04, 2021, 10:27:38 AM »
I have a situation where I need to access a SQL database on a different server than the one where I am running PxPlus (same network). Can someone give me a working example of an open command to do this. It is not clear to me from the documentation where I specifiy the ip address for the server.
30
Programming / Embed an IO_PROGRAM
« on: April 19, 2021, 12:09:31 PM »
Is there a command line that can be used to embed an IO Program into a data file. I know this can be done with nomads, but I would like to handle it from a program. I tinkered around with the tblinfo object and the setvalues method, but this did not seem to have any effect.