OpenVista/GT.M Integration

Merge lp:~jeff-apple/openvista-gtm-integration/bug406633 into lp:openvista-gtm-integration

  1. bug406633
  2. Merge into mainline
Proposed by jeff.apple
Status: Merged
Merged at revision: not available
Proposed branch: lp:~jeff-apple/openvista-gtm-integration/bug406633
Merge into: lp:openvista-gtm-integration
Diff against target: None lines
To merge this branch: bzr merge lp:~jeff-apple/openvista-gtm-integration/bug406633
Reviewer Review Type Date Requested Status
JSHER Approve
Review via email: mp+9517@code.launchpad.net
To post a comment you must log in.
Revision history for this message
JSHER (joel-sher) wrote :

Code looks good. Waiting for feedback from LMCNY test.

review: Approve
lp:~jeff-apple/openvista-gtm-integration/bug406633 updated
83. By jeff.apple

Update header

Preview Diff

[H/L] Next/Prev Comment, [J/K] Next/Prev File, [N/P] Next/Prev Hunk
1=== modified file 'mumps/HLCSLNCH.m'
2--- mumps/HLCSLNCH.m 2009-06-05 20:09:12 +0000
3+++ mumps/HLCSLNCH.m 2009-07-31 16:45:22 +0000
4@@ -112,7 +112,8 @@
5 S X="HLJ(870,"""_HLDP_","")",@X@(4)="Halting",@X@(10)=$$NOW^XLFDT,(@X@(11),@X@(9))="@",@X@(14)=1
6 I $P(HLPARM4,U,3)="C"&("N"[$P(HLPARM4,U,4)),'$P(HLPARM0,U,12) S @X@(4)="Shutdown"
7 D FILE^HLDIE("","HLJ","","STOP","HLCSLNCH") ; HL*1.6*109
8- I ^%ZOSF("OS")["OpenM",(($P(HLPARM4,U,3)="M"&($$OS^%ZOSV'["VMS"))!($P(HLPARM4,U,3)="S")) D
9+ S $ETRAP=""
10+ I ($P(HLPARM4,U,3)="M"&'$$NOTMULTI())!($P(HLPARM4,U,3)="S") D
11 . ;pass task number to stop listener
12 . S:$P(HLPARM0,U,12) X=$$ASKSTOP^%ZTLOAD(+$P(HLPARM0,U,12))
13 . D CALL^%ZISTCP($P(HLPARM4,U),$P(HLPARM4,U,2),10)
14
15=== modified file 'mumps/HLCSTCP.m'
16--- mumps/HLCSTCP.m 2009-06-05 20:09:12 +0000
17+++ mumps/HLCSTCP.m 2009-07-31 16:45:22 +0000
18@@ -24,7 +24,7 @@
19 S HLCSFAIL=1
20 ;single threaded listener
21 I $G(HLTCPCS)="S" D Q
22- . D ST1,MON("Listen"),LISTEN^%ZISTCP(HLTCPORT,"SERVER^HLCSTCP("""_HLDP_""")","S ZISQUIT=$$STOP^HLCSTCP()")
23+ . D ST1,MON("Listen"),LISTEN^%ZISTCP(HLTCPORT,"SERVER^HLCSTCP("""_HLDP_""")")
24 . ;couldn't open listener port
25 . I HLCSFAIL D EXITS("Openfail") Q
26 ;

Subscribers

People subscribed via source and target branches