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



Rob,

I started using WRKJOBSCDE, but wanted something a little more flexable that
would tie into our system calendar. Things like to run this on the second
tuesday of each month.





-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
rpg400-l-request@xxxxxxxxxxxx
Sent: Tuesday, January 11, 2005 4:13 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 4, Issue 35


Send RPG400-L mailing list submissions to
        rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
        rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


Today's Topics:

   1. Re: Command Prompter API (rob@xxxxxxxxx)
   2. RE: A different kind of persistence? (MWalter@xxxxxxxxxxxxxxx)
   3. RE: Date field's and their file space usage. (Joe Lee)
   4. Re: Date field's and their file space usage. (Tony Carolla)
   5. RE: Date field's and their file space usage. (Haas, Matt)
   6. RE: Date field's and their file space usage. (Bruce Vining)
   7. RE: RPG400-L Digest, Vol 4, Issue 34 (Tom Smith)


----------------------------------------------------------------------

message: 1
date: Tue, 11 Jan 2005 15:38:33 -0500
from: rob@xxxxxxxxx
subject: Re: Command Prompter API

QCAPCMD.  Works great for exactly what you want it to do.

Why not use WRKJOBSCDE?

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Tom Smith" <tss_inc@xxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/11/2005 02:46 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"Rpg Forumn" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Command Prompter API






I am writing a scheduler system which executes CL commands. Is there an
API
or such what would allow me to prompt and fill in the command parms, and
it
would return the resulting string back to me. Much line SEU uses.

Thanks in advance.
--
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.




------------------------------

message: 2
date: Tue, 11 Jan 2005 15:40:13 -0500
from: MWalter@xxxxxxxxxxxxxxx
subject: RE: A different kind of persistence?

I have a PDM option for it.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com



             "Bob Cozzi"
             <cozzi@xxxxxxxxx>
             Sent by:                                                   To
             rpg400-l-bounces@         "'RPG programming on the AS400 /
             midrange.com              iSeries'" <rpg400-l@xxxxxxxxxxxx>
                                                                        cc

             01/11/2005 03:37                                      Subject
             PM                        RE: A different kind of
                                       persistence?

             Please respond to
              RPG programming
              on the AS400 /
                  iSeries
             <rpg400-l@midrang
                  e.com>






RCLACTGRP *ELIGIBLE
...is my most frequently used CL command while developing/testing code.
I can key it in as one word now and rarely if ever misspell it.
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Richard ECUYER
Sent: Tuesday, January 11, 2005 10:26 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: A different kind of persistence?

i have used it (RCLACTGRP).
it remove programme, and of course variables.
the only thing i saw was if i entered the AG like 'abc' in the rpg i can't
reclaim it because the command does not allow lower letters..

----- Original Message -----
From: "Tony Carolla" <carolla@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, January 11, 2005 5:21 PM
Subject: Re: A different kind of persistence?


> I too have learned alot from this thread, and I would like to thank
> the participants.  This type of stuff really helps in the 'other'
> language I am trying to learn, and I am seeing more similarities every
> day.
>
> Just  a quick question, I heard it said that you can 'reclaim' an
> activation group.  How is this done, and does it clear all modules
> from the activation group, or just initialize variable storage?
>
>
> --
> "Enter any 11-digit prime number to continue..."
> --
> 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.
>
>

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




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





------------------------------

message: 3
date: Tue, 11 Jan 2005 12:44:57 -0800
from: "Joe Lee" <LeeJD@xxxxxx>
subject: RE: Date field's and their file space usage.

Introduced where, I seem to remember that it took well over a century
for it to be generally adopted. Figuring out what a given date from that
time period really means is interesting at best. :)

Joe Lee

>>> Matt.Haas@xxxxxxxxxxx 01/11/2005 12:37:23 >>>
October 14, 1582 is when the Gregorian calendar was introduced.

Matt

-----Original Message-----
From: Joe Lee [mailto:LeeJD@xxxxxx]
Sent: Tuesday, January 11, 2005 3:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Date field's and their file space usage.


