Cobol - F5

Author

scorpion53061

2004-05-12, 6:47 pm

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.

Frederico Fonseca

2004-05-12, 6:47 pm

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

scorpion53061

2004-05-12, 6:47 pm

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[color=darkred]
> 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

Frederico Fonseca

2004-05-12, 6:47 pm

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

scorpion53061

2004-05-12, 6:47 pm

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[color=darkred]
*LIB*LMBX95. CL**************************************
*************[color=darkred]
>
>
>
>
> 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[color=darkred]
>
>
>
>
> Frederico Fonseca
> ema il: frederico_fonseca at syssoft-int.com

Richard

2004-05-12, 6:47 pm

"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

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.

Jeff Campbell

2004-05-12, 6:47 pm

"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-ERR
> 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 not
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 wire
that is used to transmit data to the remote end of the circuit (MODEM, computer,
printer, another terminal, etc.)

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

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

Jeff Campell
n8wxs@arrl.net
[color=darkred]
>
> "Frederico Fonseca" <real-email-in-msg-spam@email.com> wrote in message
> news:srrv909bj3354j1ffdknbmtlucjmcf4a9q@
4ax.com...
> characters
> are
> *LIB*LMBX95. CL**************************************
*************
> windows

Sponsored Links