21 lines
980 B
Plaintext
21 lines
980 B
Plaintext
PGM
|
|
/***************************************************************/
|
|
/* Creates locks on QIWS/QCUSTCDT to test GETOBJUR. */
|
|
/* Call T9DSPMNY to report the locks. */
|
|
/***************************************************************/
|
|
|
|
/* Create an interactive lock */
|
|
ALCOBJ OBJ((QIWS/QCUSTCDT *FILE *SHRRD))
|
|
|
|
/* Create some batch locks. Submitted jobs wait for 90 seconds */
|
|
/* so you can call T9DSPMAY to see the locks. */
|
|
SBMJOB CMD(CALL PGM(T9ALLOC1)) JOB(CUSTLST) +
|
|
JOBQ(QUSRNOMAX)
|
|
SBMJOB CMD(CALL PGM(T9ALLOC1)) JOB(INV_UPD) +
|
|
JOBQ(QUSRNOMAX)
|
|
SBMJOB CMD(CALL PGM(T9ALLOC1)) JOB(DAILYORD) +
|
|
JOBQ(QUSRNOMAX)
|
|
SBMJOB CMD(CALL PGM(T9ALLOC1)) JOB(YTD_RPT) +
|
|
JOBQ(QUSRNOMAX)
|
|
ENDPGM
|