![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
|
I have a combination of Accuterm and wIntegrate sessions and need to know the difference. I run this routine at the login to set the emulator flag for use by other applications. 001 * PROGRAM (EMULATOR) Determines emulator 002 * R.Cathcart 20070213 003 INCLUDE SBP INCLUDES 004 PROMPT '' 005 OPEN 'PORTS' TO PORTS.FILE ELSE STOP 006 WINTEG = 0 007 ACCUTERM = 0 008 CRT @(0,0): 009 ECHO OFF 010 *** 011 * CHECK FOR WINTEGRATE 012 CALL WIN.COMSUB("Enter 1") 013 INPUT WINTEG FOR 10 ELSE 014 WINTEG = 0 015 END 016 IF WINTEG > 0 THEN GO UPDATE.PORTS 017 *** 018 * CHECK FOR ACCUTERM 019 CALL FTVSINF(ACCUTERM,'','','','','','','') 020 *** 021 * POST FINDING TO PORTS RECORD 022 UPDATE.PORTS: * 023 CRT @(0,23):EEOS: 024 ECHO ON 025 READU PORTS.REC FROM PORTS.FILE,PORT ELSE PORTS.REC = '' 026 PORTS.REC<3> = '' 027 IF WINTEG > 0 THEN PORTS.REC<3> = 'WINTEG' 028 IF ACCUTERM > 0 THEN PORTS.REC<3> = 'ACCUTERM' 029 WRITE PORTS.REC ON PORTS.FILE,PORT 030 STOP |
#2
| |||
| |||
|
|
The only problem with this solution is that it REQUIRES BOTH Wintegrate and Accuterm to be installed on every client. Otherwise it will fall over on one of the CALL statements. Joe provided a link earlier in this thread which gave an escape sequence that would return a Wintegrate response. There is an equivalent Accuterm escape sequence too. So a better general purpose routine would use these escape sequences. Cheers, Brian pickd3 (AT) mchsi (DOT) com wrote: I have a combination of Accuterm and wIntegrate sessions and need to know the difference. I run this routine at the login to set the emulator flag for use by other applications. 001 * PROGRAM (EMULATOR) Determines emulator 002 * R.Cathcart 20070213 003 INCLUDE SBP INCLUDES 004 PROMPT '' 005 OPEN 'PORTS' TO PORTS.FILE ELSE STOP 006 WINTEG = 0 007 ACCUTERM = 0 008 CRT @(0,0): 009 ECHO OFF 010 *** 011 * CHECK FOR WINTEGRATE 012 CALL WIN.COMSUB("Enter 1") 013 INPUT WINTEG FOR 10 ELSE 014 WINTEG = 0 015 END 016 IF WINTEG > 0 THEN GO UPDATE.PORTS 017 *** 018 * CHECK FOR ACCUTERM 019 CALL FTVSINF(ACCUTERM,'','','','','','','') 020 *** 021 * POST FINDING TO PORTS RECORD 022 UPDATE.PORTS: * 023 CRT @(0,23):EEOS: 024 ECHO ON 025 READU PORTS.REC FROM PORTS.FILE,PORT ELSE PORTS.REC = '' 026 PORTS.REC<3> = '' 027 IF WINTEG > 0 THEN PORTS.REC<3> = 'WINTEG' 028 IF ACCUTERM > 0 THEN PORTS.REC<3> = 'ACCUTERM' 029 WRITE PORTS.REC ON PORTS.FILE,PORT 030 STOP |
#3
| |||
| |||
|
#4
| |||
| |||
|
|
First, the two calls in the solution from pickd3 are calls to subroutines on the host, not on the client, therefore you do not need to have both AccuTerm and Wintegrate installed on each PC. I cannot speak for the WIN.COMSUB routine, but AccuTerm's FTVSINF subroutine returns a status that indicates whether AccuTerm is present, and a variety of information about the version and capabilities of the connected AccuTerm. It will work with a dumb terminal, and other emulators (as far as I know). It has a timed INPUT statement so if something other than AccuTerm is connected, it will simply return with a "AccuTerm not found" status. It uses the same approach recommended by Brian, but the details are already written for you. Thanks, Peter Schellenbach |
#5
| |||
| |||
|
![]() |
| Thread Tools | |
| Display Modes | |
| |