/*===================================================================*/
/*                                                                   */
/*   EXIT PROGRAM TO CONTROL TELNET ACCESS                           */
/*                                                                   */
/* THE SOURCE STILL HAS REFERENCES TO MY SYSTEM (LIBRARY NAMES       */
/*  USER IDS ON SNDMSG COMMANDS).                                    */
/*                                                                   */
/* AS WITH ANY OTHER SHARED PROGRAMS, TRHERE IS NO GUARANTEES OR     */
/* RESPONSIBLE FOR ANY ERRORS CREATED BY THESE PROGRAMS              */
/*                                                                   */
/*===================================================================*/
/* To compile:                                                       */
/*           CRTCLPGM   PGM(LIBRARY/XCLTNTERM) +                     */
/*                        SRCFILE(LIBRARY/QCLSRC)                    */
/*                                                                   */
/*                                                                   */
/* Installation instructions:                                        */
/*                                                                   */
/*    1. Compile program                                             */
/*                                                                   */
/*    2. Change owner of the program to user QSECOFR.                */
/*       Adopted authority allows the program sending                */
/*       to the audit journal                                        */
/*                                                                   */
/*           CHGOBJOWN  OBJ(LIBRARY/XCLTNTERM) OBJTYPE(*PGM) +       */
/*                        NEWOWN(QSECOFR)                            */
/*           GRTOBJAUT  OBJ(LIBRARY/XCLTNTERM) OBJTYPE(*PGM) +       */
/*                        USER(QTCP) AUT(*ALL)                       */
/*                                                                   */
/*    3. Name the exit program in registration facility              */
/*            QIBM_QTG_DEVTERM      TERM0100                         */
/*          ADDEXITPGM  EXITPNT(QIBM_QTG_DEVTERM +                   */
/*                      FORMAT(TERM0100) PGMNBR(1) +                 */
/*                      PGM(LIBRARY/XCLTNTERM) +                     */
/*                      TEXT('Check TELNET ACCESS')                  */
/*                                                                   */
/*    4. Specify the registration facility in the network attribute  */
/*                                                                   */
/*          CHGNETA PCSACC(*REGFAC)                                  */
/*                                                                   */
/*       The request is recorded in the Telnet journal.              */
/*       The Telnet journal entries created are:                     */
/*                                                                   */
/*          'X9' = requests that are allowed                         */
/*                                                                   */
/*===================================================================*/
/*                                                                   */
             PGM        PARM(&DEVNAME)
/*                                                                   */
/*    INPUT VARIABLES                                                */
/*                                                                   */
             DCL        VAR(&DEVNAME) TYPE(*CHAR) LEN(10)
/*                                                                   */
/*    LOCAL VARIABLES                                                */
/*                                                                   */
             DCL        VAR(&RCVRVAR) TYPE(*CHAR) LEN(900)
             DCL        VAR(&RVLGTHX) TYPE(*CHAR) LEN(2) VALUE('99')
             DCL        VAR(&FMTNAME) TYPE(*CHAR) LEN(8) +
                          VALUE('DEVD0600')
             DCL        VAR(&ERRCD)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&RVLGTH)  TYPE(*DEC) LEN(4 0)
             DCL        VAR(&IPADDR) TYPE(*CHAR) LEN(15)
/*                                                                   */
             CHGVAR     VAR(&RVLGTH) VALUE(%BINARY(&RVLGTHX))
/*                                                                   */
/*  CALL QDCRDEVD TO RETRIEVE INFO ABOUT DEVNAME INPUT PARM          */
/*                                                                   */
             CALL       PGM(QDCRDEVD) PARM(&RCVRVAR &RVLGTH &FMTNAME +
                          &DEVNAME &ERRCD)
/*                                                                   */
/*  SET IPADDR TO VALUE RETURNED FROM QDCRDEVD API                   */
/*                                                                   */
             CHGVAR     VAR(&IPADDR) VALUE(%SST(&RCVRVAR 878 15))
/*                                                                   */
/*  WRITE INFO TO TELNET JOURNAL                                     */
/*                                                                   */
             SNDJRNE    JRN(UTILITY/TLNJRN) TYPE(X9) ENTDTA('Telnet +
                          connection from device' *BCAT &DEVNAME +
                          *BCAT 'at' *BCAT &IPADDR *BCAT 'ended') +
                          FORCE(*YES)
/*                                                                   */
/*  End of program                                                   */
/*                                                                   */
EXIT:
             ENDPGM