Code Comments

Programming Forum and web based access to our favorite programming groups.
For Programmers: Free Programming Magazines | New: Database administration forum
Registration is free! Edit your profileCalendarFind other membersFrequently Asked QuestionsSearch -> 
Post New Thread











Thread
Author

F5
Is it possible to look at this code and be able to tell what characters are
being sent when F5 is hit by looking at this code? I am attemtping to
duplicate in vt220 emulation environment what is being sent in ibm3151
emulation when F5 is hit

*LIB*LMBX95. CL**************************************
*************
***
** LMBX95
******* Dated: 12/20/1996 - YEAR2000 COMPLIANT
01 FUNCTION-KEYS.
03 FK-ESC       PIC XX VALUE "01".
03 FK-INT       PIC XX VALUE "02".
03 FK-EOJ       PIC XX VALUE "03".
03 FK-OPT       PIC XX VALUE "04".
03 FK-GN        PIC XX VALUE "05".
03 FK-CAN       PIC XX VALUE "09".
03 FK-ALPHA     PIC XX VALUE "06".
03 FK-R1        PIC XX VALUE "07".
03 FK-R2        PIC XX VALUE "08".
03 FK-K9        PIC XX VALUE "10".
03 FK-K10       PIC XX VALUE "11".
03 FK-K11       PIC XX VALUE "12".
03 FK-K12       PIC XX VALUE "13".
03 FK-K13       PIC XX VALUE "14".
03 FK-K14       PIC XX VALUE "15".
03 FK-K15       PIC XX VALUE "16".
01 SYSTEM-VARIABLES.
03 SYS          PIC 9 VALUE 2.
03 PRINTNME.
07 filler       pic x(1) value ":".
05 DIRNAME.
07 FILLER       PIC X(8) VALUE "/prt/PRT".
07 DIRCOMPANY   PIC 99.
07 DIRFILE      PIC X(4) VALUE "FILE".
05 FILLER    PIC X     VALUE ":".
05 SYS-PRINTNME.
06 PRPGM       PIC X(6).
06 FILLER      PIC X VALUE "_".
06 PRWHSE      PIC 9(2).
06 FILLER      PIC X VALUE "_".
06 PRLINE      PIC 9(3).
06 FILLER      PIC X VALUE "_".
06 PRINTFILE.
07 PRDATE.
09 PR-D-MM  PIC 99.
09 PR-D-DD  PIC 99.
09 PR-D-YY  PIC 99.
07 PRTIME.
09 PR-T-HH  PIC 99.
09 PR-T-MM  PIC 99.
09 PR-T-SS  PIC 99.
01 Z-DRIVER-CONSTANTS.
03 Z-DF.
05 Z-DRIVER-FUNCTION PIC XX VALUE SPACE.
03 Z-NO-WAIT            PIC 9 VALUE 0.
01 SYS-CRT-LINE                 PIC 9(3).
01 SYS-TIME                     PIC 9(8).
01 SYS-TIME-R REDEFINES SYS-TIME.
03 SYS-TIME-HH          PIC 99.
03 SYS-TIME-MM          PIC 99.
03 SYS-TIME-SS          PIC 99.
03 SYS-TIME-TT          PIC 99.
01 UTILITY-FIELDS.
03 Z-FLD1                 PIC S9999.
03 Z-FLD2                 PIC S9999.
03 Z-YR-ERR               PIC 9.
01 PRT-PASS.
03 PASS-PROGRAM         PIC X(6) VALUE SPACES.
03 PASS-TIME            PIC X(6) VALUE SPACES.
03 FILLER               PIC X(2) VALUE LOW-VALUE.



Report this thread to moderator Post Follow-up to this message
Old Post
scorpion53061
05-12-04 11:47 PM


Re: F5
On Mon, 10 May 2004 09:20:57 -0500, "scorpion53061"
<scorpion_53061@nospamhereeveryahoo.com> wrote:

