Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

How to call 4gl from Perl

by arunkumar.ceg (Initiate)
on Mar 20, 2017 at 18:54 UTC ( #1185278=perlquestion: print w/replies, xml ) Need Help??

arunkumar.ceg has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'm new to perl and 4GL. I am assigned a task to automate few things. I've a 4gl program which when executed, it is opening a screen where user has to press just F7, F8, F12 something like this. It will then navigate to different menus and different screen and does some functionality. My job is to automate these set of actions. My question is, how can I pass function key strokes to the 4GL executable and navigate through screens.

Replies are listed 'Best First'.
Re: How to call 4gl from Perl
by Corion (Pope) on Mar 20, 2017 at 18:55 UTC
      Thank you for your response! this is xterm
Re: How to call 4gl from Perl
by cbeckley (Curate) on Mar 21, 2017 at 01:13 UTC

    Which 4gl is it? Is it PowerBuilder, Unify, Oracle Forms? What is the screen generation framework? Curses, X, some version of Windows?

    You're going to have to give us a lot more information before any one of us can determine if we have knowledge to share.

    There are tools to macrotize (I'm sure that's a word) input to various types of GUIs, but given my experience with 4gl's in the distant past (waaaaay distant past), and more recent experience with expect and various windows macro tools, the cleanest, most stable, and even possibly quickest way may be to dig into to the 4gl and develop a new screen that does exactly what you need.

    Hope that helps,
    cbeckley

    Update Ah, you already said xterm. My apologies.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1185278]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2020-08-06 09:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which rocket would you take to Mars?










    Results (39 votes). Check out past polls.

    Notices?