QM to Scarlet

[Steven Martin Trimble]

Hi all

When I log into Scarlet (after bringing an account from commercial QM and 'renaming the dynamic files') I get this:

[ ScarletDME Rev 2.6-6   Copyright Ladybridge Systems, 2007 ]

Welcome to ScarletDME!  Multi-Value for the masses, not the classes.
This program is free software and is supplied with ABSOLUTELY NO WARRANTY.
You are welcome to modify or redistribute this software subject to certain
conditions.  For details type CONFIG GPL.

Your VOC is at release level 4.0-5
Update VOC to new release?

What do I need to do to resolve this?

Any ideas appreciated.

Also, one other question. What is the user limit? Is it 'setable'? (if that's a word)

I noticed this in /etc/scarlet.conf

NUMUSERS=10

Can I change this to whatever I want?

thanks,

CDMI

Steven Trimble

(501) 772-3450 cell/text

cdm...@gmail.com

[Wol]

On 11/01/2024 23:44, Steven Martin Trimble wrote:
>
> Your VOC is at release level 4.0-5
> Update VOC to new release?

Is there an option to say "yes". Provided your account is backed up,
just say "yes". Let us know what happens :-)

The other thing you will definitely need to do is rebuild all your basic
source. All the binary op-codes have changed, so any attempt to run a QM
binary will blow up. But of course all the system stuff will be okay, so
at least the BASIC and CATALOG commands will work :-)

It'll be a fun ride :-)

Cheers,
Wol

[geneb]

On Thu, 11 Jan 2024, Steven Martin Trimble wrote:

> Hi all
> When I log into Scarlet (after bringing an account from commercial QM and
> 'renaming the dynamic files') I get this:
>
> [ ScarletDME Rev 2.6-6 Copyright Ladybridge Systems, 2007 ]
>
> Welcome to ScarletDME! Multi-Value for the masses, not the classes.
> This program is free software and is supplied with ABSOLUTELY NO WARRANTY.
> You are welcome to modify or redistribute this software subject to certain
> conditions. For details type CONFIG GPL.
>
> Your VOC is at release level 4.0-5
> Update VOC to new release?
>
> What do I need to do to resolve this?
> Any ideas appreciated.
>

I would grep through the MESSAGES file to find that text string and then
sift through GPL.BP to find the program that displays it. Then you can
figure out why it things 4 is greater than 2. ;)

Note that anything you've got compiled in the commercial version isn't
going to work (tokenizing values are different) and you'll need to
recompile your stuff.

> Also, one other question. What is the user limit? Is it 'setable'? (if
> that's a word)
> I noticed this in /etc/scarlet.conf
> NUMUSERS=10
> Can I change this to whatever I want?
>

Yes you can.

g.

--
Proud owner of F-15C 80-0007
http://www.f15sim.com - The only one of its kind.
http://www.diy-cockpits.org/coll - Go Collimated or Go Home.
Some people collect things for a hobby. Geeks collect hobbies.

ScarletDME - The red hot Data Management Environment
A Multi-Value database for the masses, not the classes.
http://scarlet.deltasoft.com - Get it _today_!

[Wol]

On 12/01/2024 13:54, geneb wrote:
> I would grep through the MESSAGES file to find that text string and then
> sift through GPL.BP to find the program that displays it.  Then you can

> figure out why it things 4 is greater than 2. 😉

I think you'll find it's not asking which version is "newer" but "are
they the same?"

It MATTERS that the VOC is what the system account expects. Newer,
older, whatever.

I'm trying to work out how we can safely upgrade the system from a "make
install" once we get going actually making real changes.

Cheers,
Wol

[Steven Martin Trimble]

Thanks Don. I will update with my findings.

Yes, I know and did 'recompile' my basic code.

Thanks for all the advice.

CDMI

Steven Trimble

(501) 772-3450 cell/text

cdm...@gmail.com

--
You received this message because you are subscribed to the Google Groups "ScarletDME" group.
To unsubscribe from this group and stop receiving emails from it, send an email to scarletdme+...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/scarletdme/alpine.LRH.2.21.2401120552200.880153%40sidewinder.deltasoft.com.

[Steven Martin Trimble]

Thanks Don

Here is what I found:

MESSAGES item

5025

001: Your VOC is at release level %1

then QMSYS:GPL.BP item

LOGIN

this program opens 'VOC' and reads item $RELEASE

my commercial QM item was:

0001: X

0002: 4.0-5

I revised <02> to 2.6-6

No more issues there.

I did find a bug with my RENAME.DYNAMIC.FILES program

It did NOT rename .DIC files. So when I performed LIST DICT FLNAME

'No items present'.

Here is the revised code:

*
* RENAME.DYNAMIC.FILES
*
* 12-07-23 smt this program renames dynamic files whose DIC and data portions
*          came from commercial QM
*          it changes %0, %1, etc to ~0, ~1
*          commercial QM changed to % from ~ because it was found that
*          some cleanup tools assumed that these were temporary files.
*          you need to be logged in the account that needs changing
*

PROMPT ''
CUR$PATH  = @PATH
ACCT$NAME = @WHO
USR$      = @USER

CRT @(-1):\RENAME.DYNAMIC.FILES\
CRT @(00,02):\You MUST be logged onto the account needing 'renaming'\
CRT @(00,03):\Current path is \:CUR$PATH
CRT @(00,04):\Current account is \:ACCT$NAME
CRT @(00,05):\Logged in as \:USR$
CRT @(00,06):\'Q'uit, 'T'rial run or 'U'pdate \:;INPUT DIO:
DIO = OCONV(DIO,"MCU")

BEGIN CASE
   CASE DIO = "T" ; DO$UPD = 0
   CASE DIO = "U" ; DO$UPD = 1
   CASE 1 ; STOP
END CASE

OPEN \VOC\ TO VOC.FL ELSE STOP 201,\VOC\

DELM$     = @DS
IF DELM$ <> "/" THEN
   CRT
   CRT \This program is expecting Linux\
   STOP
END

VERB = \SSELECT VOC WITH F1 = "F"\
EXECUTE VERB CAPTURING RESULT

IF SYSTEM(11) THEN
   SELECTE TO ITEMID.LIST
END ELSE
   CRT
   CRT \No items found after performing:\
   CRT VERB
   CRT \<Enter> \:;INPUT DIO
   STOP
END

LOOP
   READNEXT VOC.ID FROM ITEMID.LIST ELSE EXIT
   IF VOC.ID[1,1] NE "$" THEN
      READ VOC.REC FROM VOC.FL,VOC.ID THEN
         CRT CUR$PATH:@DS:VOC.ID
         FOR HH = 2 TO 3
            ANY$SUBFL = DCOUNT(VOC.REC<HH>,@VM) ; * ex: AP-ACCTS/CONTACTS]AP-ACCTS
            FOR II = 1 TO ANY$SUBFL
               SUB$FL  = VOC.REC<HH,II>         ; * ex: AP-ACCTS/CONTACTS
               LONG$FL = CUR$PATH:@DS:SUB$FL    ; * ex:/home/qm/ACC-SYS/AP-ACCTS/CONTACTS
               VERB    = \ls -la \:LONG$FL      ; * ex: ls -la /home/qm/ACC-SYS/AP-ACCTS/CONTACTS
               OS.EXECUTE VERB CAPTURING RESULT
               NUM$ROWS = DCOUNT(RESULT,@AM)
               FOR JJ = 1 TO NUM$ROWS
                  VAL$ = TRIM(RESULT<JJ>)
                  IF INDEX(VAL$,"%",1) THEN
                     CONVERT " " TO @VM IN VAL$
                     NUM$VM = DCOUNT(VAL$<01>,@VM)
                     CHK$FL = VAL$<01,NUM$VM>
                     IF INDEX(CHK$FL,"%",1) THEN
                        CRT NUM$VM:" ":VAL$
                        DT$PORTION = OCONV(CHK$FL,"MCN") + 0
