1000 EXTEND & ! GETNOD.BAS - Return the system's DECNET node name, *even if DECnet/E & ! is not currently running. The node name (or null if no & ! network is configured) is returned in DCL symbol FNODE & ! & ! V1.0-00 - 11-May-88 - tmk & ! 1010 ON ERROR GOTO 1030 1020 OPEN "[0,1]NETPRM.SYS" FOR INPUT AS FILE #1%, RECORDSIZE 512% & \ FIELD #1, 2% AS JUNK1$, 2% AS EXEC$, 508% AS JUNK2$ & \ GET #1%, RECORD 1% & ! Get header record & \ EXEC%=SWAP%(CVT$%(EXEC$))+1% & ! Extract pointer to Executor definition record & \ FIELD #1, 84% AS JUNK1$, 6% AS NODNAM$, 44% AS JUNK2$, & 17% AS NETFIL$, 361% AS JUNK3$ & \ GET #1%, RECORD EXEC% & ! Get Executor definition record & \ GOTO 1040 IF NETFIL$<>"SY0:[0,1]NSP0.SYS" & ! Verify we're in the right place & \ GOTO 1050 1030 NODNAM$="" & ! If no permanent parameter file, no node name & \ RESUME 1050 1040 PRINT "%Node identification may be inaccurate." 1050 A$=SYS(CHR$(14%)+"$FNODE="+CHR$(34%)+NODNAM$+CHR$(34%)) 32767 END