      PROGRAM PARSE
      INCLUDE '($FABDEF)'
      INCLUDE '($NAMDEF)'
      INTEGER*4 STAT,RESLEN
      CHARACTER*32 FNM
      CHARACTER*255 RESFNM
      RECORD /FABDEF/FABBLK
      RECORD /NAMDEF/NAMBLK
      INTEGER*4 SYS$PARSE
      FNM='SYS$COMMON:[SYSMGR]'
      FABBLK.FAB$B_BID=FAB$C_BID
      FABBLK.FAB$B_BLN=FAB$C_BLN
      FABBLK.FAB$L_FOP=FAB$M_NAM
      FABBLK.FAB$L_NAM=%LOC(NAMBLK)
      FABBLK.FAB$L_FNA=%LOC(FNM)
      FABBLK.FAB$B_FNS=LEN(FNM)
      NAMBLK.NAM$B_BID=NAM$C_BID
      NAMBLK.NAM$B_BLN=NAM$C_BLN
      NAMBLK.NAM$B_ESS=LEN(RESFNM)
      NAMBLK.NAM$L_ESA=%LOC(RESFNM)
      NAMBLK.NAM$B_NOP=NAM$M_NOCONCEAL
      STAT=SYS$PARSE(FABBLK)
      RESLEN=NAMBLK.NAM$B_ESL
      WRITE(*,*) '>>'//RESFNM(1:RESLEN)//'<<'
      END
