Retrive Local domain Name from QATOCTCPIP in QUSRSYS by Poul Aschenbrenner

/*********************************************************************/
/* Program:   RTVLOCDMNM                                             */
/*                                                                   */
/* Author:    Poul Aschenbrenner, COOP Data                          */
/*                                                                   */
/* Function:  Retrive Local domain Name from QATOCTCPIP in QUSRSYS.  */
/*********************************************************************/
             PGM        PARM(&LDMN)                                    
             DCL        VAR(&LDMN) TYPE(*CHAR) LEN(15)                 
             DCLF       FILE(QATOCTCPIP)                               
 RCVF:       RCVF                                                      
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))          
             IF         COND(&KEYWORD *EQ 'LOCALDMNME') THEN(DO)       
             CHGVAR     VAR(&LDMN) VALUE(%SST(&DATA 1 15))             
             GOTO       CMDLBL(EOF)                                    
             ENDDO      
             GOTO       CMDLBL(RCVF)      
 EOF:        ENDPGM

[report a broken link by clicking here]