8 lines
196 B
Plaintext
8 lines
196 B
Plaintext
PGM
|
|
|
|
/* Create a lock and delay. Called by T9ALLOCMNY */
|
|
|
|
ALCOBJ OBJ((QIWS/QCUSTCDT *FILE *SHRRD)) WAIT(0)
|
|
DLYJOB DLY(90)
|
|
ENDPGM
|