! %TITLE 'Dummy' MODULE dummy (IDENT = 'V001-01', ! File: DUMMY.BLI MAIN = dummy ) = BEGIN !++ ! ! FACILITY: ! ! ABSTRACT: ! ! ENVIRONMENT: ! ! AUTHOR: ! ! CREATED: ! ! MODIFICATION ! HISTORY: ! ! V001-1 edit author date ! Original version. ! !-- %SBTTL 'Declarations' !+ ! SWITCHES: !- SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); !+ ! LINKAGE/GLOBAL REGISTERS: !- ! None. !+ ! LINKAGES: !- ! None. !+ ! INCLUDE FILES: !- LIBRARY 'SYS$LIBRARY:LIB'; ! VMS executive macros/symbols. !+ ! TABLE OF CONTENTS: !- FORWARD ROUTINE dummy; ! !+ ! MACROS: !- ! None. !+ ! FIELDS: !- ! None. !+ ! STRUCTURES: !- ! None. !+ ! PROGRAM SECTION DECLARATIONS: !- ! None. !+ ! EQUATED SYMBOLS: !- ! None. !+ ! OWN (R/O) STORAGE: !- ! None. !+ ! OWN (R/W) STORAGE: !- ! None. !+ ! BUILTIN DECLARATIONS: !- ! None. !+ ! EXTERNAL ROUTINES: !- ! None. !+ ! EXTERNAL REFERENCES: !- ! None. %SBTTL 'Dummy - ' ROUTINE dummy = !++ ! ! FUNCTIONAL DESCRIPTION: ! ! ENVIRONMENT: ! ! All access modes, AST reentrant. ! ! CALLING SEQUENCE: ! ! DUMMY () ! ! LINKAGE: ! ! CALL ! ! FORMAL PARAMETERS: ! ! None. ! ! IMPLICIT INPUTS: ! ! None. ! ! IMPLICIT OUTPUTS: ! ! None. ! ! COMPLETION CODES: ! ! SS$_NORMAL Normal successful completion. ! ! SIDE EFFECTS: ! ! None. ! !-- BEGIN RETURN (ss$_normal); END; ! End of routine DUMMY END ! End of module DUMMY ELUDOM