DCL DD MATMATR-CONTROL CHAR(2);
DCL DD MATERIALIZE-AREA CHAR(256) BDRY(16);

DCL SPCPTR .MACHINE-ATTR  INIT(MATERIALIZE-AREA);
DCL SPC     MACHINE-ATTR  BAS(.MACHINE-ATTR);
    DCL DD  BYTES-PROVIDED  BIN(4) DIR;
    DCL DD  BYTES-AVAILABLE BIN(4) DIR;

        DCL DD  THE-TIMESTAMP    CHAR(8) DIR POS(9);
            DCL DD THE-TIME-HI       BIN(4) UNSGND DIR;
            DCL DD THE-TIME-LO       BIN(4) UNSGND DIR;

        DCL DD  SERIAL-NBR       CHAR(8) DIR POS(9);

        DCL DD  NETWORK-ATTRS  CHAR(190) DIR POS(9);
            DCL DD SYSTEM-NAME       CHAR(8) DIR;
            DCL DD *                  BIN(2) DIR;
            DCL DD NEW-SYSTEM-NAME   CHAR(8) DIR;
            DCL DD *                  BIN(2) DIR;
            DCL DD LOCAL-NETWORK-ID  CHAR(8) DIR;
            DCL DD *                  BIN(2) DIR;

    CPYNV       BYTES-PROVIDED, 256;

    CPYBLA      MATMATR-CONTROL, X'0004'; /* GET SERIAL NUMBER */
    MATMATR    .MACHINE-ATTR, MATMATR-CONTROL;
    CPYBLAP     MSG-TEXT, SERIAL-NBR, " ";
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;

    CPYBLA      MATMATR-CONTROL, X'0100'; /* GET TIMESTAMP     */
    MATMATR    .MACHINE-ATTR, MATMATR-CONTROL;
    CVTHC       MSG-TEXT(1:16), THE-TIMESTAMP;
    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, " ";
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;

    RTX         *;

%INCLUDE SHOWMSG