Mumpster http://www.mumpster.org/ |
|
More MUMPS V1 utility http://www.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
|
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'
|
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 !
|
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/ |