!*** MODULE $SECIDDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! + ! Define the global section identification structure. ! - PARAMETER SECID$M_MINOR_ID = '00FFFFFF'X PARAMETER SECID$M_MAJOR_ID = 'FF000000'X STRUCTURE /SECID/ INTEGER*4 SECID$L_MATCH ! Match control value, see secdef.h UNION MAP INTEGER*4 SECID$L_VERSION ! Version number END MAP MAP PARAMETER SECID$S_MINOR_ID = 24 PARAMETER SECID$V_MINOR_ID = 0 ! Minor ID of version number PARAMETER SECID$S_MAJOR_ID = 8 PARAMETER SECID$V_MAJOR_ID = 24 BYTE %FILL (4) ! Minor ID of version number END MAP END UNION END STRUCTURE ! SECID PARAMETER SECID$K_LENGTH = '00000008'X ! Length of SECID PARAMETER SECID$C_LENGTH = '00000008'X ! Length of SECID !DEC$ END OPTIONS