Re: What is SYSTIME?

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Just got curious - TIME opcode can still feed  12 digits, it'll do what 
is shown here. Hey, I don't use this either, at least, not so I 
remember, so had to look it up!

Nothing is ever thrown away on the i! Well, almost nothing! What was 
still is!

Just in case someone wonders, %time does only time, it doesn't include 
the date, as the OPCODE does.

Time to take my daily constitutional (walk around several blocks, indeed)!

Vern

On 4/13/2021 5:37 PM, Jon Paris wrote:
> It is just somebody carving up the timestamp into bits - but it should not really be done like that in RPG IV and I'm not convinced it works.
>
> Haven't got time to play but receiving TIME into a numeric of 14 digits would result in 6 digits of time followed by 8 digits of date.  So your 6 and 6 looks wrong.  Maybe it worked that way in RPG III and it was only a 6 digit date portion - I haven't coded in RPG III that for 30 years so ...
>
> The correct way of doing it today is with the %Date/%Time/%Timestamp BIFs - depending on what format etc. you want.
>
>
> Jon Paris
>
> > On Apr 13, 2021, at 5:51 PM, Alan Shore via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
> >
> > Hi everyone
> > While I am making changes to an existing program - I am looking/copying code from an existing program, and I have come across something I have never seen before
> > SYSTIME
> >
> > These are the D specs
> > Dsystime                        12  0
> > D  timep                         6  0 Overlay(systime:1)
> > D  datep                         6  0 Overlay(systime:7)
> >
> > Here is the C specs
> > C                   time                    systime
> >
> > And later in the code, Timep and Datep are used separately to populate (numeric) fields in a file
> >
> > I have tried to google SYSTIME - but the results are referencing the word system
> >
> > Can anyone point me to any definition of SYSTIME and what the equivalent free form of it is?
> >
> > As always, all answers gratefully accepted
> >
> > Alan Shore
> > Solutions Architect
> > IT Supply Chain Execution
> >
> > [cid:image001.png@01D7308D.A0B530B0]
> >
> > 60 Orville Drive
> > Bohemia, NY 11716
> > Phone [O] : (631) 200-5019
> > Phone [C] : (631) 880-8640
> > E-mail : ASHORE@xxxxxxxxxxxxxxxxxxxx
> >
> > 'If you're going through hell, keep going.'
> > Winston Churchill
> >
> >
> >
> > The Nature’s Bounty Co. is now The Bountiful Company! Our email address will be changing from @nbty.com to @bountifulcompany.com. Please update your email address book so that important communications are not interrupted.
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/midrange-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com