Comment on: CL
Posted: 6 years 6 months 30 days 26 minutes ago
Posted: 6 years 6 months 30 days 26 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)?
Comment on: CL
Posted: 6 years 6 months 29 days 23 hours 59 minutes ago
Posted: 6 years 6 months 29 days 23 hours 59 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