Task for the day program. - COBOL Projects Source Code in COBOL

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

3575 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » COBOL Home » COBOL Projects Home » Task for the day program.

A D V E R T I S E M E N T

Title	Task for the day program.
Author	Rama Murthy M
Author Email	ramamurthy_m1 [at] rediffmail.com
Description	This project is used to assign tasks to resources in a company.
Category	COBOL » COBOL Projects
Hits	390758
Code	Select and Copy the Code
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.

Related Source Codes

Script Name Author

sandeep kumar singh

COBOL ON-SCREEN CALCULATOR (Mini Project) Stephen Rendell

Learn Cobol in a Day C.KUMARESAN

my atm (Mini Project) sandeep kumar singh

Merge Two Files. Rakshith

Naveen Chandran P.K

Program of USSR naval stock list Jai Ganesh

PRIME NUMBER Grace Hill

Date Difference in Mainframe COBOL Muruganandham

Sequential File - Health Care C.KUMARESAN

FIBONACCI series Abir Pathak

PRIME NUMBER Grace Hill

Harmonic Series Abir Pathak

Cobol sequential file program. b.s.prakash

Introduction to COBOL. B.S.prakash

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.