I have a simple routing program that based on the device name it transfers the job to the appropriate subsystem.
The problem is that if the user does a system request 1 then signs on to the secondary session with a user profile that envokes my routing program the TFRJOB in my routing step fails (CPF1373 - Job not transferred. System request in effect for job) and then the routing program gets called again.
Is there a way I can tell that the signon is from a system request 1? This way I can just process the request instead of transfering the job.
DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10)
/* If a scan device transfer to QINTERW */
IF COND(%SST(&DEVICE 1 4) = 'SCAN') +
/* If not apply default routing */
TFRJOB JOBQ(QINTER) RTGDTA('QCMDI')