RE: Any validity checking program gurus here?

Also, use this command in a CL source in LPEX. It would be interesting to know if it fails with the same or similar errors.

-Matt


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of James H. H. Lampert
Sent: Wednesday, July 25, 2018 6:49 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Any validity checking program gurus here?

I'm experimenting with a validity checking program on a command.

It works just fine from a command line. But if I try it in a CL program, within SEU, then SEU immediately crashes, and I get this:

'*JOBD' may not be qualified if specifed for job queue.

(which is the message I'm sending from the validity checking program), and then this:

Receiver value too small to hold result.
Dump output directed to spooled file 1.
Error found on STRSEU command.

The CL source for the validity checking program is more-or-less straight out of the manual:

PGM PARM(&MINHEAP &MAXHEAP &JOBQ)
DCL VAR(&MINHEAP) TYPE(*DEC) LEN(4 0)
DCL VAR(&MAXHEAP) TYPE(*DEC) LEN(4 0)
DCL VAR(&JOBQ) TYPE(*CHAR) LEN(20)
IF COND((%SST(&JOBQ 1 10) *EQ '*JOBD') *AND +
(%SST(&JOBQ 11 10) *NE ' ')) +
THEN(DO)
SNDPGMMSG MSGID(CPD0006) MSGF(QCPFMSG) +
MSGDTA('0000''*JOBD'' may not be +
qualified if specifed for job queue.') +
MSGTYPE(*DIAG)
SNDPGMMSG MSGID(CPF0002) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) ENDDO
IF COND((%SST(&JOBQ 1 10) *NE '*JOBD') *AND +
(%SST(&JOBQ 11 10) *EQ ' ')) +
THEN(DO)
SNDPGMMSG MSGID(CPD0006) MSGF(QCPFMSG) MSGDTA('0000Job +
queue name must be qualified with either +
a library name or ''*LIBL''') MSGTYPE(*DIAG) SNDPGMMSG
MSGID(CPF0002) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) ENDDO ENDPGM

--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=wgq2KO1Tl8HswJht2RKpmz7qvL2YDU_M-VhnRH6r43I&m=VU9WNlR_X4dWL_lpFGRXLwr3C2If-lX80xjbx2isxRc&s=HAnZ6PRQAinVG3TaLzSpynsCpNss5cU9gVhJ2sa_OlQ&e=
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=wgq2KO1Tl8HswJht2RKpmz7qvL2YDU_M-VhnRH6r43I&m=VU9WNlR_X4dWL_lpFGRXLwr3C2If-lX80xjbx2isxRc&s=8jrHExJ6K_2zRFRDajz0um6ZzBjIAXwCazrT3bO1KTQ&e=.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://urldefense.proofpoint.com/v2/url?u=http-3A__amzn.to_2dEadiD&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=wgq2KO1Tl8HswJht2RKpmz7qvL2YDU_M-VhnRH6r43I&m=VU9WNlR_X4dWL_lpFGRXLwr3C2If-lX80xjbx2isxRc&s=r8eEzdst2b1OBW3D_eSN07BBRHHAzxzOt6INhXHB9ag&e=