|
Home
Source Codes
Engineering Colleges
Training Reports
Seminar Reports
Placement
Papers
Forums
Computer Science / IT
Electronics
Electrical
Mechanical
Chemical
Civil
CAT / MBA
GMAT / Foreign MBA
Latest Jobs
Engineering Jobs / Technical Jobs
Management Jobs
Sitemap
Terms of use
|
|
|
|
|
|
|
Displaying Source Code(s)
|
|
Task for the day program.
--------------------------------------------------------------------------------
Description : This project is used to assign tasks to resources
in a
company.
IDENTIFICATION DIVISION.
PROGRAM-ID. TASK.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT TASKFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
* SELECT REPORTFILE ASSIGN TO DISK
* ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD TASKFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "TASK.DAT".
01 F01-X-TASKREC.
03 F01-X-GENERAL PIC X(60).
03 F01-X-SPECIFIC PIC X(60).
03 F01-X-NAME PIC X(25).
03 F01-X-DAY PIC X(02).
03 F01-X-MONTH PIC X(02).
* FD REPORTFILE
* LABEL RECORDS ARE STANDARD
*5/17/2004 VALUE OF FILE-ID IS "TASKOUT.DAT".
01 F01-X-TASKOUT PIC X(300).
WORKING-STORAGE SECTION.
01 W01-X-DTE.
03 W01-X-DAY1 PIC X(02).
03 W01-X-MONTH1 PIC X(02).
01 W01-X-EOF PIC X(01)
VALUE "N".
01 W01-X-EOFSPE PIC X(01).
01 W01-X-EOFGEN PIC X(01).
01 W01-X-EOFNDP PIC X(01).
01 FLAG PIC X(01)
VALUE "Y".
01 W01-X-NAME PIC X(50).
01 W01-X-NAME1 PIC X(50).
01 W01-X-DATE.
03 W01-X-YEAR PIC X(02).
03 W01-X-MONTH PIC X(02).
03 W01-X-DAY PIC X(02).
01 W02-X-DATE.
03 W02-X-DAY PIC X(02).
03 W02-X-MONTH PIC X(02).
01 W01-X-CHOICE1 PIC 9(01).
01 W01-X-CHOICE2 PIC 9(01).
01 W01-X-CHOICE3 PIC X(01).
01 W01-X-CHOICE4 PIC 9(01).
01 W01-X-CHOICE5 PIC X(01).
01 W01-X-CH1 PIC 9(01).
01 W01-X-EOF PIC X(01).
01 W01-X-EOFPREGEN PIC X(01).
01 W01-X-EOFPRESPE PIC X(01).
01 W01-X-NME PIC X(50).
01 W01-X-TEMP1 PIC X(01).
01 W01-X-TEMP2 PIC X(01).
01 W01-X-TEMP3 PIC X(01).
01 W01-X-TEMP4 PIC X(01).
01 W01-X-TEMP5 PIC X(01).
01 W01-X-TEMP6 PIC X(01).
01 W01-X-TEMP7 PIC X(01).
01 W01-X-PASSWORD PIC X(10).
PROCEDURE DIVISION.
DISPLAY-PARA.
ACCEPT W01-X-DATE FROM DATE.
DISPLAY " MAIN MENU ".
DISPLAY " ---- ---- ".
DISPLAY "1.ASSIGN TASK 2.VIEW TASK ".
DISPLAY "3.VIEW PREVIOUS TASKS 4.EXIT ".
DISPLAY "ENTER YOUR CHOICE: "
ACCEPT W01-X-CHOICE1.
IF W01-X-CHOICE1 = 1
DISPLAY "ENTER YOUR PASSWORD."
ACCEPT W01-X-PASSWORD
IF W01-X-PASSWORD = "SATYAM"
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
DISPLAY " "
GO TO ASSIGNTASK-PARA
ELSE
DISPLAY "INVALIED PASSWORD."
GO TO DISPLAY-PARA
ELSE
IF W01-X-CHOICE1 = 2
GO TO VIEWTASK-PARA
ELSE
IF W01-X-CHOICE1 = 3
GO TO VIEWPREVIOUS-PARA
ELSE
IF W01-X-CHOICE1 = 4
STOP RUN
ELSE
DISPLAY "INVALIED OPTION! "
GO TO DISPLAY-PARA.
VIEWPREVIOUS-PARA.
DISPLAY " VIEW PREVIOUS TASKS MENU ".
DISPLAY " ---- -------- ----- ---- ".
DISPLAY "1.GENERAL TASK 2.SPECIFIC TASK 3.MAIN MENU".
ACCEPT W01-X-CH1.
IF W01-X-CH1 = 1
OPEN INPUT TASKFILE
DISPLAY "ENTER THE DATE(DDMM)"
ACCEPT W01-X-DTE
MOVE "N" TO W01-X-TEMP1
PERFORM READPREVIOUSGEN-PARA UNTIL W01-X-EOFPREGEN = "Y"
CLOSE TASKFILE
MOVE "N" TO W01-X-EOFPREGEN
GO TO VIEWPREVIOUS-PARA
ELSE
IF W01-X-CH1 = 2
OPEN INPUT TASKFILE
DISPLAY "ENTER DATE(DDMM)"
ACCEPT W01-X-DTE
DISPLAY "ENTER NAME"
ACCEPT W01-X-NME
MOVE "N" TO W01-X-TEMP2
PERFORM READPREVIOUSSPE-PARA UNTIL W01-X-EOFPRESPE = "Y"
CLOSE TASKFILE
MOVE "N" TO W01-X-EOFPRESPE
GO TO VIEWPREVIOUS-PARA
ELSE
IF W01-X-CH1 = 3
OPEN INPUT TASKFILE
CLOSE TASKFILE
GO TO DISPLAY-PARA
ELSE
DISPLAY "INVALIED OPTION!"
GO TO VIEWPREVIOUS-PARA.
READPREVIOUSGEN-PARA.
READ TASKFILE AT END MOVE "Y" TO W01-X-EOFPREGEN.
IF F01-X-NAME = "GENERAL" AND F01-X-DAY = W01-X-DAY1 AND
F01-X-MONTH = W01-X-MONTH1
DISPLAY F01-X-GENERAL
MOVE "Y" TO W01-X-TEMP1
ELSE
IF W01-X-EOFPREGEN = "Y" AND W01-X-TEMP1 NOT = "Y"
DISPLAY "NO SUCH ENTRY EXITS.".
READPREVIOUSSPE-PARA.
READ TASKFILE AT END MOVE "Y" TO W01-X-EOFPRESPE.
IF F01-X-NAME = W01-X-NME AND F01-X-DAY = W01-X-DAY1 AND
F01-X-MONTH = W01-X-MONTH1
DISPLAY F01-X-SPECIFIC
MOVE "Y" TO W01-X-TEMP2
ELSE
IF W01-X-EOFPRESPE = "Y" AND W01-X-TEMP2 = "Y"
DISPLAY "NO SUCH ENTRY EXITS.".
ASSIGNTASK-PARA.
IF FLAG = "Y"
DISPLAY "ENTER DATE FOR THIS TASK(DDMM)"
ACCEPT W02-X-DATE.
DISPLAY " ASSIGN TASKS MENU ".
DISPLAY " ------ ----- ---- ".
DISPLAY "1. GENERAL TASK 2. SPECIFIC TASK 3.MAIN MENU ".
DISPLAY "ENTER YOUR CHOICE".
ACCEPT W01-X-CHOICE2.
IF W01-X-CHOICE2 = 1
OPEN EXTEND TASKFILE
DISPLAY "ENTER THE GENERAL TASK"
PERFORM ACCEPTGENERAL-PARA UNTIL W01-X-CHOICE5 = "N"
OR W01-X-CHOICE5 = "n"
CLOSE TASKFILE
MOVE "N" TO FLAG
MOVE "Y" TO W01-X-CHOICE5
GO TO ASSIGNTASK-PARA
ELSE
IF W01-X-CHOICE2 = 2
OPEN EXTEND TASKFILE
MOVE W02-X-DAY TO F01-X-DAY
MOVE W02-X-MONTH TO F01-X-MONTH
MOVE SPACES TO F01-X-GENERAL
DISPLAY "ENTER ASSOCIATE NAME"
ACCEPT W01-X-NAME
DISPLAY "ENTER TASK FOR HIM/HER"
PERFORM ACCEPTTASKS-PARA UNTIL W01-X-CHOICE3 = "N"
OR W01-X-CHOICE3 = "n"
MOVE "Y" TO W01-X-CHOICE3
CLOSE TASKFILE
MOVE "N" TO FLAG
GO TO ASSIGNTASK-PARA
ELSE
IF W01-X-CHOICE2 = 3
GO TO DISPLAY-PARA.
ACCEPTGENERAL-PARA.
ACCEPT F01-X-GENERAL
MOVE "GENERAL" TO F01-X-NAME
MOVE W02-X-DAY TO F01-X-DAY
MOVE W02-X-MONTH TO F01-X-MONTH
MOVE SPACES TO F01-X-SPECIFIC
WRITE F01-X-TASKREC
DISPLAY "ONE MORE GENERALTASK? (Y/n)"
ACCEPT W01-X-CHOICE5.
ACCEPTTASKS-PARA.
IF W01-X-CHOICE3 NOT = "N" OR W01-X-CHOICE3 NOT = "n"
ACCEPT F01-X-SPECIFIC
MOVE W02-X-DAY TO F01-X-DAY
MOVE W02-X-MONTH TO F01-X-MONTH
MOVE SPACES TO F01-X-GENERAL
MOVE W01-X-NAME TO F01-X-NAME
WRITE F01-X-TASKREC
DISPLAY "ONE MORE SPECIFICTASK ?(Y/n)"
ACCEPT W01-X-CHOICE3.
VIEWTASK-PARA.
OPEN EXTEND TASKFILE.
CLOSE TASKFILE.
DISPLAY " VIEW TASKS MENU "
DISPLAY " ---- ----- ---- "
DISPLAY "1.GENERAL TASK 2.SPECIFIC TASK ".
DISPLAY "3.LIST 4.MAIN MENU ".
ACCEPT W01-X-CHOICE4.
IF W01-X-CHOICE4 = 1
OPEN INPUT TASKFILE
MOVE "N" TO W01-X-TEMP3
PERFORM READGENERAL-PARA UNTIL W01-X-EOFGEN = "Y"
CLOSE TASKFILE
MOVE "N" TO W01-X-EOFGEN
GO TO VIEWTASK-PARA
ELSE
IF W01-X-CHOICE4 = 2
OPEN INPUT TASKFILE
DISPLAY "ENTER YOUR NAME EXACTLY AS IT APPEARS IN THE LIST"
ACCEPT W01-X-NAME1
MOVE "N" TO W01-X-TEMP4
PERFORM READSPECIFIC-PARA UNTIL W01-X-EOFSPE = "Y"
CLOSE TASKFILE
MOVE "N" TO W01-X-TEMP4
MOVE "N" TO W01-X-EOFSPE
GO TO VIEWTASK-PARA
ELSE
IF W01-X-CHOICE4 = 4
MOVE "N" TO W01-X-TEMP4
MOVE "N" TO W01-X-TEMP3
GO TO DISPLAY-PARA
ELSE
IF W01-X-CHOICE4 = 3
OPEN INPUT TASKFILE
DISPLAY "TASKS ARE ASSIGNED FOR THE FOLLOWING:"
MOVE "N" TO W01-X-TEMP5
PERFORM NAMESDISPLAY-PARA UNTIL W01-X-EOFNDP = "Y"
CLOSE TASKFILE
MOVE "N" TO W01-X-EOFNDP
GO TO VIEWTASK-PARA
ELSE
DISPLAY "INVALIED INPUT REKEY."
GO TO DISPLAY-PARA.
READGENERAL-PARA.
READ TASKFILE AT END MOVE "Y" TO W01-X-EOFGEN.
IF F01-X-NAME = "GENERAL" AND F01-X-DAY = W01-X-DAY AND
F01-X-MONTH = W01-X-MONTH
DISPLAY F01-X-GENERAL
MOVE "Y" TO W01-X-TEMP3
ELSE
IF W01-X-EOFGEN = "Y" AND W01-X-TEMP3 NOT = "Y"
DISPLAY "NO SUCH ENTRY EXITS."
MOVE "N" TO W01-X-TEMP3.
READSPECIFIC-PARA.
READ TASKFILE AT END MOVE "Y" TO W01-X-EOFSPE.
IF F01-X-NAME = W01-X-NAME1 AND F01-X-DAY = W01-X-DAY AND
F01-X-MONTH = W01-X-MONTH
DISPLAY F01-X-SPECIFIC
MOVE "Y" TO W01-X-TEMP4
ELSE
IF W01-X-EOFSPE = "Y" AND W01-X-TEMP4 NOT = "Y"
DISPLAY "NO SUCH ENTRY EXITS."
MOVE "N" TO W01-X-TEMP4.
NAMESDISPLAY-PARA.
READ TASKFILE AT END MOVE "Y" TO W01-X-EOFNDP.
IF F01-X-DAY = W01-X-DAY AND F01-X-MONTH = W01-X-MONTH
AND F01-X-NAME NOT = "GENERAL"
DISPLAY F01-X-NAME
MOVE "Y" TO W01-X-TEMP5
ELSE
IF W01-X-EOFSPE = "Y" AND W01-X-TEMP5 NOT = "Y"
DISPLAY "NO ENTRYS EXIST."
MOVE "N" TO W01-X-TEMP5.
--------------------------------------------------------------------------------
|
|
|
|
|
| |
Contribute content or training
reports / feedback /
Comments
job placement
papers
All rights reserved © copyright
123ENG |
|
123
Eng