[H390-MVS] Attention Key issue

[Philippe de Rochambeau [e-mail] [H390-MVS]]

Hello,

I’m asking this question on the H390-MVS list because my two attempts to join the tk-4 list have been unsuccessful.

I’m an MVS newbie and am having trouble making the Attn key work on tk4-.

I’ve gotten stuck in a ‘REENTER + -‘ loop, subsequent to typing the following command in TSO

EXEC PGM=COBOL

I’ve tried to get out of the loop using both the c3270 keyboard shortcut (Ctr-A a) and pressing Attn in the c320 Keypad Menu, but to no avail.

Can anyone help, please?

Many thanks.

Best regards,

Philippe

[Vince Coen [e-mail] [H390-MVS]]

As you have not specified what x3270 app you are using I will give a
standard fix for problem (may be):

Find what is the 'reset' key is and use it.

This should clear for further normal input

Now hit F3 to exit TSO - assuming that is what you want to do.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hello,
I’m asking this question on the H390-MVS list because my two attempts
to join the tk-4 list have been unsuccessful.
I’m an MVS newbie and am having trouble making the Attn key work on tk4-.
I’ve gotten stuck in a ‘REENTER + -‘ loop, subsequent to typing the
following command in TSO
EXEC PGM=COBOL
I’ve tried to get out of the loop using both the c3270 keyboard
shortcut (Ctr-A a) and pressing Attn in the c320 Keypad Menu, but to
no avail.
Can anyone help, please?
Many thanks.
Best regards,
Philippe

[Philippe de Rochambeau [e-mail] [H390-MVS]]

Hi Vince,
thank you for you reply.

I’m using x3270’s c3270 in MacOSX’s Terminal.

c3270’s key mapping for Reset is as follows:

[base.3270:12] Ctrl<Key>R: Reset()


 but typing Ctrl-R has no effect.

Furthermore, pressing using the c3270 menu’s Keypad -> Reset item doesn’t have any effect either.

The only fix I have found to get out of the ‘REENTER+ -‘ loop is to do the following:

exec pgm=cobol
INVALID DATA SET NAME, PGM=cobol
REENTER+ -

BOGUS

DATA SET BOGUS.CLIST NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED...

Post by Vince Coen ***@gmail.com [H390-MVS]
As you have not specified what x3270 app you are using I will give a
Find what is the 'reset' key is and use it.
This should clear for further normal input
Now hit F3 to exit TSO - assuming that is what you want to do.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hello,
I’m asking this question on the H390-MVS list because my two attempts
to join the tk-4 list have been unsuccessful.
I’m an MVS newbie and am having trouble making the Attn key work on tk4-.
I’ve gotten stuck in a ‘REENTER + -‘ loop, subsequent to typing the
following command in TSO
EXEC PGM=COBOL
I’ve tried to get out of the loop using both the c3270 keyboard
shortcut (Ctr-A a) and pressing Attn in the c320 Keypad Menu, but to
no avail.
Can anyone help, please?
Many thanks.
Best regards,
Philippe

[Gerhard Postpischil [e-mail] [H390-MVS]]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
I’m using x3270’s c3270 in MacOSX’s Terminal.
[base.3270:12] Ctrl<Key>R: Reset()

 but typing Ctrl-R has no effect.

I just tried it on my (PC/Win) system, and the way to exit the loop is
to use the PA1 key.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
exec pgm=cobol
INVALID DATA SET NAME, PGM=cobol
REENTER+ -

That is the wrong syntax. A TSO control program can be invoked simply by
typing its name (followed possibly by parameters). You can find the
correct syntax by typing HELP EXEC

If you wish to compile a CoBOL program, you need to create a data set
(or member in a data set), and SUBMIT it to the system. You may do so by
using the RFE editor (one of the choices when you log on).

Perhaps if yo provide more information we can get you up and running.


Gerhard Postpischil
Bradford, VT

---
This email has been checked for viruses by AVG.
http://www.avg.com

[Philippe de Rochambeau [e-mail] [H390-MVS]]

Hi Gerhard,
PA1 gets me out of the loop if I immediately type a command afterwards, such as « tsoappls ». If, on the other hand, I type the Return Key,
I get back into the REENTER+ loop.

