Difference between revisions of "XDSPGMETC"
From MidrangeWiki
| Line 1: | Line 1: | ||
[[Category:CLP/400]] | [[Category:CLP/400]] | ||
| − | See [[CLP/ | + | See [[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 == | ||
| + | |||
| + | |||
| + | Columns . . . : 1 71 Browse CIIIBPMOD/QCLSRC | ||
| + | SEU==> XDSPGMETC | ||
| + | FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 | ||
| + | *************** Beginning of data ************************************* | ||
| + | /*********************************************************************/ | ||
| + | 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 | ||
| + | ****************** End of data **************************************** | ||
Revision as of 12:55, 17 June 2005
See CLP/400 examples
- This program is setup to run regularly from the job scheduler
- XDSPGMETC = submit XDSPOBJPGM to JOBQ
Actual Source Code
Columns . . . : 1 71 Browse CIIIBPMOD/QCLSRC
SEU==> XDSPGMETC
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Beginning of data *************************************
/*********************************************************************/
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
****************** End of data ****************************************
