Re: banking project

SantoshKallem — Tue, 13 Mar 2007 17:10:39 GMT

i too practiced with bank proj, but it is long back.

this is the program i have..

go through it..

u will get an idea.

PROGRAM ZBANK_APPLI MESSAGE-ID ZBANK .

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

Program Name:
Author :
Transport Request no :
Request By :
Date :
Purpose:

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

Change Log

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

User | Date | Change Description *

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

Tables Declaration

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

TABLES :ZBANK1 , " BANK DETAILS

ZDETAILS . " CUSTOMER DETAILS

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

Internal Tables

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

Internal table to hold BANK Information

DATA: F1(14) ,

F2(14),

FDATE TYPE D,

TDATE TYPE D.

DATA: IT_BANK LIKE STANDARD TABLE OF ZBANK1 WITH HEADER LINE.

DATA: IT_DETAILS LIKE STANDARD TABLE OF ZDETAILS WITH HEADER LINE.

data: it_bal type standard table of zbank1 with header line.

DATA : BALANCE(10) TYPE N.

DATA : V_FLAG(4) TYPE C.

DATA : V_SAC(9) TYPE C,

V_ACCNO(12) TYPE C.

DATA : DATE(10) TYPE C.

DATA: AC(6) TYPE C VALUE 1000.

DATA : IND TYPE C.

CONSTANTS : V_BANKS(6) TYPE C VALUE 'S10071',

V_BANKC(6) TYPE C VALUE 'C10071'.

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'LOGIN'.

IF F1 = ' ' AND F2 = ' '.

CALL SCREEN 200.

ENDIF.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module USER_COMMAND_0200 INPUT

&----

text

----

MODULE USER_COMMAND_0200 INPUT.

CASE SY-UCOMM.

WHEN 'CSAC'.

CALL SCREEN 300.

WHEN 'CCAC'.

CALL SCREEN 300.

WHEN 'MODI'.

CALL SCREEN 400.

WHEN 'DEBIT'.

v_flag = 'D'.

clear it_bank.

clear balance.

CALL SCREEN 500.

WHEN 'CREDIT'.

v_flag = 'C'.

clear it_bank.

clear balance.

CALL SCREEN 500.

WHEN 'REPO'.

SUBMIT ZBANK_REPORT VIA SELECTION-SCREEN AND RETURN.

CALL SCREEN 700.

when 'BACK'.

CALL SCREEN 100.

ENDCASE.

ENDMODULE. " USER_COMMAND_0200 INPUT

&----

*& Module USER_COMMAND_0300 INPUT

&----

text

----

MODULE USER_COMMAND_0300 INPUT.

SET PF-STATUS 'ZBANK'.

CASE SY-UCOMM.

WHEN 'BACK'.

CALL SCREEN 200.

WHEN 'SAVE'.

ZDETAILS = IT_DETAILS.

INSERT ZDETAILS.

IF SY-SUBRC = 0.

IT_BANK-ACCTNO = IT_DETAILS-ACCTNO .

ZBANK1 = IT_BANK.

insert zbank1.

IF SY-SUBRC = 0.

MESSAGE I002 WITH 'RECORD CREATED SUCCESSFULLY' ZDETAILS-ACCTNO.

ELSE.

MESSAGE I002 WITH 'RECORD NOT INSERTED'.

endif.

ENDIF.

ENDCASE.

ENDMODULE. " USER_COMMAND_0300 INPUT

&----

*& Module STATUS_0200 OUTPUT

&----

text

----

MODULE STATUS_0200 OUTPUT.

SET PF-STATUS 'ZBANK'.

*SET PF-STATUS 'ZBANK'.

SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0200 OUTPUT

&----

*& Module USER_COMMAND_0400 INPUT

&----

text

----

MODULE USER_COMMAND_0400 INPUT.

CASE SY-UCOMM.

when 'SAVE'.

ZDETAILS = IT_DETAILS.

MODIFY ZDETAILS.

IF SY-SUBRC EQ 0.

MESSAGE I002 WITH 'RECORD MODIFIED SUCCESFULLY' ZDETAILS-ACCTNO.

ELSE.

MESSAGE I002 WITH 'RECORD NOT MODIFIED ' ZDETAILS-ACCTNO.

ENDIF.

WHEN 'BACK'.

CALL SCREEN 200.

WHEN 'DISP'.

CALL SCREEN 800.

ENDCASE.

