Re: Numeric fields bug -- LINUX5250

Hmmm...  I don't think the operating system does anything that needs
a signed field like this...

Why don't you just create yourself a simple program on the AS/400 that
lets you test these things?

I don't know how familiar you are with doing this, so I'll give you
step by step instructions for a program that just puts one simple
signed numeric field on the screen, and lets you edit it...

1. Create a temporary source file:
        CRTSRCPF FILE(QTEMP/SOURCE) RCDLEN(112)

2. Create a source member for your display file:
        STRSEU SRCFILE(QTEMP/SOURCE) SRCMBR(TESTDSPF) TYPE(DSPF)

3. Put the following lines in the source member:
         1         2         3         4         5         6
12345678901234567890123456789012345678901234567890123456789012
(just put these 3 lines, what cols they're in is significant:)
     A                                      DSPSIZ(24 80 *DS3)
     A          R TEST1
     A            TESTFLD        5  0B  4  4

4. Press F3, then ENTER to save your new source member.

5. Compile your source member with:
     CRTDSPF FILE(qtemp/testdspf) SRCFILE(qtemp/source)

6. Create another source member to contain the program that
   uses the display file:
    STRSEU SRCFILE(QTEMP/SOURCE) SRCMBR(TESTPGM) TYPE(CLP)

7. Add the following source statements:
PGM
     DCLF FILE(TESTDSPF)
     SNDRCVF
ENDPGM

8.  Press F3, then ENTER to save your new member...

9.  Compile your program:
     CRTCLPGM PGM(QTEMP/TESTPGM) SRCFILE(QTEMP/SOURCE)

10. Run it:
     CALL QTEMP/TESTPGM


QTEMP is a temporary library thats different for every job.  When
you sign on, a QTEMP is made for you, and when you sign off, its
deleted.   I used it in this example to make sure you dont
accidentally interfere with something else on the system, but you
may desire to use a different library if you intend to save your
work :)

If you can't get it to work, let me know...


"Jason M. Felice" <jasonf@Baldwingroup.COM> wrote:
>
> Okey, I get it.  Let me file this one away in my 'bugs' folder, and
>  there
> should be a new version out soon with various asundry fixes ;)
>
> -Jay 'Eraserhead' Felice
>
> P.S. Where is there a signed numeric field in the system that I can
>  test with?
> It can be pretty much anywhere in the operating system - I have plen
>  of
> access rights to our 400, but only because they know I'm not stupid
>  enough to
> excercise them ;)
>
> On Mon, Oct 25, 1999 at 11:11:03AM -0500, Scott Klement wrote:
> > It appears that when you've got a signed numeric field, it allows
> > you to type any numeric character that you wish in the spot where
> > the sign should go.
> >
> > Other emulators don't let you type anything in that spot, the curs
> > just sits there til you hit tab, field exit, field minus or some
> > other key that moves you to the next field.
> >
> > At any rate, if I type a number where the sign should be, the AS/4
> > will think that theres an I/O error with the terminal, and the
> > program that I'm running on the AS/400 will crash with a CPF
>  message.
> >
> > This may be the same error that Sean Porterfield reported earlier,
> > I'm not sure... but it happens consistently when you type a number
> > where the sign should be...
> >
> > Thanks!
>
> +---
> | This is the LINUX5250 Mailing List!
> | To submit a new message, send your mail to LINUX5250@midrange.com.
> | To subscribe to this list send email to LINUX5250-SUB@midrange.com
> | To unsubscribe from this list send email to
>  LINUX5250-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
>  david@midrange.com
> +---
>
+---
| This is the LINUX5250 Mailing List!
| To submit a new message, send your mail to LINUX5250@midrange.com.
| To subscribe to this list send email to LINUX5250-SUB@midrange.com.
| To unsubscribe from this list send email to LINUX5250-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---