Difference between revisions of "XDSPGMETC"
From MidrangeWiki
(Recategorized and cleaned up source) |
|||
| Line 1: | Line 1: | ||
| − | [[Category: | + | [[Category:CLP/400 examples]] |
| − | |||
* This program is setup to run regularly from the job scheduler | * This program is setup to run regularly from the job scheduler | ||
* XDSPGMETC = submit [[XDSPOBJPGM]] to JOBQ | * XDSPGMETC = submit [[XDSPOBJPGM]] to JOBQ | ||
== Actual Source Code == | == Actual Source Code == | ||
| − | + | <pre> PGM | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
DCL VAR(&WORK) TYPE(*CHAR) LEN(10) VALUE(XWARE) + | DCL VAR(&WORK) TYPE(*CHAR) LEN(10) VALUE(XWARE) + | ||
| Line 23: | Line 15: | ||
ENDPGM | ENDPGM | ||
| − | + | </pre> | |
Latest revision as of 14:06, 17 June 2005
- This program is setup to run regularly from the job scheduler
- XDSPGMETC = submit XDSPOBJPGM to JOBQ
Actual Source Code
PGM
DCL VAR(&WORK) TYPE(*CHAR) LEN(10) VALUE(XWARE) +
/* CALL delivers 10 character PARAMETER # +
1 */
/* send this to another JOB
SBMJOB CMD(CALL PGM(XDSPOBJPGM) PARM(&WORK)) +
JOB(XDSPOBJPGM) JOBQ(*LIBL/QBATCH3)
ENDPGM
