RE: Auto advancing display screen -- RPG400-L

That's the problem in a nutshell.

If the read from the dataq was just like the read from the display file, I
wouldn't have a problem.

It does act just like the read, the screen waits for input, if a user
presses enter, the DataQ entry has *DSPF...etc. in it. I then tell it to do
a read (no wait for input). This acts just fine.

I have the display file set at waitrcd *immed for this purpose.

If it receives from the dataq, the program continues just as if enter was
pressed.

I'm trying FRCDTA and some other DDS keywords, so I can fake a read.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Murphy, Mark
Sent: Thursday, August 14, 2008 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Auto advancing display screen

But the chain to the display file is an attempt to read from the display
file before the user presses
enter on the keyboard.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Craig Jacobsen
Sent: Thursday, August 14, 2008 12:30 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Auto advancing display screen

Stu,

The aid byte only comes from a screen read, not a dataq receive.

Luckily, the program defaults to the enter key, otherwise I would have to
put 'F1' into the aid byte.

I have to clear the aid byte when data comes from the dataq or the program
will act like the last Function key pressed.

Remember, I am only doing a DSPF read when I don't get an entry from the
dataq.

Craig

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of sbramley@xxxxxxxxx
Sent: Thursday, August 14, 2008 11:45 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Auto advancing display screen

Like others I'm not really clear on exactly how your data is getting into
your field, but the AID Code for Enter is x'F1'

HTH

Stu

"Craig Jacobsen" <CraigJacobsen@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
14/08/2008 16:30
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>

To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Auto advancing display screen

Charles,

I guess I don't understand why sending an enter key to the buffer won't
work.

It works for a barcode reader with the same program we are talking about.
I scan something, it puts it on the screen and auto enters it. It must be
appending the 5250 data stream somehow. (It must send an extra code of
some
type when you configure the reader for auto enter because if not
configured,
the data waits for the enter key.) The reader acts like the keyboard, so
I
don't think the O/S or emulation software has anything to do with it. It
just sends the enter key appended to the data it read to the screen if
configured.

In another life (S/34) I played around with the 5250 data stream and did
some bar graphs and the like by appending the buffer so I do know a little
about that.

The Pocket PC is too small to use for the Packers as a telnet session.
All they will be used for is scanning. Sometimes they scan RFID and other
times they scan 2d or regular bar codes (even on the same Pack), thus the
need for a Pocket PC. If you can tell me where to get a keyboard scanner
that alternates between RFID, 2d, and regular barcodes, that would work
too
(and be a lot cheaper).

We have the Pickers using an application designed for a pocket pc (wrist
mount) through Telnet that runs perfectly.

Example 3 is the way I'm doing it now.

Problem seems to be if I read from the dataq, the sfl doesn't seem to be
available. If I get the *DSPF in the dataq, I do a read and all is good.
If I can get a good chain to the subfile, I wouldn't have any issues.

I know the rrn by looking up an array after breaking out the input from
the
dataq or the screen (qty/expiry date/lot#).

The rrn is the correct record. The 1255 is the only message I'm getting.

Craig

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wilt, Charles
Sent: Thursday, August 14, 2008 10:09 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Auto advancing display screen

Craig,

Ok I think I understand.

Honestly, not sure how to do what you need....but I can tell you that
"sending an enter" isn't going
to work.

As mentioned before, the enter key is intercepted and handled by the
terminal or emulation software,
then the controller, then the OS, along with probably a couple of other
layers...

You need to remember that the 5250 protocol is a block (or screen)
oriented
"smart" protocol. As
opposed to ASCII VT type terminals which are byte oriented.

The application you're running on the wireless PC could have used
available
TN5250 APIs to appear as
any other 5250 session. Not the best way IMHO, but that'd be your only
option if for example the 5250
program is 3rd party and you don't have the source.

I'm not really sure what you're going to need to do this. Perhaps example
3
here will be of some
help:
http://publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com

ibm.etools.iseries.pgmgd.d
oc/evfclmst89.htm

or http://tinyurl.com/6p4oxr

You say you're getting a 1255 on the CHAIN to the subfile:

How are you figuring out with RRN to use for the CHAIN?

What other messages and/or error codes are being shown?

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx]

