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


  1.  Home
  2. RPG400-L
  3. September 2005

RE: Override in H-Spec?

My thoughts exactly.  I have a tool we use here to consolidate our
Kronos database files for just this kind of application. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Friday, September 02, 2005 4:09 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Override in H-Spec?

Based on what you are just saying, I would pass on this comment.



Sometimes breaking a job in half makes it  a lot easier.  Can you create
a workfile from the three files, with the data you need, in one program,
then write another program to do the work you want done? 

 

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

Booth Martin

http://www.martinvt.com

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

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 09/02/05 15:58:16

To: RPG programming on the AS400 / iSeries

Subject: RE: Override in H-Spec?

 

 

 

 

I'm not a Kronos user, I just play one on TV.  Yep, it's Kronos although
I

doubt that you have anything that does what I'm trying to do.  If you
did I

would eat my hat.  I'm re-writing a program that matches labor hours
from

Kronos with production data from BPCS and calculate efficiencies.  We've

got something that sort of does it already but it doesn't take into
account

that the work day starts at 10:30 p.m. for 8-hour shifts, 6:00 a.m. for

12-hour shifts, and BPCS production is reported from midnight to
midnight.

Got any sample code?  <g>

 

The QCMDEXC would work but that's kind of like calling Ketchup a
vegitable

since it's made from tomatos.  It would work but I would still need a CL

program to compile it.

 

Dave Parnin

--

Nishikawa Standard Company

Topeka, IN  46571

daparnin@xxxxxxxxxxxxxx

 

 

 

 

 

 

                      "Holden Tommy"

                      <Tommy.Holden@hcaheal        To:       "RPG
programming on the AS400 / iSeries"

                      thcare.com>
<rpg400-l@xxxxxxxxxxxx>

                      Sent by:                     cc:

                      rpg400-l-bounces@midr        Subject:  RE:
Override in
H-Spec?

                      ange.com

 

 

                      09/02/2005 01:59 PM

                      Please respond to RPG

                      programming on the

                      AS400 / iSeries

 

 

 

 

 

Kronos user I take it LOL....

 

FCKDESCMS1 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM1)

Prefix(S1)

F                                     UsrOpn

FCKDESCMS2 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM2)

Prefix(S2)

F                                     UsrOpn

FCKDESCMS3 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM3)

Prefix(S3)

F                                     UsrOpn

 

DRun              PR                  ExtPgm('QCMDEXC')

D CmdStr                      3000A   Const Options(*VarSize)

D CmdLen                        15P 5 Const

D CmdDBCS                        3A   Const Options(*NoPass)

D CmdStr                      3000A   Varying

 

  /free

    CmdStr='OVRDBF CKDESCMS1 TOFILE(lib1/CKDESCMS) SHARE(*YES)';

    Run(Cmd:%Len(%Trim(CmdStr)));

    CmdStr='OVRDBF CKDESCMS2 TOFILE(lib2/CKDESCMS) SHARE(*YES)';

    Run(Cmd:%Len(%Trim(CmdStr)));

    CmdStr='OVRDBF CKDESCMS3 TOFILE(lib3/CKDESCMS) SHARE(*YES)';

    Run(Cmd:%Len(%Trim(CmdStr)));

 

    Open CKDESCMS1;

    Open CKDESCMS2;

    Open CKDESCMS3;

  /end-free

 

As far as compiling you'll have to either build a compilation program to

execute the overrides prior to compile (or do it interactive).

 

By the way, what is the requirement for this? I may have something lying

around that could help you out....

 

Thanks,

Tommy Holden

 

 

-----Original Message-----

From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of

daparnin@xxxxxxxxxxxxxx

Sent: Friday, September 02, 2005 1:47 PM

To: rpg400-l@xxxxxxxxxxxx

Subject: Override in H-Spec?

 

 

 

 

 

I'm wondering if I can do the following with H-specs instead of writing

a CL program to both compile and execute a RPGLLE program.  I've got the

a file with the same name in three different libraries that I want to

override to a different name within the RPG as follows:

 

FCKDESCMS1 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM1)

Prefix(S1)

FCKDESCMS2 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM2)

Prefix(S2)

FCKDESCMS3 IF   E           K DISK    Rename(DESCMSFM:DESCMSFM3)

Prefix(S3)

 

Normally I would write a CL program with the following:

 

OVRDBF     FILE(CKDESCMS1) TOFILE(CLOCFILE01/CKDESCMS) +

             SHARE(*YES)

OVRDBF     FILE(CKDESCMS2) TOFILE(CLOCFILE02/CKDESCMS) +

             SHARE(*YES)

OVRDBF     FILE(CKDESCMS3) TOFILE(CLOCFILE03/CKDESCMS) +

             SHARE(*YES)

 

Can I avoid the CL program for both compiling and execution?  Thanks.

 

 

Dave Parnin

--

Nishikawa Standard Company

Topeka, IN  46571

daparnin@xxxxxxxxxxxxxx

 

--

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.

 

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