Thank you for your help.

Now that I’ve mastered the PA1 key :-), I am going to attempt to write a Hello World program in COBOL and run it using a JCL file.

Post by Gerhard Postpischil ***@charter.net [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
I’m using x3270’s c3270 in MacOSX’s Terminal.
[base.3270:12] Ctrl<Key>R: Reset()

 but typing Ctrl-R has no effect.

I just tried it on my (PC/Win) system, and the way to exit the loop is
to use the PA1 key.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
exec pgm=cobol
INVALID DATA SET NAME, PGM=cobol
REENTER+ -

That is the wrong syntax. A TSO control program can be invoked simply by
typing its name (followed possibly by parameters). You can find the
correct syntax by typing HELP EXEC
If you wish to compile a CoBOL program, you need to create a data set
(or member in a data set), and SUBMIT it to the system. You may do so by
using the RFE editor (one of the choices when you log on).
Perhaps if yo provide more information we can get you up and running.
Gerhard Postpischil
Bradford, VT
---
This email has been checked for viruses by AVG.
http://www.avg.com <http://www.avg.com/>

[Tony Harminc [e-mail] [H390-MVS]]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hi Gerhard,
PA1 gets me out of the loop if I immediately type a command afterwards,
such as « tsoappls ». If, on the other hand, I type the Return Key,
I get back into the REENTER+ loop.

Yes, this is the designed behaviour. Mostly entering any syntactically
valid command name will get you out. The Terminal Monitor Program (TMP)'s
behaviour is to see that you've entered a new command, DETACH the old
still-running but suspended command, and ATTACH the new one. If your new
command doesn't exist, the old one will still be gone.

A small number of commands can be entered at this point that do not exit
the loop. These are TIME (which will tell you how your resource consumption
is looking), and TEST (which will enter a debugger). And I think there are
a couple more that I'm not remembering right now.

Tony H.

['Fernando M. Roxo da Motta' [e-mail] [H390-MVS]]

On Fri, 14 Jul 2017 16:42:07 +0200, "Philippe de Rochambeau

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hi Gerhard,
PA1 gets me out of the loop if I immediately type a command
afterwards, such as « tsoappls ». If, on the other hand, I type the
Return Key, I get back into the REENTER+ loop.

A valid commando to end the loop, after PA1 or ATTN - whatever works,
is END. It should get you back the TSO normal prompt.

Bbest regards.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Thank you for your help.
Now that I’ve mastered the PA1 key :-), I am going to attempt to
write a Hello World program in COBOL and run it using a JCL file.