4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582?
At
least the Unix date time values with a base of January 1, 1970 makes
some sense, but who came up with these other base dates, and why?

Joe Lee

>>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
Yes, I know/knew about the scaliger number but didn't want to use big
words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> sure which it is.

A minor point but date fields are actually stored using Scaliger
numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by
the
ILE CEE Date APIs.

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



------------------------------

message: 4
date: Tue, 11 Jan 2005 12:50:34 -0800
from: Tony Carolla <carolla@xxxxxxxxx>
subject: Re: Date field's and their file space usage.

It is also the accepted date of the death of Teresa of Avila, the
reformer of the Carmelite order.  (amazing what you can google ;-)


On Tue, 11 Jan 2005 15:37:23 -0500, Haas, Matt <Matt.Haas@xxxxxxxxxxx>
wrote:
> October 14, 1582 is when the Gregorian calendar was introduced.
>
> Matt
>
> -----Original Message-----
> From: Joe Lee [mailto:LeeJD@xxxxxx]
> Sent: Tuesday, January 11, 2005 3:27 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: Date field's and their file space usage.
>
> 4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582? At
> least the Unix date time values with a base of January 1, 1970 makes
> some sense, but who came up with these other base dates, and why?
>
> Joe Lee
>
> >>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
> Yes, I know/knew about the scaliger number but didn't want to use big
> words.
> <vbg>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Bruce Vining
> Sent: Tuesday, January 11, 2005 1:01 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Date field's and their file space usage.
>
> > Date fields are all stored internally as a 4-byte integer. The value
> stored
> > is the number of days since January 1, 0001 or October 14, 1582, I'm
> not
> > sure which it is.
>
> A minor point but date fields are actually stored using Scaliger
> numbers
> which have a base of January 1 4713 BCE.
>
> October 14 1582 is the base date for Lilian numbers which are used by
> the
> ILE CEE Date APIs.
>
> --
> 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.
>
>


--
"Enter any 11-digit prime number to continue..."


------------------------------

message: 5
date: Tue, 11 Jan 2005 15:52:19 -0500
from: "Haas, Matt" <Matt.Haas@xxxxxxxxxxx>
subject: RE: Date field's and their file space usage.

If you search on Google for that date, you'll find all sorts of info. In a
nutshell, this calendar was basically dictated by Pope Gregory.

Matt

-----Original Message-----
From: Joe Lee [mailto:LeeJD@xxxxxx]
Sent: Tuesday, January 11, 2005 3:45 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Date field's and their file space usage.


Introduced where, I seem to remember that it took well over a century
for it to be generally adopted. Figuring out what a given date from that
time period really means is interesting at best. :)

Joe Lee

>>> Matt.Haas@xxxxxxxxxxx 01/11/2005 12:37:23 >>>
October 14, 1582 is when the Gregorian calendar was introduced.

Matt

-----Original Message-----
From: Joe Lee [mailto:LeeJD@xxxxxx]
Sent: Tuesday, January 11, 2005 3:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Date field's and their file space usage.


4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582?
At
least the Unix date time values with a base of January 1, 1970 makes
some sense, but who came up with these other base dates, and why?

Joe Lee

>>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
Yes, I know/knew about the scaliger number but didn't want to use big
words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> sure which it is.

A minor point but date fields are actually stored using Scaliger
numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by
the
ILE CEE Date APIs.

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

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




------------------------------

message: 6
date: Tue, 11 Jan 2005 14:54:50 -0600
from: Bruce Vining <bvining@xxxxxxxxxx>
subject: RE: Date field's and their file space usage.





It was well over a century for the Gregorian calendar to take hold :) .
Some parts of the world didn't adopt it until the 20th century and even the
United States (or rather Britain to be historically correct) wasn't until
1752...

As for Scaliger, here's some information:
http://www.sizes.com/time/dayJulianr.htm




             "Joe Lee"
             <LeeJD@xxxxxx>
             Sent by:                                                   To
             rpg400-l-bounces@         <rpg400-l@xxxxxxxxxxxx>
             midrange.com                                               cc

                                                                   Subject
             01/11/2005 02:44          RE: Date field's and their file
             PM                        space usage.


             Please respond to
              RPG programming
              on the AS400 /
                  iSeries






