× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




On 15/07/2005, at 6:09 AM, Scott Klement wrote:

This code "5S 0" in a display file does NOT tell it that you want a 5 digit zoned decimal field.

Actually, it does do exactly that. Primarily because all numeric fields in display files (except floats) are zoned decimal fields. A HLL compiler may override that definition and RPG redefines them as packed numeric in most cases.

The column with an S is the Data Type/Keyboard Shift column so it serves double duty. In this case it defines a signed numeric Data Type AND puts the keyboard into numeric shift IF you have a keyboard that supports it. If I recall correctly you need a Data Entry keyboard for which the numeric keys are found on the UIOJKLM,. keys thus requiring a numeric shift key to activate them--much like alpha shift activates uppercase. (You can see the same layout on any laptop computer so everything old IS new again). All other keyboards are Typewriter-like keyboards and have a separate numeric keypad so no numeric shift state is required. The combination of shift state and data type affect what characters can be typed into the field.

What it tells it is that you want to use "S" as your keyboard shift. The keyboard shift tells the program how the user is to be able to key in data. Keyboard shift "S" is not compatible with edit codes.

I'd suggest removing the "S" so you have "5 0", and see if that solves the problem.

EDTCDE and EDTWRD are only valid on Y shifted (numeric only) fields. Leaving the type/shift column blank causes a numeric field to be created with shift/type S unless EDTCDE or EDTWRD are specified in which case the shift/type is Y. The DDS compiler listing will show you this behaviour and the DDS reference explains it.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.