Rocket® D3® and jBASE®

A common practice in legacy multi-value applications is/was to write controlling records to denote a user being logged in, or running a specific menu option.A problem with that design is if the program doesn't wrap-up normally (either due to a bug or the session was logged off or perhaps dropped into the debugger and the user aborted) the control record is left in place.jabba to the rescue!!A very useful feature of dynamic objects (written in jabba which is an extension to the jBC language) is that if a class has a destructor method, that method will be called when jBASE wraps up the work-space/session.Example:WRAPUP_TEST.b PROGRAM WRAPUP_TEST INCLUDE JWRAPUP_SESSION.h OPEN 'CONTROL' TO F.control ELSE STOP 201,'CONTROL' WRITE TIMEDATE() ON F.control,@LOGNAME LOOP CRT "Waiting to be killed...": INPUT cont,1_ CRT "We weren't killed....don't touch the keyboard" REPEAT The above program will write a timestamp to the file CONTROL for the logged in user name (@LOGNAME). It th

I just took a case with a guy who was using READU and WRITEU to lock and retain a lock on a file. The reads and writes would work for a while, then after a week or so, a group lock would be set that prevented the WRITEU. No apparent reason. Then he remembered that he had a CALLX on the file. Turned out there was a bug in the trigger that was creating an item ID for an audit file. Circumstances sometimes led to the ID being more than 100 bytes long causing the CALLX to fail and strand the group lock. He found and fixed the issue.Thing is, he's lucky that the trigger was failing in a way that caused a lock contention that triggered ( pun intended ) an investigation. If the trigger had failed in some other way that allowed the main process to continue without error, the update to the file would also have failed without overt warning. Yes, there would most likely be something in the ERRORS or RUNTIME-ERRORS files, but nothing that would have sent the process into the debugger or anything e

Morning All (It's still morning in Africa!),A customer wants to tighten up their firewalls and remove redundant rules.I like the ability to auto activate so would appreciate some education on which ports need to be allowed to facilitate this.Thanks in advance,Tom Power

A friend of mine got bit by an upgrade from PHP 5 to PHP 7. He was accessing the MVS Toolkit from PHP by creating a URI and retrieving data by passing that URI to file_get_contents then parsing the returned JSON object as follows:$uri = "https://xx.xx.xx.xx:8181/ws/wso?param=whatever";$jsonStr = file_get_contents($uri);Because security has become a lot tighter over the last few years, that code resulted in an SSL failure error. He was able to correct this by adding the following code:$uri = "https://xx.xx.xx.xx:8181/ws/wso?param=whatever"; $arrContextOptions=array("ssl"=>array("verify_peer"=>false,"verify_peer_name"=>false,),); $jsonStr = file_get_contents($uri, false , stream_context_create($arrContextOptions));------------------------------Brian S. CramPrincipal Technical Support EngineerRocket Software------------------------------

If you're using Linux there's a trick you can use to run procs as bash scripts.First we'll use "vi" to create our proc/script:$ vi ~/bin/jqlselIn vi type the following:!!which jpqWhich should result in something like the following (on line 1)/opt/jbase/CurrentVersion/bin/jpqNow prefix with the bash prefix required by typing I#!<escape>resulting in#!/opt/jbase/CurrentVersion/bin/jpqNow we can proceed with our proc as normal#!/opt/jbase/CurrentVersion/bin/jpqPQH<<Enter selection command>>pH<<Enter command>>PNext make it executable $ chmod +x jqlsel And now we can run it like any command: $ jqlsel Enter selection command: SELECT mycust SAMPLE 10 Enter command: SORT mycust BY LASTNAME ------------------------------Peter FalsonRocket Internal - All Brands------------------------------ ​​

SUBROUTINE XMLJEDI(parameters, jedi_command, item_id, data_record, defer_commit, error_code)* 04/27/22 by Dan Ell, Tyler McDonaugh, Jenna Hernandez, Charles Barouch *! ********************************************************************** *! Creates an xpath model of all the tags in an XML document *! and treats the XML document like a read-only jBASE file. *! ********************************************************************** *!! Add this to the current directory to create a jEDI file for XML!! ED . SAMPLE.XML! .I JBC__SOB JediInitSUB XMLJEDI filename=/big/tmp/SampleLarge.xml,xmlmap=SAMPLE.MAP,dict=SAMPLE.XML]D! 001 JBC__SOB JediInitSUB XMLJEDI filename=/big/tmp/SampleLarge.xml,xmlmap=SAMPLE.MAP,dict=SAMPLE.XML]D! .FI!! xmlmap is the item ID to XML.MAPS which holds this information!! ED XML.MAPS SAMPLE.MAP! 001 Sample PLANT xml file <-- Description (not used in this program)! 002 PLANT <-- Record tag pre-defined (not in this program), <Record> ... </Record>! 003