Introduced where, I seem to remember that it took well over a century
for it to be generally adopted. Figuring out what a given date from that
time period really means is interesting at best. :)

Joe Lee

>>> Matt.Haas@xxxxxxxxxxx 01/11/2005 12:37:23 >>>
October 14, 1582 is when the Gregorian calendar was introduced.

Matt

-----Original Message-----
From: Joe Lee [mailto:LeeJD@xxxxxx]
Sent: Tuesday, January 11, 2005 3:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Date field's and their file space usage.


4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582?
At
least the Unix date time values with a base of January 1, 1970 makes
some sense, but who came up with these other base dates, and why?

Joe Lee

>>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
Yes, I know/knew about the scaliger number but didn't want to use big
words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> sure which it is.

A minor point but date fields are actually stored using Scaliger
numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by
the
ILE CEE Date APIs.

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

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





------------------------------

message: 7
date: Tue, 11 Jan 2005 16:12:46 -0500
from: "Tom Smith" <tss_inc@xxxxxxxxxxxxx>
subject: RE: RPG400-L Digest, Vol 4, Issue 34

Thanks Bob, the second API is more what im looking for. I want to give the
user the ability to prompt and fill in the command, then i will save the
generated command string to a file.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
rpg400-l-request@xxxxxxxxxxxx
Sent: Tuesday, January 11, 2005 3:38 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 4, Issue 34


Send RPG400-L mailing list submissions to
        rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
        rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


Today's Topics:

   1. RE: Date field's and their file space usage. (Bob Cozzi)
   2. RE: Command Prompter API  (Bob Cozzi)
   3. Re: Date field's and their file space usage. (Tony Carolla)
   4. Re: Command Prompter API (Reeve)
   5. RE: Date field's and their file space usage. (Joe Lee)
   6. Re: Date field's and their file space usage. (Reeve)
   7. RE: Date field's and their file space usage. (Haas, Matt)
   8. RE: A different kind of persistence? (Bob Cozzi)


----------------------------------------------------------------------

message: 1
date: Tue, 11 Jan 2005 14:18:06 -0600
from: "Bob Cozzi" <cozzi@xxxxxxxxx>
subject: RE: Date field's and their file space usage.

Yes, I know/knew about the scaliger number but didn't want to use big words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm not
> sure which it is.

A minor point but date fields are actually stored using Scaliger numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by the
ILE CEE Date APIs.

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






------------------------------

message: 2
date: Tue, 11 Jan 2005 14:21:33 -0600
from: "Bob Cozzi" <cozzi@xxxxxxxxx>
subject: RE: Command Prompter API

QCMDCHK does that. Or you more complex QCAPCMD API does it as well and
allows the &FIELD entries.
-Bob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Tom Smith
Sent: Tuesday, January 11, 2005 1:47 PM
To: Rpg Forumn
Subject: Command Prompter API

I am writing a scheduler system which executes CL commands. Is there an API
or such what would allow me to prompt and fill in the command parms, and it
would return the resulting string back to me. Much line SEU uses.

Thanks in advance.




------------------------------

message: 3
date: Tue, 11 Jan 2005 12:22:12 -0800
from: Tony Carolla <carolla@xxxxxxxxx>
subject: Re: Date field's and their file space usage.

I find date storage a fascinating topic!  This is interesting, because
it would seem that the earliest date available (even though only used
in a 'scholarly' sense), would be 0001-01-01, or January 1, 0001.  If
the Scaliger numbers go back to, basically January 1, -4713, then why
don't the allowed values for a Date field go back that far?


On Tue, 11 Jan 2005 13:01:29 -0600, Bruce Vining <bvining@xxxxxxxxxx> wrote:
>
>
> > Date fields are all stored internally as a 4-byte integer. The value
> stored
> > is the number of days since January 1, 0001 or October 14, 1582, I'm not
> > sure which it is.
>
> A minor point but date fields are actually stored using Scaliger numbers
> which have a base of January 1 4713 BCE.
>
> October 14 1582 is the base date for Lilian numbers which are used by the
> ILE CEE Date APIs.
>
> --
> 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.
>
>


