RE: Override in H-Spec?

Right, there is no known way to automatically point to another library for a
file when compiling. EXTFILE does not do this... it takes the external
description from the database file appearing in positions 7 to 16 of the
File spec.
     FCUSTMAST   IF   E           K  DISK   EXTFILE('MYLIB/KRNOSCUST')

This looks for CUSTMAST on the library list.
You'd still have to do an override.


-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of daparnin@xxxxxxxxxxxxxx
Sent: Friday, September 02, 2005 2:33 PM
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.