× 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.



I wonder whether this is a (bad) way of deciding what kind platform the code
is running on? Maybe they are assuming that "ABC", when moved to a numeric
field, will only equal 123 on a certain platform, i.e. one where ABC=
x'C1C2C3' and x'C1C2C3' can be interpreted as 123 and equivalent to
x'F1F2F3'. I never worked on anything prior to the S/38, but maybe this was
a way of, for example, distinguishing between a S/38 and aS/36 or S/34??? Or
did this code ever run on 370?

Pete

----- Original Message ----- 
From: "Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, July 30, 2003 1:15 PM
Subject: Re: Move 'ABC' to Numeric?


>                           Display Program Variables
>
> Program . . . . . . . . . . . . . . . . : TESTR
> Recursion level . . . . . . . . . . . . : 1
> Start position  . . . . . . . . . . . . : 1
> Format  . . . . . . . . . . . . . . . . : *CHAR
> Length  . . . . . . . . . . . . . . . . : *DCL
>
> Variable  . . . . . . . . . . . . . . . : PACK80
>   Type  . . . . . . . . . . . . . . . . :   PACKED
>   Length  . . . . . . . . . . . . . . . :   8 0
>  '        0'
>
> Test Code
> C                     MOVE 'ABC'      PACK80  80
> C   PACK80  IFEQ    123
> C            "SOME MORE CODE"
> C                     ENDIF
> C                     MOVE *ON       *INLR
>
>                           Display Program Variables
>
>  Program . . . . . . . . . . . . . . . . : TESTR
>  Recursion level . . . . . . . . . . . . : 1
>  Start position  . . . . . . . . . . . . : 1
>  Format  . . . . . . . . . . . . . . . . : *CHAR
>  Length  . . . . . . . . . . . . . . . . : *DCL
>
>  Variable  . . . . . . . . . . . . . . . : PACK80
>    Type  . . . . . . . . . . . . . . . . :   PACKED
>    Length  . . . . . . . . . . . . . . . :   8 0
>   '      123'
>
> Simple test program results.
> The question was "why they would code that way", not if it worked or not.
>
> Thanks
> Bill H
>
>
>
>
>
> Tadashi Kakefuda <kakefuda@xxxxxxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 07/28/2003 01:47 AM
> Please respond to RPG programming on the AS400 / iSeries
>
>
>         To:     RPG programming on the AS400 / iSeries
<rpg400-l@xxxxxxxxxxxx>
>         cc:
>         Subject:        Re: Move 'ABC' to Numeric?
>
>
> Hi
>
> The string 'ABC' is x'C1C2C3' in hex decimal and if the attribute of the
> NUM is zoned decimal type,it will work. The x'C1C2C3' means '123' in
> Character Numeric at main frame (I'm not sure, but I heard so.) And SNA
> will support it on AS/400 also.
>
> But... if it is a packed decimal field, it causes a decimal error.
> Because the last 4bit is '3' in x'C1C2C3'.(If it is X'123F', it will be
> OK.) Is the RPG program made with IGNORE DECIMAL ERROR option?
>
>
> Tadashi
>
> _______________________________________________
> 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.
>
>
>



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.