RE: Date TESTing

["Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>]

Tony,

I had the same problem back in February and queried the list.
Barbara Morris replied a couple of days later that even though the manual
says they will work for 'all' operations, they do not work with 'TEST'.
The archives have my original post, but I could not find Barbara's reply.
(There are some other op codes that they may not work with) 

Tim Kredlo
Exterior Wood, Inc


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Tony Carolla
Sent: Monday, April 25, 2005 4:21 PM
To: RPG programming on the AS400 / iSeries
Subject: Date TESTing


Am I missing something? 

I am trying to test a text field for containing a date value. The text field

is part of a DS array:

D M DS Based(pMessages)
D Qualified
D Dim(5)
D MsgDate 10A
D Chunk1 1A
D MsgType 2A
D Chunk2 3A
D Message 134A

When I specify:
Test(DE) *USA M(Loop).MsgDate;

The compiler barks and says
1) no semicolon at the end of a free format line (it places the 'a' under 
the period after M(Loop))
2) 7030 field MsgDate is not defined. 

If I move the text field to a standalone, and change the statement to:
Test(DE) *USA TempDate;

It compiles fine. Are subfields of DS arrays not allowed on the TEST op 
code?

-- 
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
-- 
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.