*&---------------------------------------------------------------------*
*& Report ZDINCLUDE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZDINCLUDE.
INCLUDE ZDINC.
START-OF-SELECTION.
WRITE :/ ' PINCODE VALUE IS ', PINCODE,
/ 'CITY NAME VALUE IS ', CNAME,
/ 'CITY TYPE VALUE IS ', CTYPE.
ULINE.
PERFORM SUB1.
*********************************
***************************************
*&---------------------------------------------------------------------*
*& Include ZDINC
*&---------------------------------------------------------------------*
DATA : PINCODE TYPE I VALUE 100001,
CNAME TYPE STRING VALUE 'NEW DELHI',
CTYPE TYPE STRING VALUE 'METRO'.
*&---------------------------------------------------------------------*
*& Form SUB1
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM sub1 .
PINCODE = 100002.
CNAME = 'NEW DELHI2'.
CTYPE = 'METRO2'.
WRITE :/ ' VALUE OF PINCODE IN SUB ROUTINE ', PINCODE,
/ ' VALUE OF CNAME IN SUB ROUTINE ', CNAME,
/ ' VALUE OF CTYPE IN SUB ROUTINE ', CTYPE.
ENDFORM.