CL

Posted by: renojim

CL
has no ratings.

Published: 25 Sep 2017
Revised: 26 Sep 2017 - 2070 days ago
Last viewed on: 24 May 2023 (1964 views)

Main URL:

CL Published by: renojim on 25 Sep 2017 view comments(3)

I have a requirement to create a CL program that cannot be called from the command line. It will be called from a java portlet by users that have authority, but no one can call it from a command line. I have no idea how to pull that off. Anybody?

Sort Ascend | Descend

COMMENTS

(Sign in to Post a Comment)

Posted by: DaleB

Premium member *

Reading, PA

Comment on: CL
Posted: 5 years 8 months 17 hours 54 minutes ago

Don't think you can prevent the CALL, except by security. But if you had something you could test, that could tell the difference between call rom Java portlet and call from command line, you could return without doing anything. Maybe interrogate the call stack (QWVRCSTK)?

Posted by: Ringer

Premium member *

Comment on: CL
Posted: 5 years 8 months 17 hours 26 minutes ago

If called from Java client, Client Access, PHP, etc. I believe the job type will be '0' (batch) and the subjob type would be 'J' (prestart job). Add edits to the CL program and exit if not that condition. Also *PUBLIC *EXCLUDE obviously on the object authority.

DCL VAR(&Type ) TYPE(*CHAR) LEN(1)

DCL VAR(&SubType ) TYPE(*CHAR) LEN(1)

RTVJOBA TYPE(&TYPE) SUBTYPE(&SUBTYPE)

If ( &TYPE *NE '0' *OR &SUBTYPE *NE 'J') THEN(RETURN)

Ringer

Posted by: renojim

Premium member *

Comment on: CL
Posted: 5 years 8 months 12 hours 22 minutes ago

Great stuff! Thanks!