|
My bad....good catch... That's what I get for coding in notepad as an email editor LOL Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi Sent: Saturday, September 03, 2005 9:59 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: Override in H-Spec? This is wrong: 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 You should be: D Run PR ExtPgm('QCMDEXC') D CmdStr 3000A Const Options(*VarSize) D CmdLen 15P 5 Const D CmdDBCS 3A Const Options(*NoPass) D CmdStr S 3000A Varying -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 Holden Tommy Sent: Friday, September 02, 2005 2:00 PM To: RPG programming on the AS400 / iSeries Subject: RE: Override in H-Spec? 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.