ENDMODULE. " USER_COMMAND_0400 INPUT

&----

*& Module USER_COMMAND_0500 INPUT

&----

text

----

MODULE USER_COMMAND_0500 INPUT.

DATA : V_LIN(10) TYPE C.

CASE SY-UCOMM.

WHEN 'UPDA'.

ZBANK1 = IT_BANK.

INSERT ZBANK1.

IF SY-SUBRC = 0.

MESSAGE I002 WITH 'RECORD UPDATE SUCESSFULY' ZBANK1-ACCTNO.

ELSE.

MESSAGE I002 WITH 'RECORD NOT UPDATED' ZBANK1-ACCTNO.

ENDIF.

WHEN 'DISPLAY'.

SELECT AMOUNT IND

FROM ZBANK1

INTO TABLE IT_BANK

WHERE ACCTNO = IT_BANK-ACCTNO

AND IND = 'D' .

DESCRIBE TABLE IT_BANK LINES V_LIN.

READ TABLE IT_BANK INDEX V_LIN.

WRITE IT_BANK-AMOUNT TO BALANCE.

WHEN 'BACK'.

CALL SCREEN 200.

ENDCASE.

ENDMODULE. " USER_COMMAND_0500 INPUT

&----

*& Module STATUS_0300 OUTPUT

&----

text

----

MODULE STATUS_0300 OUTPUT.

SET PF-STATUS 'ZBANK'.

DATA : V_LINES(10) TYPE C,

V_LINE(12) TYPE C,

V_ACCNO1(12) TYPE C.

CLEAR IT_DETAILS.

CASE SY-UCOMM.

WHEN 'CSAC'.

V_FLAG = 'S'.

CLEAR IT_DETAILS.

SELECT acctno

FROM ZDETAILS

INTO TABLE IT_DETAILS

WHERE ACCTNO LIKE 'S%'.

IF SY-SUBRC = 0.

SORT IT_DETAILS BY ACCTNO.

DESCRIBE TABLE IT_DETAILS LINES V_LINES.

READ TABLE IT_DETAILS INDEX V_LINES.

v_accno = IT_DETAILS-ACCTNO+6(4).

V_ACCNO = v_accno + 1.

condense v_accno.

CONCATENATE V_BANKS V_ACCNO INTO V_ACCNO.

condense v_accno.

clear IT_DETAILS.

refresh IT_DETAILS.

IT_DETAILS-ACCTNO = V_ACCNO.

DATE = SY-DATUM.

IT_DETAILS-DATE1 = DATE.

write DATE to IT_DETAILS-DATE1.

ELSE.

V_ACCNO = 1000.

V_ACCNO = v_accno + 1.

condense v_accno.

CONCATENATE V_BANKS V_ACCNO INTO V_ACCNO.

condense v_accno.

IT_DETAILS-ACCTNO = V_ACCNO.

ENDIF.

WHEN 'CCAC'.

SELECT acctno

FROM ZDETAILS

INTO TABLE IT_DETAILS

WHERE ACCTNO LIKE 'C%'.

IF SY-SUBRC = 0.

SORT IT_DETAILS BY ACCTNO.

DESCRIBE TABLE IT_DETAILS LINES V_LINES.

READ TABLE IT_DETAILS INDEX V_LINES.

v_accno = IT_DETAILS-ACCTNO+6(4).

V_ACCNO = v_accno + 1.

condense v_accno.

CONCATENATE V_BANKC V_ACCNO INTO V_ACCNO.

condense v_accno.

clear IT_DETAILS.

refresh IT_DETAILS.

DATE = SY-DATUM.

IT_DETAILS-DATE1 = DATE.

write DATE to IT_DETAILS-DATE1.

IT_DETAILS-ACCTNO = V_ACCNO.

ELSE.

V_ACCNO = 1000.

V_ACCNO = v_accno + 1.

condense v_accno.

CONCATENATE V_BANKC V_ACCNO INTO V_ACCNO.

condense v_accno.

ENDIF.

IT_DETAILS-ACCTNO = V_ACCNO.

ENDCASE.

ENDMODULE. " STATUS_0300 OUTPUT

&----

*& Module STATUS_0400 OUTPUT

&----

text

----

MODULE STATUS_0400 OUTPUT.

clear it_details.

DATE = SY-DATUM.

IT_DETAILS-DATE1 = DATE.

write DATE to it_details-date1.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0400 OUTPUT

