取网络属性
RTVNET可以取得网络属性,这些属性可以在CHGNETA修改,用DSPNETA显示
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(&OLIB/&OUTQNAME)
ENDPGM