Calling SAP Network Graphics, Without Dialog 

*-------------------------------------------------------------*

* This program calls SAP Network Graphics.

*

* NETZ_BO1 calls CNET_GRAPHIC_NETWORK, creating nodes and links

* between the nodes.

*-------------------------------------------------------------*

REPORT NETZ_BO1.

INCLUDE LCNETDAT. "General data declarations

INCLUDE LCNETCON. "Constants

* Creating nodes

PERFORM MAKE_NODES TABLES NET_NODES_TAB NVALS_TAB.

* Creating links

PERFORM MAKE_LINES TABLES LINES_TAB LVALS_TAB.

DO.

* Calling SAP Network Graphics

CALL FUNCTION 'CNET_GRAPHIC_NETWORK'

EXPORTING

STAT = STAT

IMPORTING

M_TYP = M_TYP

TABLES

CLUSTERS = CLUSTERS_TAB

CVALS = CVALS_TAB

DELETIONS = DELETE_TAB

INODES = INODES_TAB

LINES = LINES_TAB

LVALS = LVALS_TAB

NODES = NET_NODES_TAB

NVALS = NVALS_TAB

POSITIONS = POSITIONS_TAB.

CASE M_TYP.

WHEN NET_CONST-M_TYP_D.

EXIT.

WHEN NET_CONST-M_TYP_I.

STAT = NET_CONST-STAT_4.

ENDCASE.

ENDDO.

*---------------------------------------------------------------------*

* FORM MAKE_NODES *

*---------------------------------------------------------------------*

* Creating nodes *

*---------------------------------------------------------------------*

* --> NODES *

* --> NVALS *

*---------------------------------------------------------------------*

FORM MAKE_NODES TABLES NODES STRUCTURE CNG_NODES

NVALS STRUCTURE NET_NVALS.

NODES-ID = '1'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-001. "Node 1

APPEND NVALS.

NODES-ID = '2'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-002. "Node 2

APPEND NVALS.

NODES-ID = '3'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-003. "Node 3

APPEND NVALS.

NODES-ID = '4'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-004. "Node 4

APPEND NVALS.

NODES-ID = '5'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-005. "Node 5

APPEND NVALS.

NODES-ID = '6'.

APPEND NODES.

NVALS-ID = NODES-ID.

NVALS-FL = NET_CONST-TEXT_INDEX_0.

NVALS-VAL = TEXT-006. "Node 6

APPEND NVALS.

ENDFORM.

*---------------------------------------------------------------------*

* FORM MAKE_LINES *

*---------------------------------------------------------------------*

* Creating links between nodes *

*---------------------------------------------------------------------*

* --> LINES *

* --> LVALS *

*---------------------------------------------------------------------*

FORM MAKE_LINES TABLES LINES STRUCTURE CNG_LINES

LVALS STRUCTURE NET_LVALS.

LINES-ID = '1'.

LINES-PRE = '1'.

LINES-SUC = '2'.

LINES-AB = NET_CONST-AOB_EA. "Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

LINES-ID = '2'.

LINES-PRE = '2'.

LINES-SUC = '4'.

LINES-AB = NET_CONST-AOB_EA. " Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

LINES-ID = '3'.

LINES-PRE = '1'.

LINES-SUC = '3'.

LINES-AB = NET_CONST-AOB_EA. " Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

LINES-ID = '4'.

LINES-PRE = '3'.

LINES-SUC = '4'.

LINES-AB = NET_CONST-AOB_EA. " Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

LINES-ID = '5'.

LINES-PRE = '4'.

LINES-SUC = '5'.

LINES-AB = NET_CONST-AOB_EA. " Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

LINES-ID = '6'.

LINES-PRE = '5'.

LINES-SUC = '6'.

LINES-AB = NET_CONST-AOB_EA. " Normal relation

APPEND LINES.

LVALS-ID = LINES-ID.

LVALS-FL = NET_CONST-TEXT_INDEX_0.

LVALS-VAL = LINES-AB.

APPEND LVALS.

ENDFORM.