This example retrieves network attributes.
In the following example, the default network output queue and the library that contains it are retrieved, changed to QGPL/QPRINT, and later changed back to the previous value.
PGM DCL VAR(&OUTQNAME) TYPE(*CHAR) LEN(10) DCL VAR(&OUTQLIB) TYPE(*CHAR) LEN(10) RTVNETA OUTQ(&OUTQNAME) OUTQLIB(&OUTQLIB) CHGNETA OUTQ(QGPL/QPRINT) . . . CHGNETA OUTQ(&OUTQLIB/&OUTQNAME) ENDPGM