Re: DDE bugs

[D.BALE@xxxxxxxxxxxxx]

Aarrgghh!  Foiled again!

Even this isn't working - moving a numeric zoned decimal variable with
embedded blanks to an alpha field converts the blanks to zeros in the alpha
field (still hex'40's in the numeric variable).

Egads, this seems to be much more difficult than it needs to be.  So, I guess
I can't move the data at all, I have to test it, I guess, using an alpha
overlay in a data structure?  Do any of the proposed new functions in the
free-format RPG survey deal with this problem?

So now I'm back to using CPYF with INCREL testing each numeric to be *LE their
maximum possible value, i.e., if HDRSHC is defined as 4 digits, 2 decimals,
the INCREL tests *IF HDRSHC *LE 99.99.  If HDRSHC does not consist of a truly
valid numeric value, the CPYF bombs with CPF2906.  (INCREL allows up to 50
tests.)  My fun is now complicated in that I have multiple formats in the
flatfile coming from the Oracle box.

BTW, I have genericized the CPYF utility to use any file you pass as a
parameter, in case anyone's interested.

Does anyone know if OPNQRYF will fail similar to CPYF with CPF2906?  Maybe I
can bypass the 50 variables limitation.  I know there's a 3000-character limit
for QRYSLT.  I won't have time to test this today; I have to get some real
work done. :-(

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
Barbara, Hans, others,

I am moving towards the QUSLFLD solution you and others have mentioned.
However, in my development testing, I am being reminded that TESTN does not
work on numeric fields.  So now I have to move the numeric value to an alpha.
I will follow a tip that someone else shared last month:

     C                     MOVE *ZEROS    WORK## 31
     C                     MOVELHDRSWP    WORK##
     C                     TESTN          WORK##     91
     C                     MOVE *ZEROS    WORK##
     C                     MOVELHDRDTM    WORK##
     C                     TESTN          WORK##     92
     C... etc. for several more fields

But I am left wondering, since it is possible for numeric variables to DDEs,
why wasn't TESTN ever designed to work with both alpha and numeric variables?

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---