Re: time stamp field

["Gene Burns" <burns.gene@xxxxxxxxx>]

Here is a test program that will do what you asked using the %timestamp and
a DS overlay.  I hardcoded the timein parm for testing purposes, but you
could just replace that with the 13 byte numeric parm from your customer.


     d timein          s             13s 0 inz(1071203111426)
     d check           s               z

     d TimestampDS     ds
     d  workin                       20s 0 inz(0)
     d   timechk                     13s 0 overlay(workin: 2)
     d   century                      2s 0 overlay(workin: 1)

      /free

        timechk = timein;

        if century = *zero;
          century = 19;
        endif;
        if century = 1;
          century = 20;
        endif;

        check = %timestamp(workin);

        if workin > *zero;
          // just for checking
        endif;

        *inlr = *on;

      /end-free


On Dec 4, 2007 12:24 PM, Emily Smith <esmith@xxxxxxxxxxxxxxxxxxxx> wrote:

> I'm receiving a date field from a customer that is 13 bytes long and
> formatted like this  CYYMMDDHHMMSS
> I need to write this out to a timestamp field in a file. Can anyone help
> me figure this out? I could try checking the value of the century portion of
> the date, to determine whether or not it's from this century or last, and
> then do a bunch of substringing and concatenating to build a field in
> timestamp format, but I was hoping there was a better way to accomplish
> this.
>
> Thanks
>
> Emily
>
>
> CONFIDENTIALITY NOTICE: This email message is private,
> confidential property of the sender, and the materials
> may be privileged communications intended solely for
> the receipt, use, benefit, and information of the intended
> recipient indicated above. If you are not the intended
> recipient, you are hereby notified that any review,
> disclosure,distribution, copying or taking of any
> other action in reference to the contents of this message
> is strictly prohibited, and may result in legal liability
> on your part. If you have received this message in error,
> please notify the sender immediately and delete this
> message from your system. We believe that this email
> and any attachments are free of any virus or other defect
> that might affect any computer system that it is received
> and opened in, however, it is the responsibility of the
> recipient to ensure that it is virus free and the sender
> accepts no responsibility for any loss or damage.
> --
> 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.