--
"Enter any 11-digit prime number to continue..."


------------------------------

message: 4
date: Tue, 11 Jan 2005 12:23:11 -0800
from: Reeve <rfritchman@xxxxxxxxx>
subject: Re: Command Prompter API

How about something like this?

      /title Prompt command and return command string
     P svv041_chk      b                   export

     D svv041_chk      pi             7
     D  qp_cmd_str                 2000

     D  q_cmd_str      s           2000

     D qcapcmd         pr                  extpgm('QCAPCMD')
     D   qp_cmd_str                2000
         Command string
     D   qp_len                      10i 0 const
         Command string lengt
     D   qp_ocb                            like(q_opt_ctl_blk)
         Options control bloc
     D   qp_ocb_len                  10i 0 const
         Control block length
     D   qp_format                    8    const
         Format ID
     D   qp_new_str                2000
         Generated command st
     D   qp_chg_len_i                10i 0
         Size of receiver fie
     D   qp_chg_len_o                10i 0
         Bytes returned
     D   qp_err_ds                         like(q_err_ds)
         Error data structure

     D q_opt_ctl_blk   ds
     D  q_cmd_type                   10i 0
         Type of processing
     D  q_DBCS_data                   1    inz('0')
         DBCS translation
     D  q_prompter                    1
         "Always prompt"
     D  q_syntax                      1    inz('0')
         "library/object"
     D  q_msgkey                      4    inz(*blanks)
         Message key
     D  q_reserved                    9    inz(*loval)
         Must be hexadecimal

     D q_err_ds        ds
     D  q_err_bp                     10i 0 inz(%size(q_err_ds))
     D  q_err_ba                     10i 0 inz
     D  q_err_msgid                   7    inz
     D  q_err_resv                    1    inz
     D  q_err_data                  200    inz

     D q_chg_str       s           2000    inz
     D q_chg_str_len   s             10i 0 inz(%size(q_chg_str))
     D q_chg_len_out   s             10i 0 inz

      /free

       q_cmd_str   = qp_cmd_str;
       q_cmd_type  = 9;                                         //Type
of processing
       q_prompter  = '1';                                       //Always
prompt

       callp    qcapcmd(
                        q_cmd_str:                              //Command
string
                        %len(%trimr(q_cmd_str)):
//Command string length
                        q_opt_ctl_blk:
//Option control block
                        %len(q_opt_ctl_blk):
//Length of option control block
                        'CPOP0100':                             //Output
format
                        q_chg_str:
//Output command string
                        q_chg_str_len:
//Output command string size
                        q_chg_len_out:
//Output command string provided
                        q_err_ds);
//Error data structure

       if q_err_msgid = '';
       qp_cmd_str = q_chg_str;
       return '';
       else;
       return q_err_msgid;
       endif;

      /end-free

     P                 e

I tried to include a GOTO just for old times' sake but couldn't figure
out where.

-reeve


On Tue, 11 Jan 2005 14:46:45 -0500, Tom Smith <tss_inc@xxxxxxxxxxxxx> wrote:
> I am writing a scheduler system which executes CL commands. Is there an
API
> or such what would allow me to prompt and fill in the command parms, and
it
> would return the resulting string back to me. Much line SEU uses.
>
> Thanks in advance.
>
>
> --
> 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.
>
>
>


------------------------------

message: 5
date: Tue, 11 Jan 2005 12:27:24 -0800
from: "Joe Lee" <LeeJD@xxxxxx>
subject: RE: Date field's and their file space usage.

4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582? At
least the Unix date time values with a base of January 1, 1970 makes
some sense, but who came up with these other base dates, and why?

Joe Lee

>>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
Yes, I know/knew about the scaliger number but didn't want to use big
words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> sure which it is.

A minor point but date fields are actually stored using Scaliger
numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by
the
ILE CEE Date APIs.




------------------------------

message: 6
date: Tue, 11 Jan 2005 12:36:20 -0800
from: Reeve <rfritchman@xxxxxxxxx>
subject: Re: Date field's and their file space usage.

