In OS/400 Release 2, IBM changed the file QARZHELM to disallow read access to it. Because of this change, you cannot access the resource name by reading QARZHELM. To compensate for the change to the file, IBM created a new command-DSPLCLHDW. This command allows the display of the hardware information into an outfile. The program in 5 makes use of the new technique for retrieving the resource information. The changes from Release 1.2 are underlined.
In OS/400 Release 2, IBM changed the file QARZHELM to disallow read access to it. Because of this change, you cannot access the resource name by reading QARZHELM. To compensate for the change to the file, IBM created a new command-DSPLCLHDW. This command allows the display of the hardware information into an outfile. The program in Figure 5 makes use of the new technique for retrieving the resource information. The changes from Release 1.2 are underlined.
Alon Fluxman Highlands Ranch, Colorado
TechTalk: The New DSPLCLHDW command
Figure 1 The RTVRSCINFO program
Figure 1: The RTVRSCINFO Program PGM DCLF FILE(QARZHWOF) ---------- DCL VAR(&INDX) TYPE(*DEC) LEN(3 0) VALUE(1) CHGDTAARA DTAARA(*LDA) VALUE(' ') DSPLCLHDW OUTPUT(*OUTFILE) OUTFILE(QTEMP/HWD) ---------------------------------------------- OVRDBF FILE(QARZHWOF) TOFILE(QTEMP/HWD) ------------------------------------------- LOOP: RCVF MONMSG MSGID(CPF0886) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) IF COND(&HDRSNT *NE '6152' *AND &HDRSNT *NE + ------- ------- '6031') THEN(GOTO CMDLBL(LOOP)) /* Bypass + all but 6152(single line) and 6031(1(2line) */ IF COND(&HDTDAT *EQ 'P') THEN(GOTO + CMDLBL(LOOP)) /* Bypass Physical device + name */ CHGDTAARA DTAARA(*LDA (&INDX 10)) VALUE(&HDRSCN) ------- CHGVAR VAR(&INDX) VALUE(&INDX + 10) MONMSG CPF0000 GOTO LOOP END: ENDPGM
LATEST COMMENTS
MC Press Online