× 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: Executing 'CL' members (was Just wondering)
  • From: Neil Palmer <npalmer@xxxxxxxxxxx>
  • Date: Fri, 09 May 1997 16:31:05 -0400
  • Organization: NxTrend Technology - Canada

CVWD@aol.com wrote:
> 
> Here is a question I've been wondering about for a while:
> 
> One of the valid source types is CL (not CLP, just CL).  The SEU syntax
> checker differentiates between a CL and a CLP and disallows some commmands
> (not allowed in this environment) when editing a CL.  The Retrieve
> Configuration Source (RTVCFGSRC) command puts its output in a CL source, not
> a CLP.  So, CL is a valid source type; it is real and IBM intended it to be
> used.  Now the question: How do you run a CL?  You cannot RUN, CALL, CALLPRC,
> put a 16 (in pdm) by, just type on the command line, or anything else I can
> find and cause one of these suckers to execute.
> 
> Oh, sure - you can change the type to CLP and compile it or you can move it
> to the source file QS36PRC and start the /36 environment and run it from the
> command line or you could write a HLL program to read the CL source and
> execute it via a QCMDEXC or some such nonsense, but the question is How do
> you just run a CL?

You put a //BCHJOB at the top, and a //ENDBCHJOB at the bottom, and use
SBMDBJOB to submit it to a job queue.

For example:
//BCHJOB   JOB(TESTJOB) JOBD(NEIL)         
SNDMSG     MSG('Test message') TOUSR(NEIL) 
//ENDBCHJOB                                

And run it with:

SBMDBJOB FILE(QGPL/QCLSRC) MBR(ATEST)

You can also submit the job to a remote sustem with SBMNETJOB, and SNADS
will send the job to a remote user on another system.
Depending on the action to be taken for remotely submitted jobs on the
target system (check WRKNETJOBE - can be specific by user) the job will
either be FILEd, REJECTed, or SUBMITted.

-- 
...Neil Palmer                                      AS/400~~~~~      
...AS/400 Technical Specialist      ____________          ___  ~     
...NxTrend Technology - Canada      |OOOOOOOOOO| ________  o|__||=   
...Markham,  Ontario,   Canada      |__________|_|______|_|______)   
...Phone: (905) 731-9000  x238       oo      oo   oo  oo   OOOo=o\   
...e-mail: npalmer@nxtrend.com    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-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:
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.