External Perform In SCRIPTs/ Adding Additional Fields to the Standard Form

/: PERFORM DATE IN PROGRAM ZDATE
/: USING &DATE1&
/: USING &DATE21&
/: CHANGING &YEAR&
/: CHANGING &MONTH&
/: CHANGING &DATE&
/: ENDPERFORM




IN PROGRAM ZDATE,


FORM DATE TABLES INTAB STRUCTURE ITCSY
OUTAB STRUCTURE ITCSY.

DATA: L_DATE_1 TYPE SY-DATUM,
L_DATE_2 TYPE SY-DATUM.
DATA: L_YEAR(2),
L_MONTH(2),
L_DATE(2).

READ TABLE INTAB WITH KEY NAME = 'DATE1'.
IF SY-SUBRC = 0.
L_DATE_1 = INTAB-VALUE.
ENDIF.

READ TABLE INTAB WITH KEY NAME = 'DATE2'.
IF SY-SUBRC = 0.
L_DATE_2 = INTAB-VALUE.
ENDIF.

CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
EXPORTING
BEG_DA = L_DATE_1
END_DA = L_DATE_2
IMPORTING
NO_YEAR = L_YEAR
NO_MONTH = L_MONTH
NO_DAY = L_DAY
* NO_CAL_DAY = CAL_DAY.

CLEAR OUTTAB.
READ TABLE OUTAB WITH KEY NAME = 'YEAR'.
IF SY-SUBRC = 0.
OUTAB-VALUE = L_YEAR.
MODIFY OUTAB INDEX SY-TABIX.
ENDIF.

'.
IF SY-SUBRC = 0.
OUTAB-VALUE = L_MONTH.
MODIFY OUTAB INDEX SY-TABIX.
ENDIF.

READ TABLE OUTAB WITH KEY NAME = 'DATE'.
IF SY-SUBRC = 0.
OUTAB-VALUE = L_DATE.
MODIFY OUTAB INDEX SY-TABIX.
ENDIF.

*****************************************************************

FORM INCR_NUM TABLES INTAB STRUCTURE ITCSY
OUTAB STRUCTURE ITCSY.

DATA: V_DATE LIKE SY-DATUM , V_CHAR(10) TYPE C.
READ TABLE OUTAB WITH KEY NAME = 'GV'.
IF SY-SUBRC = 0.
V_DATE = SY-DATUM + 1.
CONCATENATE V_DATE+4(2) V_DATE+6(2) V_DATE+0(4) INTO V_CHAR
SEPARATED BY '.'.
OUTAB-VALUE = V_CHAR.
CONDENSE OUTAB-VALUE.
MODIFY OUTAB INDEX SY-TABIX.
ENDIF.
ENDFORM.


write these lines in your script.

/: DEFINE &AB& TYPE I,
/: &GV&
/: &AB& = 1
/: PERFORM INCR_NUM IN PROGRAM ZTESTPDF
/: USING &AB&
/: CHANGING &GV&
/: TABLES INPUT_TABLE
/: OUTPUT_TABLE
/: ENDPERFORM