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


  • Subject: *MDY (Factor 1) for Version 4r4
  • From: dbryant@xxxxxxxxxxxx
  • Date: Mon, 22 May 2000 08:47:36 -0400



We converted our OS/400 from V4R3 to V4R4 a few weeks ago. I am having some
difficulties with the *MDY with the "Move" Operator.  These calculations were
working fine in v4r3..

#BEGDAT is defined within the Screen DDS as a (6,0) Numeric field. The user will
key in the MMDDYY.
A            #BEGDT         6Y 0B 13 37COLOR(WHT)
A                                      EDTCDE(Z)


PXBEGDT is defined within the File DDS as a Date Field (CCYYMMDD)....
 A            PXBEGD        L         TEXT('Date')


C     *MDY          move      #BEGDT        PXBEGD


In V4R3 we compiled all programs using CVTOPT(*DATETIME), but now in V4R4 is
will not compile with the CvtOpt option of *DATETIME, I have to use *NONE for
this parameter or it will not compile.

Also, now I cannot use the INZ on a program defined Date Field.  **I tried to
use INZ(d'0001-01-01')** as well, but the compiler didn't like that either.
What's the buzz??

D LowDate         S                   LIKE(PXBEGD) INZ('0001-01-01')
D HighDate        S                   Like(PXENDD) INZ('2040-12-31')


*RNF3430 20     68 006501  Initial value '0001-0... does not match data type of
field
                           LOWDATE. Initial value is ignored.


If I wanted to initialize the Program Defined Date Field in the "D" Spec, how
would I code It??

TIA,
Darlene Bryant


+---
| 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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.