Difference between revisions of "XDSPGMETC"
From MidrangeWiki
(Recategorized and cleaned up source) |
|||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
| − | [[Category:CLP/400 | + | [[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) + | ||
| + | /* CALL delivers 10 character PARAMETER # + | ||
| + | 1 */ | ||
| + | |||
| + | /* send this to another JOB | ||
| + | SBMJOB CMD(CALL PGM(XDSPOBJPGM) PARM(&WORK)) + | ||
| + | JOB(XDSPOBJPGM) JOBQ(*LIBL/QBATCH3) | ||
| + | |||
| + | 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
