× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. May 2008

Re: Not a programmer, but I need a program!

PGM
DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8)
DCL VAR(&NODETYPE) TYPE(*CHAR) LEN(8)
DCL VAR(&MODE) TYPE(*CHAR) LEN(1) VALUE('I') /* +
Interactive */
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCLF FILE(DSPCTLD)
MONMSG MSGID(CPF0000)
DSPOBJD OBJ(*ALL) OBJTYPE(*CTLD) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/CTLLIST)
OVRDBF FILE(DSPCTLD) TOFILE(CTLLIST)
OPNDBF FILE(QTEMP/CTLLIST) OPTION(*INP)

RTVNETA SYSNAME(&SYSNAME) NODETYPE(&NODETYPE)
RTVJOBA USER(&USER)

CRTPF FILE(QTEMP/CTLSPLF) RCDLEN(150)

READ: RCVF RCDFMT(QLIDOBJD)

MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))

IF COND(&ODOBAT *NE 'APPC') THEN(GOTO +
CMDLBL(READ))

DSPCTLD CTLD(&ODOBNM) OUTPUT(*PRINT)
CPYSPLF FILE(QPDCCTL) TOFILE(QTEMP/CTLSPLF) +
SPLNBR(*LAST)
DLTSPLF FILE(QPDCCTL) SPLNBR(*LAST)

CALL PGM(DSPCTLD2C) PARM(&MODE &SYSNAME &NODETYPE +
&USER)

GOTO CMDLBL(READ)

EOF: CLOF OPNID(CTLLIST)

SNDNETMSG MSG('DSPCTLDC is done') TOUSRID((&USER GDISYS))


ENDPGM

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.