On Behalf Of Craig Jacobsen
Sent: Thursday, August 14, 2008 9:02 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Auto advancing display screen

Charles,

Here is what I am trying to do:

I have a program that uses a barcode reader as a keyboard (or you can

key

the barcode).

This program builds and updates a subfile and displays the status of the
pack telling the user how many boxes still need to be packed.

No problems at all with the program.

I am now adding a dataq so that a wireless PC (MC9090G) adds the same
entry
through the dataq and it can be processed as is with little or no

operator

changes (it works exactly the same as it does now except the scan is by

pocket PC with its own IP address that writes to a data que).

The first screen which asks for order number and pick number works
perfectly
through the dataq (this builds the subfile).

Now the HDMA label is read (or a sequence number for RFID) and

everything

again works well until a chain to the SUBFILE is done (to substract
quantity
and calculate the remaining on the screen).
I am getting a status of 1255 (Session or device error occurred.

Recovery

may be possible).

Now I either have to figure out how to activate the subfile (there was

read, so the subfile is not active) or have the data q entry go to the
screen and read that entry WITHOUT HITTING ENTER! The packers cannot

scan

from maybe 50 or more feet away and then go to their Client Access just

hit enter.

The screen is set with WaitRcd *Immed and is overridden at

initialization

for DTAQ (user's name) and is USROPN.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx]

On Behalf Of Wilt, Charles
Sent: Wednesday, August 13, 2008 3:14 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Auto advancing display screen

No not really....

The hex code the barcode scanner sends doesn't make it to the field.
Instead, it is intercepted and
handled by the terminal or terminal emulation software.

Still not sure exactly what're trying to accomplish...

Do you have a scanner?
Is it set to auto-enter after a scan?

If the answer to both is yes, what more are you trying to do?

In any even, as far as the hex codes used by the scanner:
http://www.barcodeman.com/altek/mule/scandoc.php

HTH,

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-

bounces@xxxxxxxxxxxx]

On Behalf Of Craig Jacobsen
Sent: Wednesday, August 13, 2008 1:06 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Auto advancing display screen

I want it to work like a barcode scan.
One input field, variable length data.
There must be some hex code you can add to make it auto enter.
I am using a data que and can't get the subfile to work.
When I receive an entry from the data que, I would like to concatenate

the

enter field so it auto enters.
Again, barcode scanners do this, it must be able to be done.

Thanks,

Craig

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-

bounces@xxxxxxxxxxxx]

On Behalf Of Wayne McAlpine
Sent: Wednesday, August 13, 2008 12:22 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Auto advancing display screen

Use the DDS keyword CHECK(ER) on the last field in the display. When
the user types anything into the last position of the field, it will

sent just as if the user had pressed the enter key.

Craig Jacobsen wrote:

Does anyone know a hex code I can append at the end of a field to

act

like

enter?
Barcode readers can usually be configured to auto enter a scan.
How do they do it?

TIA,

Craig

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not

named addressee you are hereby notified that you are not authorized to
read,
print, retain, copy or disseminate this communication without the

consent

of
the sender and that doing so is prohibited and may be unlawful. Please
reply to the message immediately by informing the sender that the

message

was misdirected. After replying, please delete and otherwise erase it

and

any attachments from your computer system. Your assistance in

correcting

this error is appreciated.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read,
print, retain, copy or disseminate this communication without the consent
of
the sender and that doing so is prohibited and may be unlawful. Please
reply to the message immediately by informing the sender that the message
was misdirected. After replying, please delete and otherwise erase it and
any attachments from your computer system. Your assistance in correcting
this error is appreciated.