Changeset 623 for WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZISEDIT.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZISEDIT.m (modified) (1 diff)

WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZISEDIT.m

@@ -1 @@
-ZISEDIT ;ISF/AC - DEVICE EDIT ;01/17/2008
-        ;;8.0;KERNEL;**440**;Jul 10, 1995;Build 13
-        ;
-TRM     ;TRM or VTRM
-        D EDIT("TRM",,"Select Terminal/Printer Device: ")
-        Q
-        ;
-LPD     ;LPD fields of a TRM device
-        D EDIT("LPD","TRM","Select LPD (Terminal/Printer) Device: ")
-        Q
-        ;
-MT      ;Mag Tape
-        D EDIT("MT",,"Select Magtape Device: ")
-        Q
-        ;
-SDP     ;
-        D EDIT("SDP",,"Select SDP Device: ")
-        Q
-        ;
-SPL     ;Spool
-        D EDIT("SPL",,"Select Spool Device: ")
-        Q
-        ;
-HFS     ;Host file
-        D EDIT("HFS",,"Select Host File Device: ")
-        Q
-        ;
-CHAN    ;Network
-        D EDIT("CHAN",,"Select Network Channel: ")
-        Q
-        ;
-RES     ;Resource
-        D EDIT("RES",,"Select Resource Device: ")
-        Q
-        ;
-EDIT(ZISTYPE,ZISSCR,DICA)       ;
-        N Y,DA,DIC,DIE,DR,DDSFILE
-ED2     S DIC("A")=DICA,ZISSCR=$G(ZISSCR,ZISTYPE)
-        S DIC=3.5,DIC(0)="AEMQZL",DIC("S")="I $G(^(""TYPE""))["_""""_ZISSCR_"""" D ^DIC
-        Q:Y'>0
-        S DA=+Y
-        I $P(Y,"^",3) D
-        . N DIE,DR
-        . S DIE=DIC,DR="2///"_ZISTYPE_$S(ZISTYPE["TRM":"",1:";1.95///N")
-        . D ^DIE
-        . Q
-        S DR="[XUDEVICE "_ZISTYPE_"]",DDSFILE=3.5 D ^DDS
-        G ED2
-        Q
+ZISEDIT ;SFISC/AC - DEVICE EDIT ;11/9/92  17:00
+ ;;8.0;KERNEL;;Jul 10, 1995
+ ;
+MT S ZISTYPE="MT",DIC("A")="Select Magtape Device: " D EDIT K ZISTYPE
+ Q
+ ;
+SDP S ZISTYPE="SDP",DIC("A")="Select SDP Device: " D EDIT K ZISTYPE
+ Q
+ ;
+SPL S ZISTYPE="SPL",DIC("A")="Select Spool Device: " D EDIT K ZISTYPE
+ Q
+ ;
+HFS S ZISTYPE="HFS",DIC("A")="Select Host File Device: " D EDIT K ZISTYPE
+ Q
+ ;
+CHAN S ZISTYPE="CHAN",DIC("A")="Select Network Channel: " D EDIT K ZISTYPE
+ Q
+ ;;7.1P0;Kernel;;
+EDIT S DIC=3.5,DIC(0)="AEMQZL",DIC("S")="I $G(^(""TYPE""))="_""""_ZISTYPE_"""" D ^DIC
+ I Y'>0 K DIC Q
+ S DA=+Y I $P(Y,"^",3) S DIE=DIC,DR="2///"_ZISTYPE D ^DIE K DIE,DR
+ S DR="[XUDEVICE "_ZISTYPE_"]",DDSFILE=3.5 D ^DDS
+ K DA,DR,DDSFILE Q