Probably because the math for leap years, and other date adjustments
fits when that number is used.  There's a size issue as well.

It would be interesting to learn how someone came up with that
specific date...musta been a nasty DOU!

-reeve


On Tue, 11 Jan 2005 12:22:12 -0800, Tony Carolla <carolla@xxxxxxxxx> wrote:
> I find date storage a fascinating topic!  This is interesting, because
> it would seem that the earliest date available (even though only used
> in a 'scholarly' sense), would be 0001-01-01, or January 1, 0001.  If
> the Scaliger numbers go back to, basically January 1, -4713, then why
> don't the allowed values for a Date field go back that far?
>
>
> On Tue, 11 Jan 2005 13:01:29 -0600, Bruce Vining <bvining@xxxxxxxxxx>
wrote:
> >
> >
> > > Date fields are all stored internally as a 4-byte integer. The value
> > stored
> > > is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> > > sure which it is.
> >
> > A minor point but date fields are actually stored using Scaliger numbers
> > which have a base of January 1 4713 BCE.
> >
> > October 14 1582 is the base date for Lilian numbers which are used by
the
> > ILE CEE Date APIs.
> >
> > --
> > 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.
> >
> >
>
>
> --
> "Enter any 11-digit prime number to continue..."
> --
> 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.
>
>


------------------------------

message: 7
date: Tue, 11 Jan 2005 15:37:23 -0500
from: "Haas, Matt" <Matt.Haas@xxxxxxxxxxx>
subject: RE: Date field's and their file space usage.

October 14, 1582 is when the Gregorian calendar was introduced.

Matt

-----Original Message-----
From: Joe Lee [mailto:LeeJD@xxxxxx]
Sent: Tuesday, January 11, 2005 3:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Date field's and their file space usage.


4713 BCE? why not 4712 or 4714? For that matter why October 14, 1582? At
least the Unix date time values with a base of January 1, 1970 makes
some sense, but who came up with these other base dates, and why?

Joe Lee

>>> cozzi@xxxxxxxxx 01/11/2005 12:18:06 >>>
Yes, I know/knew about the scaliger number but didn't want to use big
words.
<vbg>

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Vining
Sent: Tuesday, January 11, 2005 1:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date field's and their file space usage.





> Date fields are all stored internally as a 4-byte integer. The value
stored
> is the number of days since January 1, 0001 or October 14, 1582, I'm
not
> sure which it is.

A minor point but date fields are actually stored using Scaliger
numbers
which have a base of January 1 4713 BCE.

October 14 1582 is the base date for Lilian numbers which are used by
the
ILE CEE Date APIs.



------------------------------

message: 8
date: Tue, 11 Jan 2005 14:37:31 -0600
from: "Bob Cozzi" <cozzi@xxxxxxxxx>
subject: RE: A different kind of persistence?

RCLACTGRP *ELIGIBLE
...is my most frequently used CL command while developing/testing code.
I can key it in as one word now and rarely if ever misspell it.
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Richard ECUYER
Sent: Tuesday, January 11, 2005 10:26 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: A different kind of persistence?

i have used it (RCLACTGRP).
it remove programme, and of course variables.
the only thing i saw was if i entered the AG like 'abc' in the rpg i can't
reclaim it because the command does not allow lower letters..

----- Original Message -----
From: "Tony Carolla" <carolla@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, January 11, 2005 5:21 PM
Subject: Re: A different kind of persistence?


> I too have learned alot from this thread, and I would like to thank
> the participants.  This type of stuff really helps in the 'other'
> language I am trying to learn, and I am seeing more similarities every
> day.
>
> Just  a quick question, I heard it said that you can 'reclaim' an
> activation group.  How is this done, and does it clear all modules
> from the activation group, or just initialize variable storage?
>
>
> --
> "Enter any 11-digit prime number to continue..."
> --
> 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.
>
>

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






------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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.



End of RPG400-L Digest, Vol 4, Issue 34
***************************************



------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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.



End of RPG400-L Digest, Vol 4, Issue 35
***************************************


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.