Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
/* */ PGM DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10) MONMSG MSGID(CPF0000) /* */ /* If a scan device transfer to QINTERW */ /* */ RTVJOBA JOB(&DEVICE) IF COND(%SST(&DEVICE 1 4) = 'SCAN') + THEN(DO) TFRJOB JOBQ(QINTERW) GOTO CMDLBL(@END) ENDDO //* */ /* If not apply default routing */ /* */ TFRJOB JOBQ(QINTER) RTGDTA('QCMDI') @END: ENDPGM
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.