A new jEDI that allows you to access the XML file (currently read-only) as if it was a standard jBASE hashed file with the key being the row of the XML file.XMLJEDI is the JEDI program. MAKEXML will generate a sample XML item with however many data items you want. TEXTXML allows you to test for best blocksize for the XML file. With this new JEDI, you can add dict= portion of param and it will create DICT items when the XML is first mapped.  You can also specify the blocksize.    When run against a 500,000 record XML file with a size of 94Mb, it can LIST the file in 3 minutes and 24 seconds.   Here is an example of the jEDI stub for a sample xml file called /big/tmp/SampleLarge.xml : jsh>ED . SAMPLE.XML<Enter>New Record SAMPLE.XML TOP I<Enter> 001+ JBC__SOB JediInitSUB XMLJEDI filename=/big/tmp/SampleLarge.xml,xmlmap=SAMPLE.MAP,dict=SAMPLE.XML]D,blocksize=63488<Enter> 002+<Enter> FI<Enter>   After you add the jEDI stub to the current directory, you creat

Hello,We are getting the error show below, when we try to connect to MVSToolkit.  It only happens to one of our apps. The problem goes away on its own, if we keep trying to connect for several minutes. Please let me know if you know what may cause this error.Thanks,Chris

In jBASE 5.8, an enhancement to the BASIC (aka jBC) compiler has made comparisons against '' (empty string) dramatically faster.Historically it was quicker to compare the LEN() of a variable against 0 to test if a variable was '' (NULL). For example if you're on 5.7 (or earlier) try the sample code. workVar = STR('the quick brown fox jumps over the lazy dog', 10000) startTime = SYSTEM(12) FOR I = 1 TO 10000 IF workVar NE '' THEN END NEXT I CRT 'First FOR loop took: ':SYSTEM(12)-startTime startTime = SYSTEM(12) FOR I = 1 TO 10000 IF LEN(workVar) THEN END NEXT I CRT 'Second FOR loop took: ':SYSTEM(12)-startTime ​ On 5.8 the statement: IF workVAR NE '' THEN now gets compiled to a special function (this is also true for EQ '') that performs the same as IF LEN(workVar) NE 0 THEN so the sample program (above) will produce similar results (depending on system usage).------------------------------Peter FalsonRocket Internal - All Brands------------------------------

Voting for DBTA Readers' Choice Awards is open now through Wednesday, May 11, 2022. DBTA will feature the award winners in a special section of the August edition of DBTA Magazine, and at www.DBTA.com. Rocket Software is proud to have Rocket Software MultiValue Suite (D3, UniVerse, UniData, jBASE and OpenQM) in the "Best MultiValue Database" category. Your organization has invested in your business-critical MultiValue-based applications over the course of years. And ensuring those applications can adapt and grow alongside your organization means more return on those investments for years to come. Rocket Software offers the largest range of modernization solutions for the MultiValue (MV) Application Platform that help you avoid risky, costly replatforming initiatives. Analysts like IDC, Gartner and Forrester agree that modernization strategies continue to move to the top of the list for most CIOs. Let Rocket be the engine in your modernization journey and help you develop and implement

Hello,I have a huge problem with D3, hopefully somebody can help me.Description:I open D3: d3vme /debugEverything seems ok until:Unable to open "users" fileand after a while:*** Remote File System Error ***Open (fsi:dem,users,) Cannot Bind Remote Connectionct users'fsi:dm' is not a valid md namect md users  users001 Q002 fsi:dm003 users004005006007008009 I010 18I made my backup by copying the folder D3 in Windows.I hope somebody can give me a hint to solve the problem. If more information is required just ask.Thanks a lotAndy Engel Luxembourg------------------------------Andy EngelRocket Forum Shared Account------------------------------

