Thesis - BIJLAGE 2

Bijlage 2
FlowMark Definition Language (FDL)
Bron: EXMCABCR.FDL - sample file (meegeleverd met FlowMark V2R2 distributie).
/********************************************************************
* Generated by FlowMark Import/Export at 03/28/94, 15:23:10.
********************************************************************/

/********************************************************************
* DATA-STRUCTURES
********************************************************************/
STRUCTURE 'CreditInfo'
    'CreditRequestor':  'PersonInfo';
    'Address':  STRING;
    'RiskFactor':       STRING;
    'AddApproval':      STRING;
    'CreditAmount':     LONG;
END 'CreditInfo'

STRUCTURE 'Default Data Structure'
END 'Default Data Structure'

STRUCTURE 'PersonInfo'
    'FirstName':        STRING;
    'LastName': STRING;
END 'PersonInfo'


/********************************************************************
* PROGRAMS
********************************************************************/
PROGRAM 'NAcceptCredit' ( 'CreditInfo', 'Default Data Structure' )
    WINDOWS PATH_AND_FILENAME   'EXMCABNA.EXE'
END 'NAcceptCredit'

PROGRAM 'NAssessCreditRisk'     ( 'CreditInfo', 'CreditInfo' )
    WINDOWS PATH_AND_FILENAME   'EXMCABNI.EXE'
END 'NAssessCreditRisk'

PROGRAM 'NCollectCreditData'    ( 'PersonInfo', 'CreditInfo' )
    WINDOWS PATH_AND_FILENAME   'EXMCABNP.EXE'
END 'NCollectCreditData'

PROGRAM 'NRejectCredit' ( 'CreditInfo', 'Default Data Structure' )
    WINDOWS PATH_AND_FILENAME   'EXMCABNA.EXE'
END 'NRejectCredit'

PROGRAM 'NRequestCreditApproval'        ( 'CreditInfo', 'CreditInfo' )
    WINDOWS PATH_AND_FILENAME   'EXMCABNR.EXE'
END 'NRequestCreditApproval'


/********************************************************************
*
* PROCESSES
*
********************************************************************/

/********************************************************************
* Description of Process CreditRequest
********************************************************************/
PROCESS 'CreditRequest' ( 'PersonInfo', 'Default Data Structure' )
    DESCRIPTION 'Credit request for %FirstName% %LastName%'
    PROMPT_AT_PROCESS_START
    LAYOUT      GIVEN
        WINDOW  '4111 220 139 796 512 4119 0 0 0 0 100 0 0 4 1 8 '
    SOURCE      XPOS=-918       YPOS=433
    STAFF_INHERITED

    PROGRAM_ACTIVITY 'AcceptCredit'     ( 'CreditInfo', 'Default Data Structure' )
        DESCRIPTION     'Credit request for %CreditRequestor.FirstName% %CreditRequestor.LastName%'
        PROGRAM 'NAcceptCredit'
        DONE_BY STARTER_OF_ACTIVITY CollectCreditInformation
        LAYOUT  XPOS=608        YPOS=166
    END 'AcceptCredit'

    PROGRAM_ACTIVITY 'AssessRisk'       ( 'CreditInfo', 'CreditInfo' )
        DESCRIPTION     'Credit request for %CreditRequestor.FirstName% %CreditRequestor.LastName%'
        PROGRAM 'NAssessCreditRisk'
        DONE_BY STARTER_OF_ACTIVITY CollectCreditInformation
        LAYOUT  XPOS=-232       YPOS=177
    END 'AssessRisk'

    PROGRAM_ACTIVITY 'CollectCreditInformation' ( 'PersonInfo', 'CreditInfo' )
        DESCRIPTION     'Credit request for %FirstName% %LastName%'
        PROGRAM 'NCollectCreditData'
        DONE_BY PROCESS_STARTER
        LAYOUT  XPOS=-641       YPOS=191
    END 'CollectCreditInformation'

    PROGRAM_ACTIVITY 'RejectCredit'     ( 'CreditInfo', 'Default Data Structure' )
        DESCRIPTION     'Credit request for %CreditRequestor.FirstName% %CreditRequestor.LastName%'
        PROGRAM 'NRejectCredit'
        DONE_BY STARTER_OF_ACTIVITY CollectCreditInformation
        LAYOUT  XPOS=680        YPOS=-235
    END 'RejectCredit'

    PROGRAM_ACTIVITY 'RequestApproval'  ( 'CreditInfo', 'CreditInfo' )
        DESCRIPTION     'Credit request for %CreditRequestor.FirstName% %CreditRequestor.LastName%'
        PROGRAM 'NRequestCreditApproval'
        DONE_BY STARTER_OF_ACTIVITY CollectCreditInformation
        LAYOUT  XPOS=276        YPOS=-215
    END 'RequestApproval'

    CONTROL FROM 'CollectCreditInformation'     TO 'AssessRisk'
    CONTROL FROM 'AssessRisk'   TO 'AcceptCredit'
        WHEN 'CreditAmount<100000 AND RiskFactor="L"'
    CONTROL FROM 'RequestApproval'      TO 'RejectCredit'
        WHEN 'AddApproval="N"'
    CONTROL FROM 'RequestApproval'      TO 'AcceptCredit'
        WHEN 'AddApproval="Y"'
    CONTROL FROM 'AssessRisk'   TO 'RequestApproval'
        OTHERWISE

    DATA FROM SOURCE    TO 'CollectCreditInformation'
        MAP '_STRUCT'   TO '_STRUCT'
    DATA FROM 'CollectCreditInformation'        TO 'AssessRisk'
        MAP '_STRUCT'   TO '_STRUCT'
        LAYOUT
                BEND_AT XPOS=-445       YPOS=304
    DATA FROM 'AssessRisk'      TO 'AcceptCredit'
        MAP '_STRUCT'   TO '_STRUCT'
        LAYOUT
                BEND_AT XPOS=221        YPOS=312
    DATA FROM 'AssessRisk'      TO 'RequestApproval'
        MAP '_STRUCT'   TO '_STRUCT'
        LAYOUT
                BEND_AT XPOS=-50        YPOS=-171
    DATA FROM 'RequestApproval' TO 'RejectCredit'
        MAP '_STRUCT'   TO '_STRUCT'
        LAYOUT
                BEND_AT XPOS=506        YPOS=-323
    DATA FROM 'RequestApproval' TO 'AcceptCredit'
        MAP '_STRUCT'   TO '_STRUCT'
        LAYOUT
                BEND_AT XPOS=296        YPOS=44

END 'CreditRequest'