RE: Date format after restoring OS/400

["Hillier, Martin" <Martin.Hillier@xxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hi Barberá,

Just create one in QRPG. The length should be the same length as SRCDTA (80
for old RPG)

Ours looks like this...
Data area . . . . . . . :   RPGHSPEC
  Library . . . . . . . :     QRPG
Type  . . . . . . . . . :   *CHAR
Length  . . . . . . . . :   80
Text  . . . . . . . . . :    CONTROL SPECIFICATION CREATED BY RPG COMPILER

           Value
Offset      *...+....1....+....2....+....3....+....4....+....5
    0      '*****H        1   Y                               '
   50      '                              '

- It yields the date format in YMD format (Position 19 I think, havent done
old style rpg for quite a while!)

Cheers,
        Martin

-----Original Message-----
From: Oscar Barberá [mailto:barberao@yahoo.es]
Sent: 20 March 2002 15:26
To: rpg400-l@midrange.com
Subject: Date format after restoring OS/400


Martin, is QRPGHSPEC a default data area? We don't have this
object in the system.


 --- "Hillier, Martin" <Martin.Hillier@Mattel.com> escribió: >
This message is in MIME format. Since your mail reader does
> not understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> Hi,
>
> Were your system values restored? You might want to check the
> system value
> QDATFMT
>
> Also, there is data area that are used as default H spec's if
> you do not
> specify one in the source.
>
> Its called QRPG/RPGHSPEC, and this can be used to override the
> date using
> the normal date format control specification.
>
> Hope this helps,
>
> Cheers,
>       Martin
>
> -----Original Message-----
> From: Oscar Barberá [mailto:barberao@yahoo.es]
> Sent: 20 March 2002 13:32
> To: rpg400-l@midrange.com
> Cc: R_C_DuVall@daaokc.com
> Subject: RE: Source code retrieval from opbject of display
> file
>
>
> Dear friends,
>
> I have some programs with the next code line:
>
> C                 z-add     *DATE         xpdat0            8
> 0
>
>
> Until now, the result of this operaction was DDMMYYYY. But
> last
> week, our AS/400 was broken down, and we had to restore all
> the
> OS. And here comes the problem. Now, the result of the
> operation
> is MMDDYYYY.
>
> Do you know how to solve this?
>
> TIA,
> Oscar Barbera
>
>
>
_______________________________________________________________
> Do You Yahoo!?
> Yahoo! Messenger
> Comunicación instantánea gratis con tu gente.
> http://messenger.yahoo.es
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>

_______________________________________________________________
Do You Yahoo!?
Yahoo! Messenger
Comunicación instantánea gratis con tu gente.
http://messenger.yahoo.es
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.