Mumpster
http://mumpster.org/

More MUMPS V1 utility
http://mumpster.org/viewtopic.php?f=13&t=398
Page 7 of 8

Author:  cais28 [ Sat Jan 14, 2012 12:31 pm ]
Post subject:  Re: More MUMPS V1 utility

Hi "Art"

The new web-homepage is FREE : www.cais-system.weebly.com
In this page/links , available more MV1 utilities and the new CACHE-MV1 object migration ....

Good works ....

Author:  cais28 [ Tue Apr 10, 2012 1:36 pm ]
Post subject:  Re: More MUMPS V1 utility

Hi All

The new version of MV1SysTray 2.3 available on Sourceforge , or :
http://cais-system.weebly.com/mv1systray-for-linux.html

News :

- New MV1Studio 1.3 , multi editor mode (loading MUMPS source up to 100 routines)
- gambas program arguments :
Runing only MV1Studio 1.3 = ./MV1Tray2.gambas Studio
Runing only MV1GlobalEditor = ./MV1Tray2.gambas Geditor

Attachments:
Studio1_3.jpg
Studio1_3.jpg [ 54.17 KiB | Viewed 68033 times ]

Author:  cais28 [ Thu May 03, 2012 2:47 pm ]
Post subject:  Re: More MUMPS V1 utility

Hi

On this link available MumpsV1 Cross-System-Journaling utility package :
http://sourceforge.net/projects/mv1syst ... g%20Tech./

Author:  raynewman [ Thu May 03, 2012 2:49 pm ]
Post subject:  Re: More MUMPS V1 utility

Thanks Josef.

Ray

Author:  cais28 [ Fri May 04, 2012 1:57 pm ]
Post subject:  Re: More MUMPS V1 utility

.... and CSJ GUI manager available in NEW MV1SysTray 2.4.12 on 'sourceforge'

Attachments:
CSJStart.JPG
CSJStart.JPG [ 139.05 KiB | Viewed 67909 times ]

Author:  cais28 [ Fri May 25, 2012 4:30 am ]
Post subject:  Re: More MUMPS V1 utility

HI All,

The caOBJECTFactory integrated in MV1SysTray2.5 available :
http://cais-system.weebly.com/caobject- ... gouml.html

and MV1SysTray2.5 : http://cais-system.weebly.com/mv1systray-for-linux.html
if use only caOBJECTFactory-IDE : ./MV1Tray2.gambas caOBJFactory

Updated the caOBJECT PDF documentation , for multidimensional-object-storage .

Enjoy FREE !

Attachments:
caOBJF2.jpg
caOBJF2.jpg [ 198.97 KiB | Viewed 67794 times ]

Author:  cais28 [ Fri Jul 20, 2012 4:45 am ]
Post subject:  Re: More MUMPS V1 utility

Hi All

The new version of MV1Tray2.5.38 available .
Include the new version of CSJ/Shadowing .
Recommended MV1 version : MumpsV1.58
http://sourceforge.net/projects/mv1syst ... /MV1Tray2/

Author:  cais28 [ Sun Aug 12, 2012 1:53 pm ]
Post subject:  Re: More MUMPS V1 utility

Hi

The command line MV1 server(configured MV1SysTray2.x !) administration utility available on : http://sourceforge.net/projects/mv1syst ... V1Sysctrl/?

Usage: MV1Sysctrl option
available options : START = Start MV1 Server configured as 'mv1.mcf'
STOP = Stop MV1 Server
STATUS = Show MV1 Server ON/OFF
CONFIG = Show the Server configurations
CONLOG = Show the 'console.log' file
VER = Show MV1Sysctrl version

Author:  cais28 [ Sun May 05, 2013 4:58 am ]
Post subject:  Re: More MUMPS V1 utility

some help to manipulation MV1 routines (%RSEL,%RCOPY)

