! Include file ( for basic ) for RMS Interface subroutine RMS_INFO. ! The symbolic values specify the information you want ! about the particular file. declare long constant & RMS__AID =x"0000003B"L, RMS__ALN =x"00000010"L, & RMS__ALN_V =x"00000087"L, RMS__ALQ =x"00000023"L, & RMS__AOP =x"0000000A"L, RMS__AOP_M =x"00000086"L, & RMS__BDT =x"00000011"L, RMS__BDT_V =x"00000089"L, & RMS__BKS =x"00000024"L, RMS__BKT =x"00000019"L, & RMS__BKZ =x"0000003D"L, RMS__BLS =x"00000025"L, & RMS__CDT =x"00000012"L, RMS__CDT_V =x"0000008A"L, & RMS__DAN =x"00000031"L, RMS__DBS =x"0000007F"L, & RMS__DEQ =x"00000027"L, RMS__DEV =x"00000006"L, & RMS__DEV_A =x"00000050"L, RMS__DEV_L =x"0000006A"L, & RMS__DEV_M =x"0000005E"L, RMS__DFL =x"00000032"L, & RMS__DID =x"00000070"L, RMS__DIR_A =x"00000051"L, & RMS__DIR_L =x"0000006B"L, RMS__DNA =x"0000004D"L, & RMS__DNM =x"00000017"L, RMS__DNS =x"00000028"L, & RMS__DTP =x"0000000F"L, RMS__DTP_V =x"0000007E"L, & RMS__DVB =x"00000080"L, RMS__DVI =x"00000071"L, & RMS__EBK =x"00000092"L, RMS__EDT =x"00000013"L, & RMS__EDT_V =x"0000008B"L, RMS__ESA =x"0000004E"L declare long constant & RMS__ESL =x"00000069"L, RMS__ESS =x"0000002F"L, & RMS__FAB =x"00000074"L, RMS__FABCTX =x"00000026"L, & RMS__FABSTS =x"0000005C"L, RMS__FABSTV =x"0000005D"L, & RMS__FAC =x"00000004"L, RMS__FAC_M =x"00000062"L, & RMS__FFB =x"00000093"L, RMS__FID =x"00000072"L, & RMS__FLG =x"00000009"L, RMS__FLG_M =x"0000007D"L, & RMS__FNA =x"0000004C"L, RMS__FNB =x"00000008"L, & RMS__FNB_M =x"00000067"L, RMS__FNM =x"00000018"L, & RMS__FNS =x"00000029"L, RMS__FOP =x"00000003"L, & RMS__FOP_M =x"00000061"L, RMS__FSZ =x"0000002A"L, & RMS__GBC =x"0000002B"L, RMS__GRP =x"00000042"L, & RMS__IAN =x"00000033"L, RMS__IBS =x"00000081"L, & RMS__IFL =x"00000034"L, RMS__KBF =x"0000004A"L, & RMS__KEY =x"00000076"L, RMS__KRF =x"0000001A"L, & RMS__KSZ =x"0000001B"L, RMS__LAN =x"00000035"L, & RMS__LOC =x"0000003F"L, RMS__LRL =x"00000094"L, & RMS__LVL =x"00000082"L, RMS__MBC =x"0000001C"L, & RMS__MBF =x"0000001D"L, RMS__MBM =x"00000043"L declare long constant & RMS__MRN =x"0000002C"L, RMS__MRS =x"0000002D"L, & RMS__MTACC =x"00000045"L, RMS__NAM =x"00000075"L, & RMS__NAME_A =x"00000052"L, RMS__NAME_L =x"0000006C"L, & RMS__NOA =x"0000008F"L, RMS__NODE_A =x"00000053"L, & RMS__NODE_L =x"0000006D"L, RMS__NOK =x"0000008E"L, & RMS__NSG =x"00000083"L, RMS__NUL =x"00000036"L, & RMS__ORG =x"0000000C"L, RMS__ORG_V =x"00000064"L, & RMS__PBF =x"00000049"L, RMS__POS =x"00000037"L, & RMS__PRO =x"00000016"L, RMS__PROLOG =x"0000003A"L, & RMS__PRO_M =x"00000088"L, RMS__PSZ =x"0000001E"L, & RMS__PVN =x"00000090"L, RMS__RAB =x"00000073"L, & RMS__RABCTX =x"00000022"L, RMS__RABSTS =x"00000057"L, & RMS__RABSTV =x"00000058"L, RMS__RABS_FAB =x"00000059"L, & RMS__RAC =x"0000000B"L, RMS__RAC_V =x"0000005B"L, & RMS__RAT =x"00000002"L, RMS__RAT_M =x"00000060"L, & RMS__RBF =x"0000004B"L, RMS__RDT =x"00000014"L, & RMS__RDT_RDT =x"00000015"L, RMS__RDT_RDT_V =x"0000008D"L, & RMS__RDT_RVN =x"00000047"L, RMS__RDT_V =x"0000008C"L declare long constant & RMS__REF =x"00000039"L, RMS__RFA =x"00000056"L, & RMS__RFI =x"00000041"L, RMS__RFM =x"0000000D"L, & RMS__RFM_V =x"00000065"L, RMS__RLF =x"00000066"L, & RMS__RMS_FN =x"0000000E"L, RMS__ROP =x"00000001"L, & RMS__ROP_M =x"0000005A"L, RMS__RSA =x"0000004F"L, & RMS__RSL =x"00000068"L, RMS__RSS =x"00000030"L, & RMS__RSZ =x"0000001F"L, RMS__RTV =x"0000002E"L, & RMS__RVB =x"00000084"L, RMS__RVN =x"00000046"L, & RMS__SBN =x"00000095"L, RMS__SDC =x"00000007"L, & RMS__SDC_M =x"0000005F"L, RMS__SHR =x"00000005"L, & RMS__SHR_M =x"00000063"L, RMS__SIZ =x"00000038"L, & RMS__STS =x"0000005C"L, RMS__STV =x"0000005D"L, & RMS__TKS =x"00000085"L, RMS__TMO =x"00000020"L, & RMS__TYPE_A =x"00000054"L, RMS__TYPE_L =x"0000006E"L, & RMS__UBF =x"00000048"L, RMS__UIC =x"00000044"L, & RMS__USZ =x"00000021"L, RMS__VERLIMIT =x"00000091"L, & RMS__VER_A =x"00000055"L, RMS__VER_L =x"0000006F"L, & RMS__VOL =x"00000040"L, RMS__XABALL =x"00000077"L declare long constant & RMS__XABALQ =x"0000003C"L, RMS__XABDAT =x"00000079"L, & RMS__XABDEQ =x"0000003E"L, RMS__XABFHC =x"0000007C"L, & RMS__XABPRO =x"00000078"L, RMS__XABRDT =x"0000007A"L, & RMS__XABSUM =x"0000007B"L