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






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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.