/* Materialize Machine Attributes */
DCL SPCPTR .ISYSNAME PARM;
DCL DD ISYSNAME CHAR(8) BAS(.ISYSNAME);

DCL SPCPTR .INETID PARM;
DCL DD INETID CHAR(8) BAS(.INETID);

DCL SPCPTR .ALL PARM;
DCL DD ALL CHAR(256) BAS(.ALL);

DCL OL EXTERNAL (.ISYSNAME, .INETID, .ALL) PARM EXT MIN(3);

DCL DD MATMATR-CONTROL CHAR(2);

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

    DCL DD  NETWORK-ATTRS CHAR(190) DEF(MACHINE-ATTR) 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;

ENTRY * (EXTERNAL) EXT;
    CPYNV       BYTES-PROVIDED, 256;
    CPYBLA      MATMATR-CONTROL, X'0130'; /* Get Network Attrs */
    MATMATR    .MACHINE-ATTR, MATMATR-CONTROL;

    CPYBLA      ISYSNAME, SYSTEM-NAME;
    CPYBLA      INETID, LOCAL-NETWORK-ID;
    CPYBLA      ALL, MACHINE-ATTR;

    RTX         *;