No Now

TASK1:(Need to know by Wednesday Afternoon)

1.NED BASICS

2.STAGING A PROGRAM

3.DELETING,MOVING,RETRIEVING ELEMENTS

4.COMPILING,BINDING COMPONENTS

TASK2:(FLAT-FILE)

1.Read one input file and write into Output as such(Need output by Thursday Morning)

TASK3:(FLAT_FILE CONDITION CHECK)

1.Read one Input File and if the 8th byte of file is "Y"

write into True file else into False file (Need it by Friday EOD)

TASK4:(COBOL-DB2 (low level))

1.Write a program to read input file having DPCI(Department,Class,Item) and find whether it is valid or not

TASK5:

1.Do code coverage for the task 2 (BY Tuesday EOD)

File-handling:- A534421.TASK.FILE(TASK2)

IDENTIFICATION DIVISION.

PROGRAM-ID. ita123

AUTHOR tcs

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

ASSIGN INFILE TO INFILE1

ORGANIZATION IS LINE SEQUENTIAL.

ASSIGN OUTFILE TO OUTFILE1.

:

DATA DIVISION.

FILE SECTION.

FD IN-FILE.

01 PRODUCT-DETAILS.

05 DEPT PIC X(20).

05 CLASS PIC 9(06).

05 ITEM PIC X(20).

FD OUTFILE.

01 OUT-REC PIC X(60).

WORKING-STORAGE SECTION.

01 EOF-FLAG PIC X.

88 END-OF-IN-FILE VALUE 'Y'.

01 PRD-STR-DETAILS

05 DPT PIC X(20.

05 CLAS PIC 9(6).

05 ITM PIC X(20).

:

PROCEDURE DIVISION.

0000-MAIN-PARA.

PERFORM 1000-INITIALIZATION-PARA THRU 1000-EXIT.

PERFORM 2000-PROCESS-PARA THRU 2000-EXIT.

PERFORM 4000-ICLOSE-PARA THRU 4000-EXIT.

0000-EXIT.

EXIT.

1000-INITIALIZATION-PARA

OPEN INPUT IN-FILE

READ IN-FILE

AT END MOVE 'Y' TO EOF-FLAG

END-READ

*Main reading loop

PERFORM UNTIL END-OF-IN-FILE

READ IN-FILE

AT END MOVE 'Y' TO EOF-FLAG

NOT AT END PERFORM OUTPUT-DETAILS

END-READ

END-PERFORM

STOP RUN.

PRINT-DETAILS.

MOVE DEPT TO DPT

MOVE CLASS TO CLAS

MOVE ITEM TO ITM

WRITE OUT-REC FROM PRD-STR-DETAILS.