|
midrange.com
Robot/Schedule from HelpSystems is another option. It allows command
prompting, can "react" to start a one job when another ends, you can
pre-define *LDA, define calendars, library lists, etc.
Dave Parnin
Nishikawa Standard Company
Topeka, IN 46571
daparnin@xxxxxxxxxxxxxxxxxx
rob@xxxxxxxxx
Sent by: To: RPG programming on
the AS400 / iSeries
rpg400-l-bounces@m
<rpg400-l@xxxxxxxxxxxx>@SMTP@CTB
idrange.com cc: (bcc: David A
Parnin/Topeka/NISCO/SPCO)
Subject: RE:Command Prompter
API
01/12/2005 08:31
AM
Please respond to
RPG programming on
the AS400 /
iSeries
<rpg400-l@midrange
.com>
You might want to take a look at IBM's Advanced Job Scheduler. Unlike the
basic WRKJOBSCDE, it isn't free. But it's supposed to have more
flexibility. Also it will do things like if a job ends abnormally, page
someone. Or if we can't start this job until this other one completes.
Don't use it here, yet.
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 04:23 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
<rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: RPG400-L Digest, Vol 4, Issue 35
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
***************************************
--
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.
As an Amazon Associate we earn from qualifying purchases.
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.
