|
We actually have a program in place doing that. 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:12 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 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) 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.
midrange.com
