Invoking Relection File Transfer from Quick

[Walker, Chris]

Why is T-ESC CHAR*2?  (Why, come to that is T-27 INT*2?)  The 2-character
T-ESC will put a space into your sequence immediately after the escape.

I would be inclined to say:

TEMP T-27 INTEGER SIZE 1 INITIAL 27 RESET AT START
TEMP T-ESC CHAR*1 INITIAL CHAR(T-27) RESET AT START

But what's so ugly about the DCL equivalent?  DCL is where this sort of code
belongs, so it can be used by any program that needs it.

$ ESC[0,7]=27
$ WRITE SYS$OUTPUT ESC,"&oFSend {} to {}"
$ DEF/USER SYS$INPUT SYS$COMMAND
$ ALPHALK2

Chris Walker
Tate & Lyle
London

> -----Original Message-----
> From:	Jim Hamer [SMTP:jhamer@milk.org]
> Sent:	Tuesday, October 05, 1999 3:43 PM
> To:	powerh-l@lists.swau.edu
> Subject:	Invoking Relection File Transfer from Quick
> 
> OpenVMS PH 7.10.F2, Reflection 7.00.228 P10
> 
> I just read the Application Development tip in the latest Supportlink
> (Vol. 
> 9 Number 4, page 57) that tells about starting Reflection Transfer from 
> Quick. I have done this on numerous occasions, but always from a command 
> procedure with lots of ugly, ugly DCL code. The code in the example is
> nice 
> and neat and I would like to make this work in VMS. I can get Alphalk2 
> started, but it will not accept my command to invoke the transfer dialog
> box.
> 
> Here is my code.
> 
> CANCEL CLEAR
> SET VERIFY ERRORS
> 
> SCREEN TEST_MENU MENU
> 
> ; Coded from Cognos Supportlink Vol 9 Number 4, Page 57 Oct-Dec 99.
> TEMP T-27 INT*2 INITIAL 27 RESET AT STARTUP
> TEMP T-ESC CHAR*2 INITIAL CHAR(T-27)[2:1] RESET AT STARTUP
> TEMP T-TRAN-COMM CHAR*60 INITIAL &
>          'WRITE SYS$OUTPUT "' + T-ESC + '&oFsend {} to {}"' &
>          RESET AT STARTUP
> 
> SKIP TO 5
> 
> TITLE "01 TEST FILE TRANSFER"
> 
> PROCEDURE DESIGNER 01
> BEGIN
>          RUN COMMAND T-TRAN-COMM
>          RUN COMMAND "ALPHALK2"
> END
> 
> What I get is this:
> 
> (#@#@#@)
> 
> I recognize this as output from Alphalk2. I get this 5 times and then the 
> control returns to my quick program. I suspect that the escape sequence is
> 
> incorrect. If I were to code this like my command procedure, the command 
> might look like this:
> 
> TEMP T-TRAN-COMM CHAR*60 INITIAL &
>          'WRITE SYS$OUTPUT "' + T-ESC + 'P1234;1{send {} to {}' + T-ESC + 
> '\"' &
>          RESET AT STARTUP
> 
> But this gives me the same result.
> Does anybody know the correct way to this?
> 
> Jim Hamer
> 
> 
> Jim Hamer                                      Contract System Analyst
> Dairy Farmers of Ontario                       (416) 489-3298
> Information Systems Division                   hamer@inforamp.net
> (905) 821-8970                                 Toronto, Ontario, Canada
> jhamer@milk.org
> http://www.inforamp.net/~hamer/
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> This list is closed, thus to post to the list, you must be a subscriber.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.