!*** MODULE $CQUALDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN PARAMETER UTIL$M_CQF_CONFIRM = '00000001'X PARAMETER UTIL$M_CQF_EXCLUDE = '00000002'X PARAMETER UTIL$M_CQF_BEFORE = '00000004'X PARAMETER UTIL$M_CQF_SINCE = '00000008'X PARAMETER UTIL$M_CQF_CREATED = '00000010'X PARAMETER UTIL$M_CQF_MODIFIED = '00000020'X PARAMETER UTIL$M_CQF_EXPIRED = '00000040'X PARAMETER UTIL$M_CQF_BACKUP = '00000080'X PARAMETER UTIL$M_CQF_BYOWNER = '00000100'X PARAMETER UTIL$M_CQF_ACCESSED = '00000200'X PARAMETER UTIL$M_CQF_ATTRIBUTES = '00000400'X PARAMETER UTIL$M_CQF_UPDATE_DATA = '00000800'X STRUCTURE /CFQUALS/ UNION MAP PARAMETER UTIL$S_CQF_CONFIRM = 1 PARAMETER UTIL$V_CQF_CONFIRM = 0 ! PARAMETER UTIL$S_CQF_EXCLUDE = 1 PARAMETER UTIL$V_CQF_EXCLUDE = 1 ! PARAMETER UTIL$S_CQF_BEFORE = 1 PARAMETER UTIL$V_CQF_BEFORE = 2 ! PARAMETER UTIL$S_CQF_SINCE = 1 PARAMETER UTIL$V_CQF_SINCE = 3 ! PARAMETER UTIL$S_CQF_CREATED = 1 PARAMETER UTIL$V_CQF_CREATED = 4 ! PARAMETER UTIL$S_CQF_MODIFIED = 1 PARAMETER UTIL$V_CQF_MODIFIED = 5 ! PARAMETER UTIL$S_CQF_EXPIRED = 1 PARAMETER UTIL$V_CQF_EXPIRED = 6 ! PARAMETER UTIL$S_CQF_BACKUP = 1 PARAMETER UTIL$V_CQF_BACKUP = 7 ! PARAMETER UTIL$S_CQF_BYOWNER = 1 PARAMETER UTIL$V_CQF_BYOWNER = 8 ! PARAMETER UTIL$S_CQF_ACCESSED = 1 PARAMETER UTIL$V_CQF_ACCESSED = 9 ! PARAMETER UTIL$S_CQF_ATTRIBUTES = 1 PARAMETER UTIL$V_CQF_ATTRIBUTES = 10 ! PARAMETER UTIL$S_CQF_UPDATE_DATA = 1 PARAMETER UTIL$V_CQF_UPDATE_DATA = 11 ! BYTE %FILL (2) END MAP MAP PARAMETER UTIL$S_CQF_ASSIGNED = 12 PARAMETER UTIL$V_CQF_ASSIGNED = 0 PARAMETER UTIL$S_CQF_UNASSIGNED = 20 PARAMETER UTIL$V_CQF_UNASSIGNED = 12 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CFQUALS ! ! define prompt parameter values ! PARAMETER UTIL$K_CQF_UNSPECIFIED = '00000000'X PARAMETER UTIL$K_CQF_SHORT = '00000001'X PARAMETER UTIL$K_CQF_LONG = '00000002'X PARAMETER UTIL$K_CQF_CONDENSED = '00000001'X PARAMETER UTIL$K_CQF_EXPANDED = '00000002'X PARAMETER UTIL$K_CQF_MAX_FORM = '00000002'X ! ! TO BE REMOVED PARAMETER LIB$M_CQF_CONFIRM = '00000001'X PARAMETER LIB$M_CQF_EXCLUDE = '00000002'X PARAMETER LIB$M_CQF_BEFORE = '00000004'X PARAMETER LIB$M_CQF_SINCE = '00000008'X PARAMETER LIB$M_CQF_CREATED = '00000010'X PARAMETER LIB$M_CQF_MODIFIED = '00000020'X PARAMETER LIB$M_CQF_EXPIRED = '00000040'X PARAMETER LIB$M_CQF_BACKUP = '00000080'X PARAMETER LIB$M_CQF_BYOWNER = '00000100'X STRUCTURE /CQUALS/ UNION MAP PARAMETER LIB$S_CQF_CONFIRM = 1 PARAMETER LIB$V_CQF_CONFIRM = 0 ! PARAMETER LIB$S_CQF_EXCLUDE = 1 PARAMETER LIB$V_CQF_EXCLUDE = 1 ! PARAMETER LIB$S_CQF_BEFORE = 1 PARAMETER LIB$V_CQF_BEFORE = 2 ! PARAMETER LIB$S_CQF_SINCE = 1 PARAMETER LIB$V_CQF_SINCE = 3 ! PARAMETER LIB$S_CQF_CREATED = 1 PARAMETER LIB$V_CQF_CREATED = 4 ! PARAMETER LIB$S_CQF_MODIFIED = 1 PARAMETER LIB$V_CQF_MODIFIED = 5 ! PARAMETER LIB$S_CQF_EXPIRED = 1 PARAMETER LIB$V_CQF_EXPIRED = 6 ! PARAMETER LIB$S_CQF_BACKUP = 1 PARAMETER LIB$V_CQF_BACKUP = 7 ! PARAMETER LIB$S_CQF_BYOWNER = 1 PARAMETER LIB$V_CQF_BYOWNER = 8 ! BYTE %FILL (2) END MAP MAP PARAMETER LIB$S_CQF_ASSIGNED = 9 PARAMETER LIB$V_CQF_ASSIGNED = 0 PARAMETER LIB$S_CQF_UNASSIGNED = 23 PARAMETER LIB$V_CQF_UNASSIGNED = 9 BYTE %FILL (4) END MAP END UNION END STRUCTURE ! CQUALS !DEC$ END OPTIONS