/* Materialize Machine Attributes */ DCL DD MATMATR-CONTROL CHAR(2); DCL SPCPTR .MACHINE-ATTR INIT(MACHINE-ATTR); DCL DD MACHINE-ATTR CHAR(256) BDRY(16); DCL DD BYTES-PROVIDED BIN(4) DEF(MACHINE-ATTR) POS(1) INIT(256); DCL DD BYTES-AVAILABLE BIN(4) DEF(MACHINE-ATTR) POS(5); DCL DD THE-ATTRIBUTES CHAR(248) DEF(MACHINE-ATTR) POS(9); DCL DD THE-TIMESTAMP CHAR(8) DEF(THE-ATTRIBUTES) POS( 1); DCL DD THE-TIME-HI BIN(4) UNSGND DEF(THE-TIMESTAMP) POS(1); DCL DD THE-TIME-LO BIN(4) UNSGND DEF(THE-TIMESTAMP) POS(5); DCL DD SERIAL-NBR CHAR(8) DEF(THE-ATTRIBUTES) POS( 1); DCL DD NETWORK-ATTRS CHAR(190) DEF(THE-ATTRIBUTES) POS( 1); DCL DD SYSTEM-NAME CHAR(8) DEF(NETWORK-ATTRS) POS( 1); DCL DD * BIN(2) DEF(NETWORK-ATTRS) POS( 9); DCL DD NEW-SYSTEM-NAME CHAR(8) DEF(NETWORK-ATTRS) POS(11); DCL DD * BIN(2) DEF(NETWORK-ATTRS) POS(19); DCL DD LOCAL-NETWORK-ID CHAR(8) DEF(NETWORK-ATTRS) POS(21); DCL DD * BIN(2) DEF(NETWORK-ATTRS) POS(29); CPYBLA MATMATR-CONTROL, X'0004'; /* Get Serial Number */ MATMATR .MACHINE-ATTR, MATMATR-CONTROL; CPYBLAP MSG-TEXT, SERIAL-NBR, " "; /* Text */ CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE; CPYBLA MATMATR-CONTROL, X'0100'; /* Get Timestamp */ MATMATR .MACHINE-ATTR, MATMATR-CONTROL; CVTHC MSG-TEXT(1:16), THE-TIMESTAMP; /* Binary */ CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE; CPYBLA MATMATR-CONTROL, X'0130'; /* Get Network Attrs */ MATMATR .MACHINE-ATTR, MATMATR-CONTROL; CPYBLAP MSG-TEXT(1:30), NETWORK-ATTRS, " "; /* mixed */ CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE; RTX *; %INCLUDE SHOWMSG