Блокировка isrddn в tso-mvs

Question

Мы заинтересованы в блокировке isrddn для некоторых пользователей. Мы пытаемся сделать это, не создавая собственную оболочку. Есть ли что-то внутри isrddn, которое поможет? Какой самый простой способ сделать это? Спасибо!

Answer 1

Вы можете использовать Выход 3/4 (ВЫБЕРИТЕ начальный и конечный выходы). Выход 3 можно использовать для проверки SELECT PGM(ISRDDN), а затем выполнить какую-либо проверку авторизации, чтобы узнать, разрешено ли пользователю запускать pgm. Если не установить rc=8 (или 16), чтобы завершить службу SELECT с ошибкой авторизации. Это будет, как это сделать с помощью ISPF. Там могут быть пути через ваше программное обеспечение безопасности, а также. SELECT PGM(ISRDDN) сгенерирует SVC LINK для ISRDDN, поэтому хук в макросе LINK может выполнять проверки безопасности. ISRDDN делает намного больше, чем просто функция LISTALC, что можно увидеть, проверив учебник. Имейте в виду, что ISPF не является авторизованным кодом, и "умный" программист может написать свои собственные подпрограммы, чтобы сделать то же самое.