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


  • Subject: Re: Missing OS/400 command processing feature
  • From: Buck Calabro/commsoft<mcalabro@xxxxxxxxxxxx>
  • Date: Fri, 15 Jan 1999 09:57:54 -0500


Greg van Paasen wrote:
>I was not aware that if you specified SBMDBJOB 
>with a source member name on a user-defined PDM 
>option, PDM would perform variable substitution 
>(&n,&l, etc) on the commands in the source member. 
>Can you confirm this for me (and the others on this list)?

Greg,
  You're right; you can't use PDM to substitute parameters within your 
source member.  What I use SBMDBJOB for is as a pseudo "make" function.  I 
have a separate srcpf called MAKESRC.  When I have a program that needs 
special overrides, or uses files in QTEMP (like DSPOBJD might create) then 
I create a source member that has the same name as the program I'm working 
on.  Here's an example:

File BUCK/MAKESRC mbr LTSDMSR, type CL:

// BCHJOB BUCKCRTPGM 
OVRDBF MMACREP BUCK/MMACREP 
CHGJOB OUTQ(BUCK) 
CRTBNDRPG  PGM(BUCK/LTSDMSR) SRCFILE(BUCK/QRPGLENPT) DFTACTGRP(*NO) +
             DBGVIEW(*SOURCE) 
// ENDBCHJOB 

When I need to compile LTSDMSR, I go into QRPGLESRC, make my changes and 
then fire up PDM option MP:

SBMDBJOB FILE(&L/MAKESRC) MBR(&N) JOBQ(COMPILES)

This will submit the database job that has the same name as the source 
member I'm working on.
I use the PDM substitution options to work with the SBMDBJOB command, not 
the source member.

I should add that this has become less useful to me since I started using a 
utility written by Henrik Krebs that allows me to embed these commands into 
my RPG/CL/DDS source...

Buck Calabro
CommSoft, Albany, NY
mailto:mcalabro@commsoft.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.