[628] | 1 | ZISEDIT ;ISF/AC - DEVICE EDIT ;01/17/2008
|
---|
| 2 | ;;8.0;KERNEL;**440**;Jul 10, 1995;Build 13
|
---|
| 3 | ;
|
---|
| 4 | TRM ;TRM or VTRM
|
---|
| 5 | D EDIT("TRM",,"Select Terminal/Printer Device: ")
|
---|
| 6 | Q
|
---|
| 7 | ;
|
---|
| 8 | LPD ;LPD fields of a TRM device
|
---|
| 9 | D EDIT("LPD","TRM","Select LPD (Terminal/Printer) Device: ")
|
---|
| 10 | Q
|
---|
| 11 | ;
|
---|
| 12 | MT ;Mag Tape
|
---|
| 13 | D EDIT("MT",,"Select Magtape Device: ")
|
---|
| 14 | Q
|
---|
| 15 | ;
|
---|
| 16 | SDP ;
|
---|
| 17 | D EDIT("SDP",,"Select SDP Device: ")
|
---|
| 18 | Q
|
---|
| 19 | ;
|
---|
| 20 | SPL ;Spool
|
---|
| 21 | D EDIT("SPL",,"Select Spool Device: ")
|
---|
| 22 | Q
|
---|
| 23 | ;
|
---|
| 24 | HFS ;Host file
|
---|
| 25 | D EDIT("HFS",,"Select Host File Device: ")
|
---|
| 26 | Q
|
---|
| 27 | ;
|
---|
| 28 | CHAN ;Network
|
---|
| 29 | D EDIT("CHAN",,"Select Network Channel: ")
|
---|
| 30 | Q
|
---|
| 31 | ;
|
---|
| 32 | RES ;Resource
|
---|
| 33 | D EDIT("RES",,"Select Resource Device: ")
|
---|
| 34 | Q
|
---|
| 35 | ;
|
---|
| 36 | EDIT(ZISTYPE,ZISSCR,DICA) ;
|
---|
| 37 | N Y,DA,DIC,DIE,DR,DDSFILE
|
---|
| 38 | ED2 S DIC("A")=DICA,ZISSCR=$G(ZISSCR,ZISTYPE)
|
---|
| 39 | S DIC=3.5,DIC(0)="AEMQZL",DIC("S")="I $G(^(""TYPE""))["_""""_ZISSCR_"""" D ^DIC
|
---|
| 40 | Q:Y'>0
|
---|
| 41 | S DA=+Y
|
---|
| 42 | I $P(Y,"^",3) D
|
---|
| 43 | . N DIE,DR
|
---|
| 44 | . S DIE=DIC,DR="2///"_ZISTYPE_$S(ZISTYPE["TRM":"",1:";1.95///N")
|
---|
| 45 | . D ^DIE
|
---|
| 46 | . Q
|
---|
| 47 | S DR="[XUDEVICE "_ZISTYPE_"]",DDSFILE=3.5 D ^DDS
|
---|
| 48 | G ED2
|
---|
| 49 | Q
|
---|