Hi Remy,
Yes, I am writing to a text file.
Here is the macro:
'Global Variables
Global CapBuffer As Variant
Global CapBuffSize As Long
Sub Main()
' Get the Attachmate Screen Object
Dim objAttachScreen As Object
Set objAttachScreen = CreateObject("EXTRA.System").ActiveSession.Screen
If...
Or maybe i need to change GetString to something
just like you did to PutString?
Buffer$ = Buffer$ & objAttachScreen.GetString(1,1, Buffersize%)
Write #1, Buffer$
Hi Remy,
Super! It works!
Thank you very much.
J
i have the same problem copying from
host to txt/doc file;
shall i change my "write #1, buffer$"
to something else?
Hi Lakare,
But msgbox is returning the correct polish characters; normal cut and paste from excel to mainframe is working fine as well.
Thanks for your reply.
Best regards,
J
thread1-1582572
Hi Guys,
This code is working fine except that "Okł" was put as "Ok-".
Dim Jonats as String
Jonats = "Okł"
Sess0.Screen.PutString (Jonats)
Can somebody please help on how to preserve special/national characters?
Thanks and Regards,
Jonathan
Hi Guys,
I have a macro which reads each record of an EXCEL file then copy and paste it to EXTRA (mainframe) dataset. It is working fine except that Polish characters are converted to '-'. Maybe someone know of a code or command to make sure that whatever record in excel file will be copied...
Hi,
Does anyone have a macro to print host file to word document?
Thanks and Best Regards,
Jonathan
( i tried the macro below, but it is not compiling successfully)
Global g_HostSettleTime%
Sub Main()
'--------------------------------------------------------------------------------
' Get...
Hi link99sbc,
Thanks a lot! This is what I am looking for. However, only the first screen ( and only up to column 72) was captured; which part of the code should I change?
Best Regards,
Jonathan
Hi Frank,
Thanks, it works on the command line....Is there any parameter to validate the input; I only want to accept digits 0-9 and up to 4 digits only....
%PLS INPUT HERE ==>_JG / /+
Best Regards,
Jonathan
Hi,
I have defined a panel in my rexx program where users can encode values on certain rows,columns.
How do I capture/pull the encoded value in my variable list?
Thanks and Regards,
Jonathan
Shown below is my screen panel.
-----------------...
no it's not an alignment question....
i'm doing some sort of racing program in rexx....
illustration (i have 3 lines of text for example:)
line 1: RACE ENTRY NUMBER1
line 2: RACE ENTRY NUMBER2
line 3: RACE ENTRY NUMBER3
i want my rexx to display the 3 lines, then as i press enter key, the...
Does anyone know how to do this in rexx?
I want to display a text "ANY TEXT", then I want to move this text as i press the enter key (I already have the routine assigning how many spaces the text will move); just want to know how to make the text move.
Thanks,
Jonathan
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.