×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

IBM PCOMM : Need autECL systax for font/screen size change

IBM PCOMM : Need autECL systax for font/screen size change

IBM PCOMM : Need autECL systax for font/screen size change

(OP)
Hi All,

I am using IBM Pcomm application .I can able to change font/screen size settings by using application menu option Edit --> Preferences --> Appearance --> Font in restore mode. Here I am selecting Fixed Size and using Courier : 15 x 25 pixels and then the screen size will be change. Then after i have maximizing my screen ( In Maximize window this option is not enable in application menu). This is i am doing while open the application every time. I would like to automate this activity using Pcomm Macros using VBA script by using Host access class libraries or if any. Can you please help me to identify the correct class or syntax for this.

Thanks,
Nath.

RE: IBM PCOMM : Need autECL systax for font/screen size change

could be file based config or registry perhaps? regmon, filemon, procmon etc.
would recommend asking the vendor, IBM on how to accomplish this

I Hear, I Forget
I See, I Remember
I Do, I Understand

Ronald McDonald

RE: IBM PCOMM : Need autECL systax for font/screen size change

>using VBA script

VBA and VBScript are two different things. Which are you really interested in? Here's a VBA solution (not really the focus of this forum, though)

Direct from IBM

CODE

Dim PgSet as Object
Dim ConnList as Object
 
Set PgSet = CreateObject("PCOMM.autECLPageSettings")
Set ConnList = CreateObject("PCOMM.autECLConnList")
' Initialize the connection
ConnList.Refresh
PgSet.SetConnectionByHandle(ConnList(1).Handle)
PgSet.FaceName = "Courier New" 'set the FaceName
PgSet. FontSize = 14 'set the FontSize 

Pretty certain pcomm has a macro recorder as well, so you could also try that to record the relevant code.

RE: IBM PCOMM : Need autECL systax for font/screen size change

(OP)
Hello Strongm,

Thanks for code snippet !!

Actually i am looking for VB Script coding. sorry for asking about VBA. I have modified slightly your code and try to execute this. But i have got an error like "Invalid for the connection type of the host session.." at "PgSet. FontSize = 14". Code is below

Process of running this macro.

1. Open the IBM PCOMM application in Restore mode.
2. Then exected the below script code.

CODE -->

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subFnt1

sub subFnt1()
Dim PgSet 
Dim ConnList 
 
Set PgSet = CreateObject("PCOMM.autECLPageSettings")
Set ConnList = CreateObject("PCOMM.autECLConnList")
' Initialize the connection
ConnList.Refresh
PgSet.SetConnectionByHandle(ConnList(1).Handle)
PgSet.FaceName = "Courier New" 'set the FaceName
PgSet. FontSize = 14 'set the FontSize 
end sub 

I have tried by recording the macro for this activity, But the code is not recorded for Menu level actions to this IBM PCOMM application.



Thanks,
Nath

RE: IBM PCOMM : Need autECL systax for font/screen size change

There is a space there that you need to delete

RE: IBM PCOMM : Need autECL systax for font/screen size change

(OP)
Hi Strongm,

I have removed the space and executed again. But showing the same error.

Actually your code is working for FILE --> page setup and then choosing font. This is for outline font.

But i want the code for Edit --> Preferences --> Appearance --> Font. This is for to change the TSO screen size.

Thanks,
Nath

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close