- XMBATCH ;DG/TPA/IHS - INTERFACE TO DETERMINE TAPE OR HFS (GET NAME) [ 09/16/93 11:22 AM ]
- ;;7.1;Mailman;**1003**;OCT 27, 1998
- ;;7.0;Kernel;*IHS ROUTINE FROM;;3.18;;3.27
- ; ACC/IHS - fixed to use 51 for HFS-IN, 52 for HFS-OUT
- ;
- I '$D(XMODE) G ERR
- S XM=""
- S DIR("A")="Enter Name Of Device",DIR(0)="S^C:Cartridge Tape;T:9-Track Tape;H:Host File Server" D ^DIR K DIR G:$D(DIRUT) ERR
- S IOP=$S(Y="C":47,Y="T":48,1:$S(XMODE="IN":51,1:52)) ;ACC/IHS
- S XMCHAN=$P($T(@Y),";;",2)_"-"_XMODE
- I $P(XMCHAN,"-")="HFS" S DIR("A")="Enter File Name: ",DIR(0)="F^1:30" D ^DIR K DIR G:$D(DIRUT) ERR S %ZIS("IOPAR")="("""_Y_""":"""_$S(XMODE="OUT":"W",1:"R")_""")"
- ;I $P(XMCHAN,"-")="TAPE" S %ZIS("IOPAR")="("""_$S(XMODE="OUT":"W",1:"R")_""")"
- K XMODE
- Q
- ;
- ERR ;
- K IOP,XMODE,XMCHAN
- Q
- ;
- C ;;TAPE
- T ;;TAPE
- H ;;HFS
- XMBATCH ;DG/TPA/IHS - INTERFACE TO DETERMINE TAPE OR HFS (GET NAME) [ 09/16/93 11:22 AM ]
- +1 ;;7.1;Mailman;**1003**;OCT 27, 1998
- +2 ;;7.0;Kernel;*IHS ROUTINE FROM;;3.18;;3.27
- +3 ; ACC/IHS - fixed to use 51 for HFS-IN, 52 for HFS-OUT
- +4 ;
- +5 IF '$DATA(XMODE)
- GOTO ERR
- +6 SET XM=""
- +7 SET DIR("A")="Enter Name Of Device"
- SET DIR(0)="S^C:Cartridge Tape;T:9-Track Tape;H:Host File Server"
- DO ^DIR
- KILL DIR
- IF $DATA(DIRUT)
- GOTO ERR
- +8 ;ACC/IHS
- SET IOP=$SELECT(Y="C":47,Y="T":48,1:$SELECT(XMODE="IN":51,1:52))
- +9 SET XMCHAN=$PIECE($TEXT(@Y),";;",2)_"-"_XMODE
- +10 IF $PIECE(XMCHAN,"-")="HFS"
- SET DIR("A")="Enter File Name: "
- SET DIR(0)="F^1:30"
- DO ^DIR
- KILL DIR
- IF $DATA(DIRUT)
- GOTO ERR
- SET %ZIS("IOPAR")="("""_Y_""":"""_$SELECT(XMODE="OUT":"W",1:"R")_""")"
- +11 ;I $P(XMCHAN,"-")="TAPE" S %ZIS("IOPAR")="("""_$S(XMODE="OUT":"W",1:"R")_""")"
- +12 KILL XMODE
- +13 QUIT
- +14 ;
- ERR ;
- +1 KILL IOP,XMODE,XMCHAN
- +2 QUIT
- +3 ;
- C ;;TAPE
- T ;;TAPE
- H ;;HFS
