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