>Is it possible to look at this code and be able to tell what characters are
>being sent when F5 is hit by looking at this code? I am attemtping to
>duplicate in vt220 emulation environment what is being sent in ibm3151
>emulation when F5 is hit
>
>      *LIB*LMBX95. CL**************************************
*************
>      ***
>      ** LMBX95
>******* Dated: 12/20/1996 - YEAR2000 COMPLIANT
>       01 FUNCTION-KEYS.
>               03 FK-ESC       PIC XX VALUE "01".
>               03 FK-INT       PIC XX VALUE "02".
>               03 FK-EOJ       PIC XX VALUE "03".
>               03 FK-OPT       PIC XX VALUE "04".
>               03 FK-GN        PIC XX VALUE "05".
>               03 FK-CAN       PIC XX VALUE "09".
>               03 FK-ALPHA     PIC XX VALUE "06".
>               03 FK-R1        PIC XX VALUE "07".
>               03 FK-R2        PIC XX VALUE "08".
>               03 FK-K9        PIC XX VALUE "10".
>               03 FK-K10       PIC XX VALUE "11".
>               03 FK-K11       PIC XX VALUE "12".
>               03 FK-K12       PIC XX VALUE "13".
>               03 FK-K13       PIC XX VALUE "14".
>               03 FK-K14       PIC XX VALUE "15".
>               03 FK-K15       PIC XX VALUE "16".
Snip

This will depend on the Compiler used, which you forgot to mention,
and also on whether it is using termcap or terminfo.

If this was RM/COBOL, the value would be determined either by the
default of the runtime, or by the value configured on the
configuration file used as part of the command line.




Frederico Fonseca
ema il: frederico_fonseca at syssoft-int.com

Report this thread to moderator Post Follow-up to this message
Old Post
Frederico Fonseca
05-12-04 11:47 PM


Re: F5
Ok help me determine what you need to find this out.

Tell me where to go to find out:

what Compiler used
whether termcap or terminfo
or what else you need to know.

I am kind of a fish out of water with this because normally I am a windows
programmer.

This is a RISC6000 box.

Thank you very much for your help in this.

"Frederico Fonseca" <real-email-in-msg-spam@email.com> wrote in message
 news:ltcv901a9r44dn2gbb90mjoi5otn885q2l@
4ax.com...
>
> On Mon, 10 May 2004 09:20:57 -0500, "scorpion53061"
> <scorpion_53061@nospamhereeveryahoo.com> wrote:
> 
are 
> Snip
>
> This will depend on the Compiler used, which you forgot to mention,
> and also on whether it is using termcap or terminfo.
>
> If this was RM/COBOL, the value would be determined either by the
> default of the runtime, or by the value configured on the
> configuration file used as part of the command line.
>
>
>
>
> Frederico Fonseca
> ema il: frederico_fonseca at syssoft-int.com



Report this thread to moderator Post Follow-up to this message
Old Post
scorpion53061
05-12-04 11:47 PM


Re: F5
Top posting corrected

On Mon, 10 May 2004 16:00:37 -0500, "scorpion53061"
<scorpion_53061@nospamhereeveryahoo.com> wrote:


>
>"Frederico Fonseca" <real-email-in-msg-spam@email.com> wrote in message
> news:ltcv901a9r44dn2gbb90mjoi5otn885q2l@
4ax.com... 
>are 
>


>Ok help me determine what you need to find this out.
>
>Tell me where to go to find out:
>
>what Compiler used
>whether termcap or terminfo
>or what else you need to know.


For this info you will need to ask whoever is the maker of the program
you are using.

If it is an in-house development ask the developers, as they will know
for sure.


If you are good with unix then have a look at how the application is
started, and if it is as part of an executable, do a "strings
executable_program_name", and see if you find something that can help
identify the maker.



>
>I am kind of a fish out of water with this because normally I am a windows
>programmer.
>
>This is a RISC6000 box.
>
>Thank you very much for your help in this.




Frederico Fonseca
ema il: frederico_fonseca at syssoft-int.com

Report this thread to moderator Post Follow-up to this message
Old Post
Frederico Fonseca
05-12-04 11:47 PM


Re: F5
What confuses me is I came up with workarounds on the vt220 for all the
other funciton keys except F5.

This function key is however appears deviod of any consistent solution.

The writer of the program is unfortantely not available to be asked.

I called another cosulting firm and they suggested it was defined in
LMBX95.CL (which I pasted to you) and is saved in teh variable name DISK-ERR
when F5 is pressed.

Does this make sense to you?

"Frederico Fonseca" <real-email-in-msg-spam@email.com> wrote in message
 news:srrv909bj3354j1ffdknbmtlucjmcf4a9q@
