| 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
|
|---|
