Last change
on this file since 1258 was 642, checked in by Sam Habiel, 15 years ago |
Modified directory structure; moved routines.
|
File size:
1.3 KB
|
Rev | Line | |
---|
[641] | 1 | XBLMSET ;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
|
---|
| 5 | TERM ;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 | ;
|
---|
| 16 | DEV ; 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
|
---|
| 29 | TERMDR ;;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
|
---|
| 40 | DEVDR ;;
|
---|
| 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.