Version 2.3.2 of the Rocket MVS Toolkit RESTful services tool for D3 and mvBase was released this afternoon. Installers and documentation can be found on the Rocket Community Portal:https://my.rocketsoftware.com/RocketCommunity#/downloadsWith this new version of the MVS Toolkit, MVSTK logging was upgraded to log4j 2.17.2 to address security vulnerabilities. Also, OpenJDK was upgraded to OpenJDK 11 to support TLS 1.3.------------------------------Brian S. CramPrincipal Technical Support EngineerRocket Software------------------------------

We just updated our tools to handle D3 dictionaries.Unfortunately, we do not have D3 running anymore.Is there anyone willing to test it for me?------------------------------Doug AverchOwnerU2 Logicwww.u2logic.com/tools.html------------------------------

I've got a friend who's looking to generate PDFs from D3 that include an image ( a company logo for an invoice ) and a barcode. Barcodes can be accomplished by using PCL which is understood by most if not all PDF printers/converters, but the image is a little trickier. I've done it before using PCL Tools but that was a long time ago. I understand Print Wizard  can do this, but I have no experience with Print Wizard. Anybody out there got any suggestions?------------------------------Brian S. CramPrincipal Technical Support EngineerRocket Software------------------------------

Hello, I've run into a strange issue where I'm trying to wrap the d3 C functions so I can use them from nodejs. Everything compiles fine but the _CP_logon function hangs in node but not when I run it outside of node. stracing showed that there was a segmentation fault that was causing it to hang and I'm guessing something weird might be happening with the C memory that _CP_mkstr allocates and node's memory. After running my addon in valgrind, it looks like there might be a memory bug somewhere deeper down.I ended up being able to duplicate the issue in it's most simple form by running valgrind against the cdemo project that comes with d3. I think the root issue is that there might be a double free error somewhere in pick_init or maybe a null deref (I have basically 0 experience with C so take this all with a heaping of salt).I built cdemo using gcc 7.3 and then ran it valgrind and I see the following error which is the same error that I get through node. [root@d3linux cdemo]# valgrind

Below is a post from the U2 Forum. While this does not affect D3 directly, if customers are using certificates for gaining access to their machine, they may be vulnerable. The recommended course of action would be to obtain the 1.1.1n release of OpenSSL, install it on their server, run D3_setup to link D3 with the new version of OpenSSL.========================================================================================================A major OpenSSL vulnerability has been addressed in 1.1.1n - we should upgrade as it is a well-known and published method of inflicting a DDoS attack:https://nvd.nist.gov/vuln/detail/CVE-2022-0778https://www.openssl.org/news/secadv/20220315.txtThe BN_mod_sqrt() function, which computes a modular square root, contains a bug that can cause it to loop forever for non-prime moduli. Internally this function is used when parsing certificates that contain elliptic curve public keys in compressed form or explicit elliptic curve parameters with a base point en

Recently a support case came in asking if there was an OCONV option to determine the week of the year of a passed date. OCONV won't do that, so I wrote a subroutine:subroutine weekOfYear.sub(inDate, weekNo)** Pass: inDate ( 5-digit internal date format )* Return: weekNo ( 1-53 )* Calculates which Sunday-Saturday week#* within the year. Week 1 is only 7 days* if January 1st is a Sunday.*if not(assigned(inDate)) then inDate=date()if inDate matches "5n" else inDate=iconv(inDate,"d")if inDate matches "5n" else inDate=date()inYear=oconv(inDate,"dy")begOfYear=iconv("1/1/":inYear,"d")firstYearDay=oconv(begOfYear,"dw")daysToSun=7-firstYearDayweekNo=int(((oconv(inDate,"dj")-daysToSun)+6)/7)+(daysToSun>0)returnAs the comments state, you pass a date in Pick internal format, which has been a 5-digit number since May of 1995, and you receive a number from 1 to 53 indicating which week of the year contains that date. This assumes that the week you seek starts on a Sunday and ends on a Saturday. I