4ax.com...
> Top posting corrected
>
> On Mon, 10 May 2004 16:00:37 -0500, "scorpion53061"
> <scorpion_53061@nospamhereeveryahoo.com> wrote:
>
> 
characters 
*LIB*LMBX95. CL**************************************
************* 
>
> 
>
>
> For this info you will need to ask whoever is the maker of the program
> you are using.
>
> If it is an in-house development ask the developers, as they will know
> for sure.
>
>
> If you are good with unix then have a look at how the application is
> started, and if it is as part of an executable, do a "strings
> executable_program_name", and see if you find something that can help
> identify the maker.
>
>
> 
windows 
>
>
>
>
> Frederico Fonseca
> ema il: frederico_fonseca at syssoft-int.com



Report this thread to moderator Post Follow-up to this message
Old Post
scorpion53061
05-12-04 11:47 PM


Re: F5
"scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote

> Is it possible to look at this code and be able to tell what characters ar
e
> being sent when F5 is hit by looking at this code? I am attemtping to
> duplicate in vt220 emulation environment what is being sent in ibm3151
> emulation when F5 is hit

The answer is NO.  It is not possible to determine this.

As I understand it a 3151 is a block mode terminal.  Whatever is sent
by the F5 key may depend entirely on what the 3151 is programmed to
do.  It may for example send in all the input fields on the screen, or
it may not.

The VT220 is a character mode terminal what is 'sent' when the F5 key
is pressed will depend on what the keys are programmed to send in the
emulation.  It may send a 'escape 0 T' or some other.  These would
normally be interpreted by terminfo and curses to identify this as
'F5' to the ACCEPT statement.  The fields on the screen will _not_ be
'sent', they never are.  What is sent into the program is keystrokes.
Usually the Cobol system and Curses will arrange the keystrokes
correctly in the input fields, but the difference in the data areas
between the start of the ACCEPT and after the ACCEPT (what you may
consider as what was 'sent') depends on the data definitions, the
program code and the user interaction.

Report this thread to moderator Post Follow-up to this message
Old Post
Richard
05-12-04 11:47 PM


Re: F5
"scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message news:<409ff731$1@
news.mcleodusa.net>...
> What confuses me is I came up with workarounds on the vt220 for all the
> other funciton keys except F5.
>
> This function key is however appears deviod of any consistent solution.
>
> The writer of the program is unfortantely not available to be asked.
>
> I called another cosulting firm and they suggested it was defined in
> LMBX95.CL (which I pasted to you) and is saved in teh variable name DISK-E
RR
> when F5 is pressed.
>
> Does this make sense to you?

On a VT220, the first five function keys are local to the terminal and do no
t
generate or send escape sequences. In particular, F5 is the BREAK key. When
BREAKs are enabled, pressing F5 generates an RS-232 framing error on the wir
e
that is used to transmit data to the remote end of the circuit (MODEM, compu
ter,
printer, another terminal, etc.)

You can retrieve an HTML copy of the "VT220 Programmer Reference Manual" her
e:

<http://vt100.net/docs/vt220-rm/>

Jeff Campell
n8wxs@arrl.net

>
> "Frederico Fonseca" <real-email-in-msg-spam@email.com> wrote in message
>  news:srrv909bj3354j1ffdknbmtlucjmcf4a9q@
4ax.com... 
>  characters
>  are 
>  *LIB*LMBX95. CL**************************************
************* 
>  windows 

Report this thread to moderator Post Follow-up to this message
Old Post
Jeff Campbell
05-12-04 11:47 PM


Sponsored Links




Last Thread Next Thread Next
Search this forum -> 
Post New Thread

Cobol archive

Show a Printable Version Send to friend Email This Page to Someone! subscribe to this thread Receive updates to this thread
Computer Consultants
Programming Jobs
Visual Basic Controls
SQL Server Programming
Webservices
Java Security
Visual Studio
C# Programming
Visual J++
Software engineering
Open source Software
Perl Programming
PHP Programming
ASP Programming
ASP .NET Programming
Visual Basic Programming
Windows Scripting Host
Java Programming
Java Help
Java Beans
VBScript
Cobol
MAC Applications
Unix Programming
Forum Jump:
All times are GMT. The time now is 05:56 AM.

 
Free MCSE Braindumps | Real Estate Topics

Programming forum archive

Copyrights CodeComments.com 2004 - 2006

Powered by vBulletin Copyright 2000-2006 Jelsoft Enterprises Limited.