source: IHS-VA_UTILITIES-XB/trunk/XBLMSET.m@ 1745

Last change on this file since 1745 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.3 KB
RevLine 
[641]1XBLMSET ;IHS/ADC/PDW - setup XBLM terminal subtype & XBLM HF DEVICE for XBLM [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;;
4 I '$D(DUZ) D ^XUP
5TERM ;SETUP TERMINAL SUBTYPE "P-XBLM"
6 K DIC
7 S DIC=$$DIC^XBDIQ1(3.2)
8 S X="P-XBLM",DIC(0)="XL"
9 D ^DIC
10 I Y'>0 W !,"ERROR IN SELECTION OF TERMINAL SUBTYPE",! Q
11 S DA=+Y
12 D TERMDR
13 S DIE=DIC D ^DIE
14 S XBTERDA=DA
15 ;
16DEV ; SETUP device
17 K DIC
18 S DIC=$$DIC^XBDIQ1(3.5)
19 S X="XBLM HF DEVICE",DIC(0)="XL" D ^DIC
20 I Y'>0 W !,"ERROR IN DEVICE SELECTION" Q
21 S DA=+Y
22 D DEVDR
23 S DIE=$$DIC^XBDIQ1(3.5)
24 D ^DIE
25 S XBDEVDA=DA
26 ;D DIQ^XBLM(3.2,XBTERDA)
27 ;D DIQ^XBLM(3.5,XBDEVDA)
28 Q
29TERMDR ;;EP
30 ;;~.02///^S X="NO";~
31 ;;~1///^S X=255;~
32 ;;~2///^S X="#";~
33 ;;~3///3000;~
34 ;;~4///^S X="$C(8)";~
35 ;;~99///^S X="Host File for XBLM utility"~
36 ;;~END~
37 S DR=""
38 F I=1:1 S X=$P($T(TERMDR+I),"~",2) Q:X["END" S DR=DR_X
39 Q
40DEVDR ;;
41 ;;~.02///^S X="HOST FILE FOR XBLM";~
42 ;;~1///^S X=$S($$VERSION^%ZOSV(1)["Cache for Windows":"C:\Tmp\Tmp.xblm",$$VERSION^%ZOSV(1)["Cache for UNIX":"/Tmp/Tmp.xblm",1:51);~ ; IHS/SET/GTH XB*3*9 10/29/2002 Originally: ;;~1///^S X=51;~
43 ;;~1.9///@;~
44 ;;~1.95///^S X="NO";~
45 ;;~2///^S X="HOST FILE SERVER";~
46 ;;~3///^S X="P-XBLM";~
47 ;;~4///^S X="NO";~
48 ;;~5///^S X="NO";~
49 ;;~5.1///^S X="NO";~
50 ;;~5.2///^S X="NO";~
51 ;;~11.2///^S X="YES";~
52 ;;~END~
53 S DR=""
54 F I=1:1 S X=$P($T(DEVDR+I),"~",2) Q:X["END" S DR=DR_X
55 Q
Note: See TracBrowser for help on using the repository browser.