Previous month:
December 2022

January 2024

In Year 52, 3000 still doing duty

This morning the Internet delivered proof of life for the HP 3000. I hunted down the proof, to be honest. A robot message showed up in my in-box from the OPENMPE-L listserv, assuring me that the mailing list was still alive—because it was checking up on me.

This message is a probe for your subscription to the OPENMPE list. You do not need to take any action to remain subscribed to the list. If the subscriber's email address is no longer valid, then the message will be returned to LISTSERV and the faulty address will be removed from the list. If the subscriber's address is still valid, then the message will not bounce and the user will not be deleted.

OpenMPE has been dead for more than a decade, so whatever's on that listserv is just there for archival-historian purposes. Genuine help and 3000-related information lives on, hosted on another listserv, in the 3000-L forum. Some people are managing 3000s here in 2023, more than 51 years after the computer staggered out of the gates in a bug-riddled, crash-happy debut.

It survived, and so have some of the 3000 experts who know how to do essential tasks with the venerable OS.

For example,

I wish to move a group of similarly named files "LOG9999" from the PUB.SYS group to the OLDLOGS.SYS group. Is the a way to do this without doing each file by hand, or writing a CLI script?

Just as we did over the 26 years of active HP 3000 reporting, here's our relay of a thoughtful reply to the question. Keven Miller, whose Ranger 3K company hosts many archived manuals and sells decades of experience, answered with a script that does the move. He says he wrote the script long ago.

Fox 26:print rengroup.cmd.lab
PARM FILESET, NEWGRP, LEVEL=0

IF !LEVEL=0 THEN
   LISTF !FILESET,6 >LST
   !HPFILE !FILESET, !NEWGRP, 1 <LST
   PURGE LST,TEMP
ELSEIF !LEVEL=1 THEN
   SETVAR DONE FALSE
   SETVAR CNT  0
   WHILE NOT DONE DO
      SETJCW CIERROR=0
      CONTINUE
      INPUT FILE >$NULL
      IF CIERROR <> 0 THEN
         SETVAR DONE TRUE
      ELSE
         SETVAR F FINFO ( FILE, "FNAME" )
         SETVAR A FINFO ( FILE, "ACCOUNT" )
         SETVAR G UPS ( "!NEWGRP" )
         SETJCW CIERROR=0
         IF FINFO ( "!FILE", "VOLUME SET NAME" ) =  &
            FINFO ( "/!A/!G", "VOLUME SET NAME" )   &
         THEN
(24/42) Continue?
            CONTINUE
            RENAME !FILE,!F.!G.!A
         ELSE
            CONTINUE
            COPY !FILE,!F.!G.!A
            IF CIERROR = 0 THEN
               PURGE !FILE
            ENDIF
         ENDIF
         IF CIERROR <> 0 THEN
            SETVAR DONE TRUE
         ELSE
            SETVAR CNT CNT+1
         ENDIF
      ENDIF
   ENDWHILE
   ECHO !CNT files moved to !G.!A
   DELETEVAR DONE, FILE, A, F, CNT, G
ENDIF

In the event that script isn't formatted well enough, we can all find Keven's answer at

https://raven.utc.edu/SCRIPTS/WA.EXE?A2=HP3000-L;b1236a9b.2312C&S=

That's another 3000 mailing list, one you can prowl around with a browser.

It's not robots that keep the 3000 running. It's seasoned people. Tracy Johnson installed a version of the Invent3K server in 2010 and posted a note about it on the OpenMPE mailing list. It's just about the last tool that OpenMPE was able to mount. Hard working volunteers made up that group. Here in 2023, they're still working, just like the HP 3000