* ex: mv /home/qm/ACC-SYS/AP-ACCTS/%0 /home/qm/ACC-SYS/AP-ACCTS/~0
                        VERB = "mv ":LONG$FL:@DS:CHK$FL:" ":LONG$FL:@DS:"~":DT$PORTION
                        IF DO$UPD THEN
                           OS.EXECUTE VERB CAPTURING STUFF
                        END ELSE
                           CRT VERB
                        END
                     END
                  END
               NEXT JJ
            NEXT II
         NEXT HH
      END
   END
REPEAT

END

Hope this helps someone.

be well all,

[Wol]

On 12/01/2024 15:58, Steven Martin Trimble wrote:
> then QMSYS:GPL.BP item
> LOGIN
> this program opens 'VOC' and reads item $RELEASE
> my commercial QM item was:
> 0001: X
> 0002: 4.0-5
>
> I revised <02> to 2.6-6
> No more issues there.

Okay. So now you ARE going to have a whole bunch of issues if VOC
entries try to use functionality that post-dates 2.6-6 ...

Cheers,
Wol

[Steven Martin Trimble]

I changed VOC $RELEASE<01> TO 2.5

Then logged out.

Then logged back in and was asked to update to the current release, which is 2.6-6.

I answered Y and let it 'update' my VOC to 2.6-6

Here is my VOC LOGIN

01: PA
02: OPTION ALL OFF
03: OPTION PICK
04: OPTION DUMP.ON.ERROR
05: OPTION NON.NUMERIC.WARNING OFF
06: OPTION UNASS.WARNING OFF
07: IF @TTY = 'phantom' THEN STOP
08: ALIAS COPY COPYP
09: ALIAS ISTAT ANALYSE.FILE
10: ALIAS FIND SEARCH
11: PTERM CASE NOINVERT
14: TERM 80,25
15: BREAK ON

I am a devout user of AccuTerm, so I am using:

:TERM
Page width: 80
Page depth: 25
Device    : adds4000-at

So far, so good.

The main difference between commercial QM and GPL is version 2.6-6 does not have OPTION PICK.D3. These current users moved from D3 to openQM because of the very expensive annual maintenance fee. Of course Rocket has also hiked up openQM annual maintenance in comparison to what Ladybridge was charging. Scarlet's version : WARNING: Final END statement is missing

Which is fine with me, but I am going through and adding it.

I like to compile with NO warnings or known errors.

Not adding END is just lazy IMHO.

Enough said. Onward!

CDMI

Steven Trimble

(501) 772-3450 cell/text

cdm...@gmail.com

--
You received this message because you are subscribed to the Google Groups "ScarletDME" group.
To unsubscribe from this group and stop receiving emails from it, send an email to scarletdme+...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/scarletdme/7a7162c5-057f-4331-9b89-efb5e907d778%40youngman.org.uk.

[Brandon Robinson]

I believe if you set the $MODE in Scarlet for  "OPTIONAL.FINAL.END" that error will go away.

https://qmhelp.cdmiweb.com/option-and-mode-shortcuts.htm

___________________

Brandon Robinson

Head Geek

To view this discussion on the web visit https://groups.google.com/d/msgid/scarletdme/CAJDLGm6f8oK15kELpxR-gBOLAk6e3%2Bxcz62MZAU_tdOK%3DKPY-A%40mail.gmail.com.