Usuario:Cvmontuy/tmp24

• &---------------------------------------------------------------------*
• & Include ZPARIPR_WMDB_CONF_O01
• &---------------------------------------------------------------------*
• Transport: DRUK978116
• &---------------------------------------------------------------------*
• & Module PBO_0400 OUTPUT
• &---------------------------------------------------------------------*
• ----------------------------------------------------------------------*

MODULE PBO_100 OUTPUT.

 SET PF-STATUS 'MAIN'.
 IF G_TREE IS INITIAL.
   " The Tree Control has not been created yet.
   " Create a Tree Control and insert nodes into it.
   PERFORM CREATE_AND_INIT_TREE.
 ENDIF.

ENDMODULE. " PBO_0100 OUTPUT

• • • INCLUDE ZPAIPR_WMDB_CONF_O01
• &---------------------------------------------------------------------*
• & Include ZPARIPR_WMDB_CONF_O01
• &---------------------------------------------------------------------*
• Transport: DRUK978116
• &---------------------------------------------------------------------*
• & Module PBO_0400 OUTPUT
• &---------------------------------------------------------------------*
• ----------------------------------------------------------------------*

MODULE PBO_100 OUTPUT.

 SET PF-STATUS 'MAIN'.
 IF G_TREE IS INITIAL.
   " The Tree Control has not been created yet.
   " Create a Tree Control and insert nodes into it.
   PERFORM CREATE_AND_INIT_TREE.
 ENDIF.

ENDMODULE. " PBO_0100 OUTPUT

• • • INCLUDE ZPAIPR_WMDB_CONF_O01