%RSEL ;Do routine selector [ 05/05/2013 13:42 PM ]
;Interactive 'internal' usage : S %INT=1 D RU^%RSEL
; S %INT=1 D RR^%RSEL
;Internal usage : D INT^%RSEL(1,UCI,RTN)
W !," MV1 Routine selector",! K %INT
RU R !,"Seletc UCI:",UCI I $G(UCI)="" S UCIN=$G(^$J($J,"GLOBAL")),UCI=^$S("VOL",1,"UCI",UCIN) W UCI
W:UCI="?" !,"Available UCI's: "
S TR=0,UN="" F S UN=$O(^$S("VOL",1,"UCI",UN)) Q:UN="" D
.S UNN=$G(^$S("VOL",1,"UCI",UN)) W:UCI="?" UNN_" " S:UNN=UCI TR=1
G:UCI="?" RU I 'TR W !,"Invalid UCI...." G RU
RR R !,"Routine(s):",RTN I RTN="" S RTN="*" W RTN
S %INT=$G(%INT,0) D INT(%INT,$G(UCI),$G(RTN)) Q
INT(%INT,UCI,RTN) ;Internal usage %INT=0 to display , %INT=1 to ^MTEMP($J,.. , %INT=-1 dysplay sum()
S RTN=$G(RTN) I RTN="" S RTN="*"
S UCI=$G(UCI) I $G(UCI)="" S UCIN=$G(^$J($J,"GLOBAL")),UCI=^$S("VOL",1,"UCI",UCIN)
S %INT=$G(%INT,0),CNT=0 K SEL,^MTEMP($J) D INT^%RD(3,RTN,UCI)
W:'%INT ! S N="" F S N=$O(SEL(N)) Q:N="" W:'%INT !,N S:%INT ^MTEMP($J,N)=N S CNT=CNT+1
W:%INT=-1 !,CNT_" selected."
Q


;Routine Copy utility [ 05/05/2013 13:54 PM ]
W !," MV1 routine copy utility",!
S %INT=-1 D RU^%RSEL S UCI=$G(UCI)
RU R !,"Destination UCI:",DUCI Q:DUCI="" W:DUCI="?" !,"Available UCI's: "
S TR=0,UN="" F S UN=$O(^$S("VOL",1,"UCI",UN)) Q:UN="" D
.S UNN=$G(^$S("VOL",1,"UCI",UN)) W:DUCI="?" UNN_" " S:UNN=DUCI TR=1
G:DUCI="?" RU I 'TR W !,"Invalid UCI...." G RU
I UCI=DUCI W !,"** Source=Destination ?? Quit" Q
S RTN="",RCN=0 F S RTN=$O(^MTEMP($J,RTN)) Q:RTN="" D
.M ^[DUCI]$R(RTN)=^[UCI]$R(RTN) S RCN=RCN+1
W !,RCN_" copied."
Q

Author:  cais28 [ Sun May 12, 2013 7:38 am ]
Post subject:  Re: More MUMPS V1 utility

Hex <=> Dec converter routine :

Code:
%ZHEX(%num,%ns)  ;Hexadecimal<->Decimal converter [ 05/12/2013 16:29 PM ]
      N (%num,%ns)
      S %num=$G(%num),%ns=$G(%ns,"H"),%ret=0 D In G:%ns="D" Dec
      S %ret="" F  Q:'(%num\16)  D
      .S %nx=1,%df=17 F  Q:(%df<16)  S %nx=%nx*16,%df=%num\%nx
      .S %num=%num-(%nx*%df),%ret=%ret_DECT(%df)
      S %ret=%ret_DECT(%num) Q %ret
Dec   ;Convert HEX to DEC
      S %b=1,%bx=16,%l=$L(%num) F ii=%l:-1:1 S %x=$E(%num,ii),%ret=%ret+(%b*HEXT(%x)),%b=%b*%bx
      Q %ret
In    ;Hex table
      K HEXT S ii=0
      F ix="0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"  D
      .S HEXT(ix)=ii,DECT(ii)=ix,ii=ii+1
      Q


eX. from Dec to Hex
W $$^%ZHEX("56986561164687","H")
33D437BC358F

ex. from Hex to Dec
W $$^%ZHEX("33D437BC358F","D")
56986561164687

Page 7 of 8 All times are UTC - 8 hours [ DST ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/