Post by Gerhard Postpischil ***@charter.net [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
I’m using x3270’s c3270 in MacOSX’s Terminal.
[base.3270:12] Ctrl<Key>R: Reset()

 but typing Ctrl-R has no effect.

I just tried it on my (PC/Win) system, and the way to exit the loop
is to use the PA1 key.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
exec pgm=cobol
INVALID DATA SET NAME, PGM=cobol
REENTER+ -

That is the wrong syntax. A TSO control program can be invoked
simply by typing its name (followed possibly by parameters). You
can find the correct syntax by typing HELP EXEC
If you wish to compile a CoBOL program, you need to create a data
set (or member in a data set), and SUBMIT it to the system. You may
do so by using the RFE editor (one of the choices when you log on).
Perhaps if yo provide more information we can get you up and
running.
Gerhard Postpischil
Bradford, VT
---
This email has been checked for viruses by AVG.
http://www.avg.com <http://www.avg.com/>

Roxo

--
---------------- Non luctari, ludare -------------------+ WYSIWYG
Fernando M. Roxo da Motta <***@roxo.org> | Editor?
Except where explicitly stated I speak on my own behalf.| VI !!
( Usuário Linux registrado #39505 ) | I see text,
------------ Quis custodiet ipsos custodes?-------------+ I get text!

[Tony Harminc [e-mail] [H390-MVS]]

Post by 'Fernando M. Roxo da Motta' ***@roxo.org [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
PA1 gets me out of the loop if I immediately type a command
afterwards, such as « tsoappls ». If, on the other hand, I type the
Return Key, I get back into the REENTER+ loop.

A valid commando to end the loop, after PA1 or ATTN - whatever works,
is END. It should get you back the TSO normal prompt.

So does IEFBR14...

Tony H.

[Philippe de Rochambeau [e-mail] [H390-MVS]]

Hi Tony,
What's IEFBR14?

Post by Tony Harminc ***@gmail.com [H390-MVS]

Post by 'Fernando M. Roxo da Motta' ***@roxo.org [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
PA1 gets me out of the loop if I immediately type a command
afterwards, such as « tsoappls ». If, on the other hand, I type the
Return Key, I get back into the REENTER+ loop.

A valid commando to end the loop, after PA1 or ATTN - whatever works,
is END. It should get you back the TSO normal prompt.

So does IEFBR14...
Tony H.

[Jeremy Nicoll [e-mail] [H390-MVS]]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hi Tony,
What's IEFBR14?

A standard MVS utility program.

In JCL, files are allocated (ie created or at least located) before a
batch program step starts to
execute, and then files are kept or deleted etc as appropriate after the
step completes. So a
utility program that does nothing at all - which is what IEFBR14 is -
with suitable JCL around
it is very often see as what appears to be a way to create or delete
files.

Most IBM progam names start with a three character prefix; the "IEF" in
this case is also
shared by some other utility programs. The "BR14" part of its name
just so happens to be
the same as the Assembler mneumonic for the main instruction that the
program contains.

[Philippe de Rochambeau [e-mail] [H390-MVS]]

Interesting.
I don’t seem to have that command in my copy of tk4-, though.

Post by Jeremy Nicoll ***@letterboxes.org [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hi Tony,
What's IEFBR14?

A standard MVS utility program.
In JCL, files are allocated (ie created or at least located) before a
batch program step starts to
execute, and then files are kept or deleted etc as appropriate after the
step completes. So a
utility program that does nothing at all - which is what IEFBR14 is -
with suitable JCL around
it is very often see as what appears to be a way to create or delete
files.
Most IBM progam names start with a three character prefix; the "IEF" in
this case is also
shared by some other utility programs. The "BR14" part of its name
just so happens to be
the same as the Assembler mneumonic for the main instruction that the
program contains.
--
Jeremy Nicoll - my opinions are my own.

[Tony Harminc [e-mail] [H390-MVS]]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Interesting.
I don’t seem to have that command in my copy of tk4-, though.

Works for me on TK4-:

READY
send 'Hello, world' u(*)
Hello, world HERC01
READY
end
READY
iefbr14
READY

Tony H.

[Leon Gent [e-mail] [H390-MVS]]

IEFBR14 is an IBM utility that has essentially one instruction: BR R14, which is a no-op. It is often used to validate JCL and PROCS.

Post by 'Fernando M. Roxo da Motta' ***@roxo.org [H390-MVS]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
PA1 gets me out of the loop if I immediately type a command
afterwards, such as « tsoappls ». If, on the other hand, I type the
Return Key, I get back into the REENTER+ loop.

A valid commando to end the loop, after PA1 or ATTN - whatever works,
is END. It should get you back the TSO normal prompt.

So does IEFBR14...

Tony H.
#yiv8922769067 #yiv8922769067 -- #yiv8922769067ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8922769067 #yiv8922769067ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8922769067 #yiv8922769067ygrp-mkp #yiv8922769067hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8922769067 #yiv8922769067ygrp-mkp #yiv8922769067ads {margin-bottom:10px;}#yiv8922769067 #yiv8922769067ygrp-mkp .yiv8922769067ad {padding:0 0;}#yiv8922769067 #yiv8922769067ygrp-mkp .yiv8922769067ad p {margin:0;}#yiv8922769067 #yiv8922769067ygrp-mkp .yiv8922769067ad a {color:#0000ff;text-decoration:none;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ygrp-lc {font-family:Arial;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ygrp-lc #yiv8922769067hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ygrp-lc .yiv8922769067ad {margin-bottom:10px;padding:0 0;}#yiv8922769067 #yiv8922769067actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8922769067 #yiv8922769067activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8922769067 #yiv8922769067activity span {font-weight:700;}#yiv8922769067 #yiv8922769067activity span:first-child {text-transform:uppercase;}#yiv8922769067 #yiv8922769067activity span a {color:#5085b6;text-decoration:none;}#yiv8922769067 #yiv8922769067activity span span {color:#ff7900;}#yiv8922769067 #yiv8922769067activity span .yiv8922769067underline {text-decoration:underline;}#yiv8922769067 .yiv8922769067attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8922769067 .yiv8922769067attach div a {text-decoration:none;}#yiv8922769067 .yiv8922769067attach img {border:none;padding-right:5px;}#yiv8922769067 .yiv8922769067attach label {display:block;margin-bottom:5px;}#yiv8922769067 .yiv8922769067attach label a {text-decoration:none;}#yiv8922769067 blockquote {margin:0 0 0 4px;}#yiv8922769067 .yiv8922769067bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8922769067 .yiv8922769067bold a {text-decoration:none;}#yiv8922769067 dd.yiv8922769067last p a {font-family:Verdana;font-weight:700;}#yiv8922769067 dd.yiv8922769067last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8922769067 dd.yiv8922769067last p span.yiv8922769067yshortcuts {margin-right:0;}#yiv8922769067 div.yiv8922769067attach-table div div a {text-decoration:none;}#yiv8922769067 div.yiv8922769067attach-table {width:400px;}#yiv8922769067 div.yiv8922769067file-title a, #yiv8922769067 div.yiv8922769067file-title a:active, #yiv8922769067 div.yiv8922769067file-title a:hover, #yiv8922769067 div.yiv8922769067file-title a:visited {text-decoration:none;}#yiv8922769067 div.yiv8922769067photo-title a, #yiv8922769067 div.yiv8922769067photo-title a:active, #yiv8922769067 div.yiv8922769067photo-title a:hover, #yiv8922769067 div.yiv8922769067photo-title a:visited {text-decoration:none;}#yiv8922769067 div#yiv8922769067ygrp-mlmsg #yiv8922769067ygrp-msg p a span.yiv8922769067yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8922769067 .yiv8922769067green {color:#628c2a;}#yiv8922769067 .yiv8922769067MsoNormal {margin:0 0 0 0;}#yiv8922769067 o {font-size:0;}#yiv8922769067 #yiv8922769067photos div {float:left;width:72px;}#yiv8922769067 #yiv8922769067photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8922769067 #yiv8922769067photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8922769067 #yiv8922769067reco-category {font-size:77%;}#yiv8922769067 #yiv8922769067reco-desc {font-size:77%;}#yiv8922769067 .yiv8922769067replbq {margin:4px;}#yiv8922769067 #yiv8922769067ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8922769067 #yiv8922769067ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8922769067 #yiv8922769067ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8922769067 #yiv8922769067ygrp-mlmsg select, #yiv8922769067 input, #yiv8922769067 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8922769067 #yiv8922769067ygrp-mlmsg pre, #yiv8922769067 code {font:115% monospace;}#yiv8922769067 #yiv8922769067ygrp-mlmsg * {line-height:1.22em;}#yiv8922769067 #yiv8922769067ygrp-mlmsg #yiv8922769067logo {padding-bottom:10px;}#yiv8922769067 #yiv8922769067ygrp-msg p a {font-family:Verdana;}#yiv8922769067 #yiv8922769067ygrp-msg p#yiv8922769067attach-count span {color:#1E66AE;font-weight:700;}#yiv8922769067 #yiv8922769067ygrp-reco #yiv8922769067reco-head {color:#ff7900;font-weight:700;}#yiv8922769067 #yiv8922769067ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ov li a {font-size:130%;text-decoration:none;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8922769067 #yiv8922769067ygrp-sponsor #yiv8922769067ov ul {margin:0;padding:0 0 0 8px;}#yiv8922769067 #yiv8922769067ygrp-text {font-family:Georgia;}#yiv8922769067 #yiv8922769067ygrp-text p {margin:0 0 1em 0;}#yiv8922769067 #yiv8922769067ygrp-text tt {font-size:120%;}#yiv8922769067 #yiv8922769067ygrp-vital ul li:last-child {border-right:none !important;}#yiv8922769067

[Jeremy Nicoll [e-mail] [H390-MVS]]

Post by Leon Gent ***@yahoo.com [H390-MVS]
IEFBR14 is an IBM utility that has essentially one instruction: BR R14,
which is a no-op.

It's got two instructions; one to clear R15 (to set a zero return code),
and then the BR R14.

It's not a no-op - it's the important one that returns control to MVS.

[Vince Coen [e-mail] [H390-MVS]]

I have under Linux (Mageia v5 X64) x3270 v3.3.14

At the right top there is a box that look like a DVI socket/plug

Select that by right click and a new box appears showing a selection of
keys including function keys F1 - F12 followed by 4 arrow keys & 2 specials.

Following on is Back and forward tabs then is a Clear and a Reset buttons.

Select the Reset button if that fails try the clear and if needed the
Reset - again.

Normal service should resume, I think :)

Well it does with me - Usually :))

Vince

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hi Vince,
thank you for you reply.
I’m using x3270’s c3270 in MacOSX’s Terminal.
[base.3270:12] Ctrl<Key>R: Reset()

 but typing Ctrl-R has no effect.
Furthermore, pressing using the c3270 menu’s Keypad -> Reset item
doesn’t have any effect either.
The only fix I have found to get out of the ‘REENTER+ -‘ loop is to do
exec pgm=cobol
INVALID DATA SET NAME, PGM=cobol
REENTER+ -
BOGUS
DATA SET BOGUS.CLIST NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED...

Post by Vince Coen ***@gmail.com [H390-MVS]
As you have not specified what x3270 app you are using I will give a
Find what is the 'reset' key is and use it.
This should clear for further normal input
Now hit F3 to exit TSO - assuming that is what you want to do.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
Hello,
I’m asking this question on the H390-MVS list because my two attempts
to join the tk-4 list have been unsuccessful.
I’m an MVS newbie and am having trouble making the Attn key work on

tk4-.

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
I’ve gotten stuck in a ‘REENTER + -‘ loop, subsequent to typing the
following command in TSO
EXEC PGM=COBOL
I’ve tried to get out of the loop using both the c3270 keyboard
shortcut (Ctr-A a) and pressing Attn in the c320 Keypad Menu, but to
no avail.
Can anyone help, please?
Many thanks.
Best regards,
Philippe

[Tony Harminc [e-mail] [H390-MVS]]

Post by Vince Coen ***@gmail.com [H390-MVS]
As you have not specified what x3270 app you are using I will give a
Find what is the 'reset' key is and use it.
This should clear for further normal input
Now hit F3 to exit TSO - assuming that is what you want to do.

F3 does not "exit TSO". In fact TSO has no defined behaviour related
to the 3270 PF keys. An application program like RFE or ISPF can use
them, but they do nothing that is managed by TSO itself, and are
treated just like hitting Enter.

What you need to get out of a prompt loop or the like is PA1. If your
keyboard is (logically) locked, because a program is in a loop or a
wait, then Reset followed by PA1 may or may not be sufficient. It will
be if you are using a local non-SNA terminal, but if you are SNA
connected, you will need to hit the architected ATTN key (which should
work whether or not the keyboard is locked).

Of course we're talking emulated terminals here, so it's the LU type
that really determines the ATTN vs PA1 behaviour.

Tony H.

[Jeremy Nicoll [e-mail] [H390-MVS]]

Post by Philippe de Rochambeau ***@free.fr [H390-MVS]
I’ve gotten stuck in a ‘REENTER + -‘ loop, subsequent to typing the
following command in TSO
EXEC PGM=COBOL

That's a line of JCL, not a TSO command, though that's not the reason
for
your ATTN problem. TSO commands are things like

HELP

or

ALLOCATE.

Or indeed, EXEC... but using the EXEC TSO command requires you to
specify
the datasetname where the CLIST or REXX exec you have written can be
found
eg

EXEC 'MY.CLIST.PDS(MYPROG)'


To compile, load and run a cobol program you possibly want the RUN
command,
assuming you have some COBOL source and a COBOL compiler.

You need to find a copy of the TSO command reference manual. I don't
know if
there's one easily findable for TSO in the MVS system you have, but
failing that
looking at a current TSO command reference manual will give you some
ideas.
See eg
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikjc500/toc.htm