Comment on: CL
Posted: 5 years 11 months 27 days 19 hours 12 minutes ago
Posted: 5 years 11 months 27 days 19 hours 12 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: 5 years 11 months 27 days 18 hours 44 minutes ago
Posted: 5 years 11 months 27 days 18 hours 44 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