-
Notifications
You must be signed in to change notification settings - Fork 35
/
RENMPGM
26 lines (26 loc) · 947 Bytes
/
RENMPGM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
********************************************
* COBOL PROGRAM FOR RENAMES *
* DATE : 07.08.2020 *
* AUTHOR : VIJAY KUMAR *
********************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. RENGM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PAY-REC.
03 FIXED-PAY.
05 BASIC PIC 9(5) VALUE 10000.
05 DA PIC 9(5) VALUE 2000.
03 ADD-PAY.
05 HRA PIC 9(5) VALUE 1000.
05 SP PIC 9(5) VALUE 500.
03 DEDUCTION.
05 PF-DED PIC 9(5) VALUE 2000.
05 IT-DED PIC 9(5) VALUE 1000.
05 OTH-DED PIC 9(5) VALUE 500.
66 PAY-OTH-BASIC RENAMES DA THRU SP.
66 PF-AND-IT-DED RENAMES PF-DED THRU IT-DED.
PROCEDURE DIVISION.
DISPLAY PAY-OTH-BASIC.
DISPLAY PF-AND-IT-DED.
STOP RUN.