I am new to D3 and following D3 Reference Manual to learn. But seem to difficult for me to access to the system.how can I get all the account name in D3 db and their respective tables or filesIs there any command just like Select * from Table in d3 to track the data can any one helpRegardsRohit

Hello,We plan to use the MVS Toolkit for data entry form on a phone app. How would you go about uploading a photo from your mobile app to a server? The picture should be stored on a server as JPG file. The path or URL for the picture should be stored on D3.Thanks,Chris------------------------------Chris WolczSenior Software DeveloperExecontrol Global SolutionsClifton Park NY US------------------------------

Yes, but the whole D3 system and PICK before it was built independent of the operating system. We have moved our software from R83, AP/PRO, Mandrake, Mandriva and finally CentOS simply by backing up and thenrestoring it on the new system. New hardware, new OS and a couple of hours later, all up and running and back in business. We could have even used an AP/DOS or a Windows version, so the underlying OS is, or was, basically inconsequential.-- Alex PolglazeThe Book-Keeping Network(08) 9349 9189+61 419 776 348apolglaze@book-keepingnetwork.com.auhttps://www.book-keepingnetwork.com.au

Hi,We have used Centos for many years on our customer's servers and are now looking at a replacement.Busy experimenting with Oracle Linux - has anyone any experience with it? It is supposedly a binary replacement for RHEL 8 and has 8.3, 8.4 & 8.5 iso's available.I've loaded 8.5 but am getting the below error with D3_setup - not sure if 8.5 is too bleeding edge or Oracle Linux default repos are different to Centos/Redhat?Any ideas welcomed! No repository match: *d3depends for RHEL/ CentOS 8 - x86_64 [$YUM0] 0.0 B/s | 0 B 00:04 Errors during downloading metadata for repository 'd3depends':- Curl error (9): Access denied to remote resource for ftp://d3mv-repo:d3getRep0@ftp.rocketsoftware.com/RedHatEnterpriseServer/8.5/x86_64/repodata/repomd.xml [Server denied you to change to the given directory]Error: Failed to download metadata for repo 'd3depends': Cannot download repomd.xml: Cannot download repodata/repomd.xmlThanksTom Power

Rocket MV product certifications on Windows 11 and Server 2022 will occur on most product GA versions in the 1st half of 2022 and will be scheduled in coordination with product maintenance releases.Additionally, certification of Visual Studio 2022 will take place in late 2022/ early 2023 and will be coordinated with product releases.MV roadmaps will be updated throughout the year as certifications are scheduled and completed.  Please join the quarterly MV roadmap webinar or view the MV roadmaps on the Forum for certification status updates.------------------------------Christine RizzaMV Product ManagerRocket Softwarecrizza@rocketsoftware.com------------------------------

Hopefully this is the right forum for this question.  Has anyone used fork (or forkpty) and successfully called _CP_logon from inside of a C program?  Is there a trick to making this work? When I try it, the child dies with a segfault somewhere in pick_init_termio in a call to strcpy.------------------------------Tom MarracciGeneral ManagerAircraft Sprucecorona CA US------------------------------

Anyone out there open other files in write triggers?Given a relationship such as this:customers hasmany ordersorders belongsto customerI'd like to sum orders.total and write it on customer.Instead of finding each routine that would need to update this value, I was thinking about adding it to the customer write trigger.  So every time a customer is updated, this value is evaluated and updated.What's the cost/risk to implementing it this way?------------------------------Jeremy LockwoodAwesomeASE Supply IncPortland OR US------------------------------

Hi all, Hopefully you will excuse the question.  I should know the answer but........We have a backup vendor that is triggering errors on our linux d3 volume.  Error is cannot index.  Speaking with them they would like to know how the volume is formatted?  If for no other reason than placing in an exception list so the error will not be triggered.  The company is Rubrik just for information.I told them it was the blob and they didn't think is was funny  :)Thanks for any helpCraig------------------------------Craig CurtisSystem ProgrammerSevier Valley School DistrictRichfield UT US------------------------------