&----

*& Module STATUS_0500 OUTPUT

&----

text

----

MODULE STATUS_0500 OUTPUT.

SET PF-STATUS 'ZBANK'.

DATA : V_LLINES(6) TYPE C,

V_TRANSACTION(6) TYPE C.

SELECT TRANSACTIONNO FROM ZBANK1 INTO TABLE IT_BANK.

IF SY-SUBRC = 0.

SORT IT_BANK BY TRANSACTIONNO.
DESCRIBE TABLE IT_BANK LINES V_LLINES.
READ TABLE IT_BANK INDEX V_LLINES.

V_TRANSACTION = V_LLINES + 1.

clear IT_BANK.
refresh IT_BANK.

IT_BANK-TRANSACTIONNO = V_TRANSACTION.

ELSE.

CLEAR IT_BANK.

V_TRANSACTION = 0.
V_TRANSACTION = V_TRANSACTION + 1.

IT_BANK-TRANSACTIONNO = V_TRANSACTION.

ENDIF.

DATE = SY-DATUM.
IT_BANK-DATE1 = DATE.
write DATE to IT_BANK-DATE1.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0500 OUTPUT

&----

*& Module USER_COMMAND_0700 INPUT

&----

text

----

MODULE USER_COMMAND_0700 INPUT.

SET PF-STATUS 'ZBANK'.

CASE SY-UCOMM.

WHEN 'BACK'.

LEAVE TO SCREEN 0 .

WHEN 'REPO'.
SUBMIT ZBANKAPPLI VIA SELECTION-SCREEN AND RETURN.

ENDCASE.

ENDMODULE. " USER_COMMAND_0700 INPUT

&----

*& Module USER_COMMAND_0800 INPUT

&----

text

----

MODULE USER_COMMAND_0800 INPUT.

CASE SY-UCOMM.

WHEN 'DISP'.

SELECT * FROM

ZDETAILS

INTO table IT_DETAILS

WHERE ACCTNO = IT_DETAILS-ACCTNO.

if sy-subrc = 0.

read table it_details index 1.

endif.

APPEND IT_DETAILS.
ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0800 INPUT

&----

*& Module STATUS_0800 OUTPUT

&----

text

----

MODULE STATUS_0800 OUTPUT.

SET PF-STATUS 'ZBANK'.

CASE SY-UCOMM.

WHEN 'BACK'.

CALL SCREEN 400.

ENDCASE.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0800 OUTPUT

&----

*& Module STATUS_0900 OUTPUT

&----

text

----

MODULE STATUS_0900 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0900 OUTPUT

&----

*& Module hide_buttons OUTPUT

&----

text

----

MODULE hide_buttons OUTPUT.

loop at screen.

IF V_FLAG = 'D'.

IND = 'D'.

WRITE IND TO IT_BANK-IND.

IF SCREEN-GROUP1 = '111'.

screen-invisible = '1'.

MODIFY SCREEN.

endif.

if V_FLAG = 'C'.

IND = 'c'.

WRITE IND TO IT_BANK-IND.

IF SCREEN-GROUP1 = '222'.

screen-invisible = '1'.

MODIFY SCREEN.

endif.

endloop.

ENDMODULE. " hide_buttons OUTPUT

&----

*& Module test INPUT

&----

text

----

MODULE test INPUT.

CASE SY-UCOMM.

WHEN 'BACK'.

LEAVE TO SCREEN 200.

ENDCASE.

ENDMODULE. " test INPUT

&----

*& Module TEST1 INPUT

&----

text

----

MODULE TEST1 INPUT.

CASE SY-UCOMM.

WHEN 'BACK'.

LEAVE TO SCREEN 200.

ENDCASE.

ENDMODULE. " TEST1 INPUT

&----

*& Module display_balance OUTPUT

&----

text

----

MODULE display_balance OUTPUT.

if not it_bank-acctno is initial.

select *

from zbank1

into table it_bal

where acctno = it_bank-acctno.

if sy-subrc = 0.

clear balance.

loop at it_bal.

if it_bal-ind = 'D'.

balance = balance + it_bal-amount.

elseif it_bal-ind = 'C'.

balance = balance - it_bal-amount.

endif.

endloop.

endif.

ENDMODULE. " display_balance OUTPUT

<b> reward if useful </b>

topic Re: banking project in Application Development and Automation Discussions

banking project

Re: banking project

Re: banking project

Re: banking project