IDENTIFICATION
DIVISION.
PROGRAM-ID. PAY-SLIP-PREPARATION.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL. |
| |
SELECT COMPANY ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL. |
DATA DIVISION.
FILE SECTION.
FD COMPANY |
| |
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID "SCOMP.DAT"
DATA RECORD IS COMP-REC. |
| 01 COMP-REC. |
| |
02 BNO PIC 9(4).
02 NAME PIC X(20).
02 SEX PIC X.
02 BPAY PIC 9(5).
02 DA PIC 9(4).
02 HRA PIC 9(4).
02 PF PIC 9(4). |
WORKING-STORAGE
SECTION.
01 CH PIC X(2).
01 CON PIC 9(2).
01 AL PIC 9(5).
01 NA PIC 9(6).
01 SP1 PIC X(80) VALUE SPACES.
01 SP PIC X(60) VALUE ALL "-".
PROCEDURE DIVISION.
OPEN1-PARA. |
| |
OPEN OUTPUT COMPANY. |
| HDO-PARA. |
| |
DISPLAY (1 1)ERASE.
DISPLAY (1 18) "ENTER XYZ COMPANY EMPFILE
DETAILES".
DISPLAY (2 18) "**********************************".
DISPLAY (3 1) SP1. |
| INS. |
|
| |
DISPLAY (4 1) ERASE.
DISPLAY (4 20) "INSERT MODULE".
DISPLAY (5 20) "*************".
DISPLAY " ".
DISPLAY "ENTER THE BADGE NO & NAME OF
THE NEW EMPLOYEE".
ACCEPT BNO.
ACCEPT NAME. |
| GEN-PARA. |
| |
DISPLAY "ENTER SEX "
ACCEPT SEX.
IF ( SEX = "M" ) OR ( SEX = "m"
) GO TO PAY-PARA
ELSE
IF ( SEX = "F" ) OR ( SEX = "f"
) GO TO PAY-PARA
ELSE
GO TO ERR-GEN. |
| ERR-GEN. |
| |
DISPLAY "ERROR IN GENDOR
ENTERING".
DISPLAY "Press any key to continue".
ACCEPT CH.
GO TO GEN-PARA. |
| PAY-PARA. |
| |
DISPLAY "ENTER BASIC PAY
, DA , HRA & PF".
ACCEPT BPAY.
ACCEPT DA.
ACCEPT HRA.
ACCEPT PF.
WRITE COMP-REC.
DISPLAY "DO YOU HAVE MORE RECORDS FOR ENTERING
(1 / 0 )".
ACCEPT CON.
IF CON = 1 GO TO INS.
CLOSE COMPANY. |
| OPEN2-PARA. |
| |
OPEN INPUT COMPANY. |
| PAYBILL. |
| |
DISPLAY (1 1) ERASE.
DISPLAY (2 20) "PAYBILL MODULE".
DISPLAY (3 20) "**************".
DISPLAY (4 2) "NO".
DISPLAY (4 6) "NAME".
DISPLAY (4 25) "BASICPAY".
DISPLAY (4 34) "ALLOWANCE".
DISPLAY (4 44) "DEDUCTION".
DISPLAY (4 54) "NET-PAY".
DISPLAY (5 1) SP.
DISPLAY (6 1) SP1. |
| CAL-PARA. |
| |
READ COMPANY RECORD AT END
GO TO CLOSE1-PARA.
COMPUTE AL = DA + HRA.
COMPUTE NA = BPAY + AL - PF .
DISPLAY BNO " " NAME " " BPAY
" " AL " " PF " "
NA.
GO TO CAL-PARA. |
| CLOSE1-PARA. |
| |
CLOSE COMPANY.
STOP RUN. |
