Cobol Tutor

Program to print numbers format using cobol

2011-12-26T08:37:00.001-08:00

IDENTIFICATION DIVISION.

PROGRAM-ID.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 N PIC 9(2).

77 I PIC 9(2).

77 R PIC 9(2).

77 J PIC 9(2).

77 K PIC 9(2).

77 S PIC 9(2) VALUE 1.

77 P PIC Z(2).

PROCEDURE DIVISION.

MAIN-PARA.

DISPLAY " ENTER N VALUE ".

ACCEPT N.

DISPLAY (1 , 1) ERASE.

MOVE 1 TO COL.

PERFORM X-PARA VARYING I FROM 1 BY 1 UNTIL I > N.

STOP RUN.

X-PARA.

COMPUTE R = 40 - 3 * I.

MOVE I TO LIN.

PERFORM B-PARA R TIMES.

MOVE R TO COL.

PERFORM Y-PARA VARYING J FROM 1 BY 1 UNTIL J > I.

B-PARA.

COMPUTE COL = COL + 1.

Y-PARA.

IF (J = 0 OR I = 0)

MOVE 1 TO S

ELSE

COMPUTE S = S * (I - J + 1) / J

MOVE S TO P

DISPLAY (LIN , COL) P.

COMPUTE COL = COL + 1.

Program to eliminate the duplicate records from a file in cobol

2011-12-26T08:35:00.000-08:00

Program to eliminate the duplicate records from a file in cobol

IDENTIFICATION DIVISION.

PROGRAM-ID.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT DATAFILE ASSIGN TO DISK

ORGANIZATION IS LINE SEQUENTIAL.

SELECT SORTFILE ASSIGN TO DISK

ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.

FILE SECTION.

FD DATAFILE

LABEL RECORDS ARE STANDARD

VALUE OF FILE-ID IS "SORT.DAT".

01 SORTING.

02 F PIC X(5).

02 NAM PIC X(10).

02 F PIC X(5).

02 SNO PIC 9(3).

FD SORTFILE

LABEL RECORDS ARE STANDARD

VALUE OF FILE-ID IS "SORT1.DAT".

01 SORTS.

02 F PIC X(5).

02 SNAM PIC X(10).

02 F PIC X(5).

02 SSNO PIC 9(3).

WORKING-STORAGE SECTION.

77 EOF PIC A.

PROCEDURE DIVISION.

MAIN-PARA.

OPEN EXTEND DATAFILE.

DISPLAY "DO YOU WANT TO INSERT THE RECORD(Y/N)".

ACCEPT EOF.

PERFORM X-PARA UNTIL EOF = "N".

CLOSE DATAFILE.

MOVE "Y" TO EOF.

OPEN INPUT DATAFILE.

OPEN OUTPUT SORTFILE.

PERFORM Y-PARA UNTIL EOF = "N".

CLOSE DATAFILE.

STOP RUN.

X-PARA.

DISPLAY (1 , 1) ERASE.

DISPLAY "ENTER THE STUDENT NAME".

ACCEPT NAM.

DISPLAY "ENTER THE ROLLNO".

ACCEPT SNO.

DISPLAY "DO YOU WANT TO CONTINUE(Y/N)?".

ACCEPT EOF.

Y-PARA.

READ DATAFILE RECORD AT END MOVE "N" TO EOF.

IF (EOF NOT = "N")

Employe Data Manager Project in COBOL

2011-12-26T08:33:00.000-08:00

Employe Data Manager Project in COBOL

Helpful for all programmers submitting their academic project in COBOL.

IDENTIFICATION DIVISION.
PROGRAM-ID. ASE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL
SELECT DEPFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS IS ST1.
SELECT DTMPFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT EMPFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS IS ST2.
SELECT ETMPFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD DEPFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "DEP.DAT".
01 DEP.
02 DNO PIC 9(3).
02 DNAME PIC A(10).
02 DLOC PIC X(10).
FD DTMPFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "DTMP.DAT".
01 DTMP.
02 DNO1 PIC 9(3).
02 DNAME1 PIC A(10).
02 DLOC1 PIC X(10).
FD EMPFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "EMP.DAT".
01 EMP.
02 ENO PIC 9(3).
02 ENAME PIC A(10).
02 SAL PIC 9(6).
02 HRA PIC 9(6)V9(2).
02 DA PIC 9(6)V9(2).
02 GROS PIC 9(7)V9(2).
02 ADD1 PIC X(10).
02 ADD2 PIC X(10).
02 ADD3 PIC X(10).
02 PNO PIC 9(6).
02 DES PIC A(9).
02 DNUM PIC 9(3).
02 DNAM PIC A(10).
FD ETMPFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "ETMP.DAT".
01 ETMP.
02 ENO1 PIC 9(3).
02 ENAME1 PIC A(10).
02 SAL1 PIC 9(6).
02 HRA1 PIC 9(6)V9(2).
02 DA1 PIC 9(6)V9(2).
02 GROS1 PIC 9(7)V9(2).
02 ADD11 PIC X(10).
02 ADD21 PIC X(10).
02 ADD31 PIC X(10).
02 PNO1 PIC 9(6).
02 DES1 PIC A(9).
02 DNUM1 PIC 9(3).
02 DNAM1 PIC A(10).
WORKING-STORAGE SECTION.
77 ESC PIC 9(2).
77 NUM PIC 9.
77 EOF PIC A.
77 EOF1 PIC A.
77 X PIC A .
77 Y PIC A .
77 N3 PIC 9(3) VALUE 1.
77 S PIC 9(3).
77 S3 PIC Z(7).9(2).
77 S1 PIC 9(3).
77 NAME PIC A(10).
77 S2 PIC Z(6).
77 ST1 PIC X(2).
77 ST2 PIC X(2).
01 DD.
02 YER1 PIC 9(2).
02 MON1 PIC 9(2).
02 DAY1 PIC 9(2).
01 DD1.
02 DAY1 PIC 9(2).
02 F PIC X VALUE "-".
02 MON1 PIC 9(2).
02 F PIC X VALUE "-".
02 YER1 PIC 9(2).
01 BAR.
02 F PIC X(80) VALUE ALL "=".
SCREEN SECTION.
PROCEDURE DIVISION.
PARA.
ACCEPT DD FROM DATE.
MOVE CORR DD TO DD1.
PERFORM PARA-34.
DISPLAY ( 8 , 26 ) " MAIN MENU " .
DISPLAY ( 9 , 26 ) " ----------- ".
DISPLAY ( 11 , 26 ) "DEPARTMENT DETAILS : 1".
DISPLAY ( 13 , 26 ) "EMPLOYEE DETAILS : 2".
DISPLAY ( 15 , 26 ) "HELP MENU : 3".
DISPLAY ( 17 , 26 ) "EXIT APPLICATION : 4".
DISPLAY ( 19 , 26 ) "ENTER YOUR CHOICE[1/2/3]: ".
MOVE 19 TO LIN.
MOVE 52 TO COL.
MOVE 7 TO NUM.
PERFORM PARA-35 UNTIL NUM NOT< 0 AND NUM < 5. ACCEPT ESC FROM ESCAPE KEY. GO TO PARA-31 PARA-40 PARA-0 PARA-9 PARA-21 PARA-2 PARA-1 PARA-22 PARA-24 PARA-26 PARA-10 DEPENDING ON ESC. IF NUM = 0 GO TO PARA. GO TO PARA-0 PARA-9 PARA-40 PARA-31 DEPENDING ON NUM. PARA-35. DISPLAY ( LIN , COL ) " ". ACCEPT( LIN , COL ) NUM WITH AUTO-SKIP. PARA-34. DISPLAY ( 1 , 1 ) ERASE. DISPLAY ( 1 , 1 ) BAR. DISPLAY ( 2 , 3 ) "F1-HELP F2-DEP " "F3-EMP F4-VIEW F5-VIEWDEP F6-ADDDEP ". DISPLAY ( 3 , 3 ) "F7-VIEWEACHEMP F8-VIEWDEPEMP " "F9-VIEWALLEMP F10-ADDEMP ESC-EXIT" . DISPLAY ( 4 , 1 ) BAR. DISPLAY ( 22 , 72 ) DD1. DISPLAY ( 23 , 72 ) "--------". PARA-0. PERFORM PARA-34. DISPLAY ( 7 , 27 ) " DEPARTMENT SUB-MENU ". DISPLAY ( 8 , 27 ) " ---------------------". DISPLAY ( 10 , 27 ) "ADD DEPARTMENT DETAILS : 1". DISPLAY ( 12 , 27 ) "VIEW DEPARTMENT DETAILS : 2". DISPLAY ( 14 , 27 ) "DELETE DEPARTMENT DETAILS : 3". DISPLAY ( 16 , 27 ) "EXIT TO MAIN MENU : 4". DISPLAY ( 18 , 27 ) "ENTER YOUR CHOICE[1/2/3/4]: ". MOVE 18 TO LIN. MOVE 55 TO COL. MOVE 7 TO NUM . PERFORM PARA-35 UNTIL NUM NOT< 0 AND NUM < 5. ACCEPT ESC FROM ESCAPE KEY. GO TO PARA-31 PARA-40 PARA-0 PARA-9 PARA-21 PARA-2 PARA-1 PARA-22 PARA-24 PARA-26 PARA-10 DEPENDING ON ESC. IF NUM = 0 GO TO PARA-0. GO TO PARA-1 PARA-2 PARA-4 PARA DEPENDING ON NUM. PARA-1. MOVE "Y" TO EOF. MOVE 1 TO N3. OPEN INPUT DEPFILE. IF ST1 NOT= "30" PERFORM PARA-8 UNTIL EOF = "E". CLOSE DEPFILE. PERFORM PARA-7. MOVE N3 TO DNO1. DISPLAY ( 7 , 25 ) DNO1 . ACCEPT ( 7 , 55 ) DNAME1 WITH PROMPT EMPTY-CHECK. ACCEPT ( 10 , 25 ) DLOC1 WITH PROMPT EMPTY-CHECK. MOVE "Z" TO X. MOVE 23 TO LIN. MOVE 25 TO COL. PERFORM PARA-36 UNTIL X = "Y" OR X = "N". IF ( X = "Y" ) OPEN EXTEND DEPFILE WRITE DEP FROM DTMP CLOSE DEPFILE. MOVE "Z" TO X. MOVE 23 TO LIN. MOVE 55 TO COL. PERFORM PARA-36 UNTIL X = "Y" OR X = "N". IF ( X = "Y") GO TO PARA-1. GO TO PARA-0. PARA-36. ACCEPT ( LIN , COL ) X WITH AUTO-SKIP. IF ( X = "y") MOVE "Y" TO X. IF ( X = "n") MOVE "N" TO X. IF ( X NOT= "Y" AND X NOT= "N" ) DISPLAY ( LIN , COL ) " ". PARA-8. READ DEPFILE AT END MOVE "E" TO EOF. IF ( EOF NOT= "E" ) COMPUTE N3 = N3 + 1. PARA-2. PERFORM PARA-7. DISPLAY ( 23 , 5 ) " ". OPEN INPUT DEPFILE. MOVE "Y" TO EOF. ACCEPT ( 7 , 25 ) S WITH PROMPT EMPTY-CHECK. IF ST1 NOT= "30" PERFORM PARA-3 UNTIL EOF = "E" ELSE DISPLAY ( 1 , 1 ) ERASE DISPLAY ( 10 , 25 ) "DEPARTMENTS ARE NOT PRESENT" "..[OK]" ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP CLOSE DEPFILE GO TO PARA-0. CLOSE DEPFILE. IF ( X = "Y" ) GO TO PARA-2 ELSE GO TO PARA-0. PARA-3. READ DEPFILE RECORD AT END MOVE "E" TO EOF. IF ( EOF NOT= "E") IF ( DNO = S) DISPLAY ( 7 , 55 ) DNAME DISPLAY ( 10 , 25 ) DLOC MOVE "Z" TO X MOVE 23 TO LIN MOVE 55 TO COL PERFORM PARA-36 UNTIL X = "Y" OR X = "N" MOVE "E" TO EOF ELSE NEXT SENTENCE ELSE DISPLAY ( 1 , 1 ) ERASE DISPLAY ( 12 , 20 )" NO SUCH NUMBER EXISTS [OK] :" DISPLAY ( 23 , 60 ) " CONTINUE[Y/N] :" MOVE "Z" TO X MOVE 23 TO LIN MOVE 77 TO COL PERFORM PARA-36 UNTIL X = "Y" OR X = "N". PARA-4. PERFORM PARA-7. ACCEPT ( 7 , 25 ) S WITH PROMPT EMPTY-CHECK. OPEN INPUT DEPFILE. OPEN OUTPUT DTMPFILE. MOVE "Y" TO EOF. MOVE 1 TO N3. IF ST1 NOT= "30" PERFORM PARA-5 UNTIL EOF = "E" ELSE DISPLAY ( 1 , 1 ) ERASE DISPLAY ( 10 , 25 ) "DEPARTMENTS ARE NOT PRESENT" "..[OK]" ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP CLOSE DEPFILE DTMPFILE GO TO PARA-0. PERFORM PARA-5 UNTIL EOF = "E". CLOSE DTMPFILE , DEPFILE. OPEN INPUT DTMPFILE. OPEN OUTPUT DEPFILE. MOVE "Y" TO EOF. MOVE 0 TO N3. PERFORM PARA-6 UNTIL EOF = "E". CLOSE DTMPFILE , DEPFILE. IF ( X = "Y" ) OPEN INPUT ETMPFILE OPEN OUTPUT EMPFILE MOVE "Y" TO EOF PERFORM PARA-20 UNTIL EOF = "E" CLOSE EMPFILE , ETMPFILE. MOVE "Z" TO X. MOVE 23 TO LIN. MOVE 55 TO COL. PERFORM PARA-36 UNTIL X = "Y" OR X = "N". IF ( X = "Y") GO TO PARA-4. GO TO PARA-0. PARA-20. READ ETMPFILE AT END MOVE "E" TO EOF. IF ( EOF NOT= "E" ) WRITE EMP FROM ETMP. PARA-5. READ DEPFILE RECORD AT END MOVE "E" TO EOF. IF ( EOF NOT= "E") IF ( DNO = S) DISPLAY ( 7 , 55 ) DNAME DISPLAY ( 10 , 25 ) DLOC MOVE "Z" TO X MOVE 23 TO LIN MOVE 25 TO COL PERFORM PARA-36 UNTIL X = "Y" OR X = "N" COMPUTE N3 = 0 IF ( X NOT= "Y" ) WRITE DTMP FROM DEP ELSE MOVE "Y" TO EOF1 OPEN INPUT EMPFILE OPEN OUTPUT ETMPFILE COMPUTE S1 = 0 PERFORM PARA-19 UNTIL EOF1 = "E" CLOSE EMPFILE , ETMPFILE ELSE WRITE DTMP FROM DEP. IF ( EOF = "E" AND N3 NOT=0 ) DISPLAY ( 1 , 1 ) ERASE DISPLAY ( 12 , 20 )" NO SUCH NUMBER EXISTS [OK] :" DISPLAY ( 23 , 37 ) " CONTINUE[Y/N] :" COMPUTE N3 = N3 + 1. PARA-19. READ EMPFILE AT END MOVE "E" TO EOF1. IF ( EOF1 NOT= "E" ) IF ( DNO NOT= DNUM ) COMPUTE S1 = S1 + 1 MOVE S1 TO ENO IF ( DNO > DNUM )
WRITE ETMP FROM EMP
ELSE
COMPUTE DNUM = DNUM - 1
WRITE ETMP FROM EMP.
PARA-6.
READ DTMPFILE AT END MOVE "E" TO EOF.
COMPUTE DNO1 , N3 = N3 + 1.
IF ( EOF NOT= "E" )
WRITE DEP FROM DTMP.
PARA-7.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 4 , 31 ) "DEPARTMENT DETAILS".
DISPLAY ( 5 , 31 ) "------------------".
DISPLAY ( 7 , 5 ) "Department Number :".
DISPLAY ( 10 , 5 ) "Location :".
DISPLAY ( 7 , 35 ) "Department name :".
DISPLAY ( 23 , 5 ) "Confirm[Y/N] :".
DISPLAY ( 23 , 35 ) "Continue[Y/N] :".
PARA-9.
PERFORM PARA-34.
DISPLAY ( 7 , 25 ) " EMPLOYEE SUB-MENU".
DISPLAY ( 8 , 25 ) " -------------------".
DISPLAY ( 10 , 25 ) "ADD EMPLOYEE DETAILS : 1".
DISPLAY ( 12 , 25 ) "MODIFY EMPLOYEE DETAILS : 2".
DISPLAY ( 14 , 25 ) "VIEW EMPLOYEE DETAILS : 3".
DISPLAY ( 16 , 25 ) "DELETE EMPLOYEE DETAILS : 4".
DISPLAY ( 18 , 25 ) "EXIT TO MAIN MENU : 5".
DISPLAY ( 20 , 25 ) "ENTER YOUR CHOICE[1/2/3/4/5] : " .
MOVE 20 TO LIN.
MOVE 56 TO COL.
MOVE 7 TO NUM.
PERFORM PARA-35 UNTIL NUM NOT< 0 AND NUM < 6. ACCEPT ESC FROM ESCAPE KEY. GO TO PARA-31 PARA-40 PARA-0 PARA-9 PARA-21 PARA-2 PARA-1 PARA-22 PARA-24 PARA-26 PARA-10 DEPENDING ON ESC. IF NUM = 0 GO TO PARA-9. GO TO PARA-10 PARA-15 PARA-21 PARA-28 PARA DEPENDING ON NUM. PARA-10. MOVE "Y" TO EOF. MOVE 1 TO N3. OPEN INPUT DEPFILE. IF ST1 = "30" CLOSE DEPFILE DISPLAY ( 1 , 1 ) ERASE DISPLAY ( 10 , 25 ) " DEPARTMENTS ARE NOT PRESENT" "..[OK]" ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP GO TO PARA-9. CLOSE DEPFILE. OPEN INPUT EMPFILE. IF ST2 NOT= "30" PERFORM PARA-11 UNTIL EOF = "E". CLOSE EMPFILE. PERFORM PARA-12. MOVE N3 TO ENO1. DISPLAY ( 7 , 22 ) ENO1. ACCEPT ( 9 , 22 ) ENAME1 WITH PROMPT EMPTY-CHECK. DISPLAY ( 12 , 22 )"..........". DISPLAY ( 13 , 22 )"..........". ACCEPT ( 11 , 22 ) ADD11 WITH PROMPT EMPTY-CHECK AUTO-SKIP. ACCEPT ( 12 , 22 ) ADD21 WITH PROMPT AUTO-SKIP. ACCEPT ( 13 , 22 ) ADD31 WITH PROMPT. ACCEPT ( 15 , 22 ) PNO1 WITH PROMPT. ACCEPT ( 17 , 22 ) DES1 WITH PROMPT EMPTY-CHECK. GO TO PARA-13. PARA-37. ACCEPT ( 7 , 64 ) SAL1 WITH PROMPT EMPTY-CHECK. PARA-33. DISPLAY ( 15 , 64 ) DNAM1. MOVE 0 TO SAL1. PERFORM PARA-37 UNTIL SAL1 > 0.
COMPUTE HRA1 = SAL1 * 0.20.
COMPUTE DA1 = SAL1 * 0.15.
COMPUTE GROS1 = HRA1 + DA1 + SAL1.
MOVE HRA1 TO S3.
DISPLAY ( 9 , 64 ) S3.
MOVE DA1 TO S3.
DISPLAY ( 11 , 64 ) S3.
MOVE GROS1 TO S3.
DISPLAY ( 13 , 64 ) S3.
MOVE "Z" TO X.
MOVE 23 TO LIN.
MOVE 22 TO COL.
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
IF ( X = "Y" )
OPEN EXTEND EMPFILE
WRITE EMP FROM ETMP
CLOSE EMPFILE.
MOVE "Z" TO X.
MOVE 23 TO LIN.
MOVE 64 TO COL.
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
IF ( X = "Y" )
GO TO PARA-10.
GO TO PARA-9.
PARA-11.
READ EMPFILE AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E" )
COMPUTE N3 = N3 + 1.
PARA-12.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 3 , 32 ) "EMPLOYEE DETAILS".
DISPLAY ( 5 , 32 ) "----------------".
DISPLAY ( 7 , 3 ) "EMPLOYEE NUMBER : ".
DISPLAY ( 9 , 3 ) "EMPLOYEE NAME : ".
DISPLAY ( 11 , 3 ) "ADDRESS : ".
DISPLAY ( 15 , 3 ) "PHONE : ".
DISPLAY ( 17 , 3 ) "DESIGNATION : ".
DISPLAY ( 19 , 3 ) "DEPARTMENT NUMBER : ".
DISPLAY ( 23 , 3 ) "CONFIRM[Y/N] : ".
DISPLAY ( 7 , 45 ) "SALARY : ".
DISPLAY ( 9 , 45 ) "H.R.A. : ".
DISPLAY ( 11 , 45 ) "D.A. : ".
DISPLAY ( 13 , 45 ) "TOTAL : ".
DISPLAY ( 15 , 45 ) "DEPARTMENT NAME : ".
DISPLAY ( 23 , 45 ) "CONTINUE[Y/N] : ".
PARA-13.
ACCEPT ( 19 , 22 ) DNUM1 WITH PROMPT EMPTY-CHECK.
OPEN INPUT DEPFILE.
MOVE 0 TO DNO.
MOVE "Y" TO EOF.
PERFORM PARA-14 UNTIL DNUM1 = DNO.
IF X = "Y" AND EOF = "E"
CLOSE DEPFILE
GO TO PARA-13.
IF X NOT= "Y" AND EOF = "E"
CLOSE DEPFILE
GO TO PARA-9.
MOVE DNAME TO DNAM1.
CLOSE DEPFILE.
GO TO PARA-33.
PARA-14.
READ DEPFILE AT END MOVE "E" TO EOF.
IF ( EOF = "E" )
DISPLAY ( 17 , 45 ) "NO SUCH NUMBER EXISTS [OK]..."
MOVE "Z" TO X
MOVE 23 TO LIN
MOVE 64 TO COL
PERFORM PARA-36 UNTIL X = "Y" OR X = "N"
DISPLAY ( 17 , 45 ) " "
DISPLAY ( 23 , 45 ) "CONTINUE[Y/N] : "
MOVE DNUM1 TO DNO.
PARA-15.
MOVE "Y" TO EOF1.
OPEN INPUT EMPFILE.
PERFORM PARA-12.
ACCEPT ( 7 , 22 ) N3 WITH PROMPT EMPTY-CHECK.
IF ST2 NOT= "30"
PERFORM PARA-16 UNTIL EOF1 NOT= "Y"
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 10 , 25 ) "EMPLOYEES ARE NOT PRESENT"
"..[OK]"
ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP
CLOSE EMPFILE
GO TO PARA-9.
CLOSE EMPFILE.
MOVE "Z" TO X.
MOVE 23 TO LIN.
MOVE 64 TO COL.
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
IF ( X = "Y" )
GO TO PARA-15.
GO TO PARA-9.
PARA-16.
READ EMPFILE INTO ETMP AT END MOVE "E" TO EOF1.
IF ( EOF1 = "E" )
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 12 , 20 ) "NO SUCH NUMBER EXISTS [OK]...."
DISPLAY ( 23 , 45 ) "CONTINUE[Y/N] : ".
IF ( EOF1 NOT= "E" )
IF ( ENO1 = N3 )
DISPLAY ( 9 , 22 ) ENAME1
DISPLAY ( 11 , 22 ) ADD11
DISPLAY ( 12 , 22 ) ADD21
DISPLAY ( 13 , 22 ) ADD31
DISPLAY ( 15 , 22 ) PNO1
DISPLAY ( 17 , 22 ) DES1
DISPLAY ( 19 , 22 ) DNUM1
DISPLAY ( 7 , 64 ) SAL1
MOVE HRA1 TO S3
DISPLAY ( 9 , 64 ) S3
MOVE DA1 TO S3
DISPLAY ( 11 , 64 ) S3
MOVE GROS1 TO S3
DISPLAY ( 13 , 64 ) S3
DISPLAY ( 15 , 64 ) DNAM1
ACCEPT ( 9 , 22 ) ENAME1 WITH UPDATE
ACCEPT ( 11 , 22 ) ADD11 WITH UPDATE AUTO-SKIP
ACCEPT ( 12 , 22 ) ADD21 WITH UPDATE AUTO-SKIP
ACCEPT ( 13 , 22 ) ADD31 WITH UPDATE
ACCEPT ( 15 , 22 ) PNO1 WITH UPDATE
ACCEPT ( 17 , 22 ) DES1 WITH UPDATE
PERFORM PARA-17
DISPLAY ( 15 , 64 ) DNAM1
MOVE 0 TO SAL
PERFORM PARA-39 UNTIL SAL > 0
MOVE SAL TO SAL1
COMPUTE HRA1 = SAL1 * 0.20
COMPUTE DA1 = SAL1 * 0.15
COMPUTE GROS1 = HRA1 + DA1 + SAL1
MOVE HRA1 TO S3
DISPLAY ( 9 , 64 ) S3
MOVE DA1 TO S3
DISPLAY ( 11 , 64 ) S3
MOVE GROS1 TO S3
DISPLAY ( 13 , 64 ) S3
MOVE "E" TO EOF1
MOVE "Z" TO X
MOVE 23 TO LIN
MOVE 22 TO COL
PERFORM PARA-36 UNTIL X = "Y" OR X = "N"
CLOSE EMPFILE
IF ( X = "Y" )
MOVE "Y" TO EOF
OPEN I-O EMPFILE
PERFORM PARA-38 UNTIL EOF = "E"
CLOSE EMPFILE.
PARA-39.
MOVE SAL1 TO SAL.
ACCEPT ( 7 , 64 ) SAL WITH UPDATE PROMPT.
PARA-38.
READ EMPFILE AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E" )
IF ( ENO = ENO1 )
REWRITE EMP FROM ETMP.
PARA-17.
MOVE DNUM1 TO S.
ACCEPT ( 19 , 22 ) S WITH UPDATE .
DISPLAY ( 18 , 45 ) " ".
DISPLAY ( 19 , 45 ) " ".
OPEN INPUT DEPFILE.
MOVE 0 TO DNO.
MOVE "Y" TO EOF.
PERFORM PARA-18 UNTIL S = DNO.
IF ( S = DNO AND EOF NOT= "E")
MOVE DNAME TO DNAM1
CLOSE DEPFILE
ELSE
CLOSE DEPFILE
GO TO PARA-17.
PARA-18.
READ DEPFILE AT END MOVE "E" TO EOF.
IF ( EOF = "E" )
MOVE DNUM1 TO S
MOVE S TO DNO
DISPLAY ( 18 , 45 ) " NO SUCH NUMBER EXISTS..[OK]."
DISPLAY ( 19 , 45 ) " ENTER AGAIN".
PARA-21.
PERFORM PARA-34.
DISPLAY ( 7 , 25 ) " VIEW SUB-MENU".
DISPLAY ( 8 , 25 ) " ---------------".
DISPLAY ( 10 , 25 ) "VIEW AN EMPLOYEE DETAIL : 1".
DISPLAY ( 12 , 25 ) "VIEW DEPARTMENT WISE : 2".
DISPLAY ( 14 , 25 ) "VIEW ALL EMPLOYEE : 3".
DISPLAY ( 16 , 25 ) "EXIT TO SUBMENU : 4".
DISPLAY ( 18 , 25 ) "ENTER YOUR CHOICE[1/2/3/4]: ".
MOVE 18 TO LIN.
MOVE 53 TO COL.
MOVE 7 TO NUM.
PERFORM PARA-35 UNTIL NUM NOT< 0 AND NUM < 5.
ACCEPT ESC FROM ESCAPE KEY.
GO TO PARA-31 PARA-40 PARA-0 PARA-9 PARA-21 PARA-2 PARA-1
PARA-22 PARA-24 PARA-26 PARA-10 DEPENDING ON ESC.
IF NUM = 0
GO TO PARA-21.
GO TO PARA-22 PARA-24 PARA-26 PARA-9 DEPENDING ON NUM.
PARA-22.
PERFORM PARA-12.
DISPLAY ( 23 , 3 ) " ".
OPEN INPUT EMPFILE.
MOVE "Y" TO EOF.
ACCEPT ( 7 , 22 ) S WITH PROMPT EMPTY-CHECK.
IF ST2 NOT= "30"
PERFORM PARA-23 UNTIL EOF = "E"
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 10 , 25 ) "EMPLOYEES ARE NOT PRESENT"
"..[OK]"
ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP
CLOSE EMPFILE
GO TO PARA-21.
CLOSE EMPFILE.
IF ( X = "Y" )
GO TO PARA-22
ELSE
GO TO PARA-21.
PARA-23.
READ EMPFILE RECORD AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E")
IF ( ENO = S)
DISPLAY ( 9 , 22 ) ENAME
DISPLAY ( 11 , 22 ) ADD1
DISPLAY ( 12 , 22 ) ADD2
DISPLAY ( 13 , 22 ) ADD3
DISPLAY ( 15 , 22 ) PNO
DISPLAY ( 17 , 22 ) DES
DISPLAY ( 19 , 22 ) DNUM
MOVE SAL TO S3
DISPLAY ( 7 , 64 ) S3
MOVE HRA TO S3
DISPLAY ( 9 , 64 ) S3
MOVE DA TO S3
DISPLAY ( 11 , 64 ) S3
MOVE GROS TO S3
DISPLAY ( 13 , 64 ) S3
DISPLAY ( 15 , 64 ) DNAM
MOVE "Z" TO X
MOVE 23 TO LIN
MOVE 64 TO COL
PERFORM PARA-36 UNTIL X = "Y" OR X = "N"
MOVE "E" TO EOF
ELSE
NEXT SENTENCE
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 12 , 20 )" NO SUCH NUMBER EXISTS [OK] :"
DISPLAY ( 23 , 60 ) " CONTINUE[Y/N] :"
MOVE "Z" TO X
MOVE 23 TO LIN
MOVE 77 TO COL
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
PARA-24.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 12 , 25 ) "ENTER THE DEPARTMENT NUMBER :".
ACCEPT ( 12 , 55 ) S WITH PROMPT EMPTY-CHECK.
OPEN INPUT EMPFILE.
MOVE "Y" TO EOF.
MOVE 0 TO N3.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 1 , 3 ) "DEPARTMENT NAME :"
DISPLAY ( 3 , 3 ) "EMPLOYEE NUMBER"
DISPLAY ( 3 , 33 ) "EMPLOYEE NAME"
DISPLAY ( 3 , 62 ) "DESIGNATION"
COMPUTE LIN = 5.
IF ST2 NOT= "30"
PERFORM PARA-25 UNTIL EOF = "E"
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 10 , 25 ) "EMPLOYEES ARE NOT PRESENT"
"..[OK]"
ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP
CLOSE EMPFILE
GO TO PARA-21.
CLOSE EMPFILE.
DISPLAY ( 23 , 37 ) "CONTINUE[Y/N] :".
MOVE "Z" TO X.
MOVE 23 TO LIN.
MOVE 54 TO COL.
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
IF ( X = "Y")
GO TO PARA-24.
GO TO PARA-21.
PARA-25.
READ EMPFILE RECORD AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E")
IF ( DNUM = S )
COMPUTE N3 = N3 + 1
DISPLAY ( 1 , 20 ) DNAM
DISPLAY ( LIN , 3 ) ENO
DISPLAY ( LIN , 33 ) ENAME
DISPLAY ( LIN , 62 ) DES
COMPUTE LIN = LIN + 2.
IF ( N3 = 9 )
DISPLAY ( 23 , 50 ) " PRESS ANY KEY TO CONTINUE"
ACCEPT ( 23 , 79 )X WITH AUTO-SKIP
DISPLAY ( 3 , 3 ) ERASE
DISPLAY ( 3 , 3 ) "EMPLOYEE NUMBER"
DISPLAY ( 3 , 33 ) "EMPLOYEE NAME"
DISPLAY ( 3 , 62 ) "DESGINATION"
COMPUTE N3 = 1
COMPUTE LIN = 5.
IF ( EOF = "E" AND N3 = 0 )
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 12 , 20 )" EMPLOYEES ARE NOT PRESENT [OK] :"
DISPLAY ( 23 , 37 ) " CONTINUE[Y/N] :"
COMPUTE N3 = N3 + 1.
PARA-26.
DISPLAY ( 1 , 1 ) ERASE.
OPEN INPUT EMPFILE.
MOVE "Y" TO EOF.
MOVE 0 TO N3.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 3 , 3 ) "EMPLOYEE NUMBER"
DISPLAY ( 3 , 33 ) "EMPLOYEE NAME"
DISPLAY ( 3 , 62 ) "DESIGNATION"
COMPUTE LIN = 5.
IF ST2 NOT= "30"
PERFORM PARA-27 UNTIL EOF = "E"
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 10 , 25 ) "EMPLOYEES ARE NOT PRESENT"
"..[OK]"
ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP
CLOSE EMPFILE
GO TO PARA-21.
CLOSE EMPFILE.
DISPLAY ( 23 , 36 ) "PRESS ANY KEY "
ACCEPT ( 23 , 79 ) EOF WITH AUTO-SKIP.
IF ( X = "Y")
GO TO PARA-26.
GO TO PARA-21.
PARA-27.
READ EMPFILE RECORD AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E")
COMPUTE N3 = N3 + 1
DISPLAY ( LIN , 3 ) ENO
DISPLAY ( LIN , 33 ) ENAME
DISPLAY ( LIN , 62 ) DES
COMPUTE LIN = LIN + 2.
IF ( N3 = 9 )
DISPLAY ( 23 , 50 )" PRESS ANY KEY TO CONTINUE"
ACCEPT ( 23 , 79 )X WITH AUTO-SKIP
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 3 , 3 ) "EMPLOYEE NUMBER"
DISPLAY ( 3 , 33 ) "EMPLOYEE NAME"
DISPLAY ( 3 , 62 ) "DESIGNATION"
COMPUTE N3 = 1
COMPUTE LIN = 5.
IF ( EOF = "E" AND N3 = 0 )
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 12 , 20 )" EMPLOYEES ARE NOT PRESENT [OK] :"
DISPLAY ( 23 , 37 ) " CONTINUE[Y/N] :"
COMPUTE N3 = N3 + 1.
PARA-28.
PERFORM PARA-12.
ACCEPT ( 7 , 22 ) S WITH PROMPT EMPTY-CHECK.
OPEN INPUT EMPFILE.
OPEN OUTPUT ETMPFILE.
MOVE "Y" TO EOF.
MOVE 1 TO N3.
IF ST2 NOT= "30"
PERFORM PARA-29 UNTIL EOF = "E"
ELSE
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 10 , 25 ) "EMPLOYEES ARE NOT PRESENT"
"..[OK]"
ACCEPT ( 10 , 55 ) X WITH AUTO-SKIP
CLOSE EMPFILE ETMPFILE
GO TO PARA-21.
CLOSE ETMPFILE , EMPFILE.
OPEN INPUT ETMPFILE.
OPEN OUTPUT EMPFILE.
MOVE "Y" TO EOF.
MOVE 0 TO N3.
PERFORM PARA-30 UNTIL EOF = "E".
CLOSE ETMPFILE , EMPFILE.
MOVE "Z" TO X.
MOVE 23 TO LIN.
MOVE 64 TO COL.
PERFORM PARA-36 UNTIL X = "Y" OR X = "N".
IF ( X = "Y")
GO TO PARA-28.
GO TO PARA-9.
PARA-30.
READ ETMPFILE AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E" )
COMPUTE N3 = N3 + 1
MOVE N3 TO ENO1
WRITE EMP FROM ETMP.
PARA-29.
READ EMPFILE RECORD AT END MOVE "E" TO EOF.
IF ( EOF NOT= "E")
IF ( ENO = S )
DISPLAY ( 9 , 22 ) ENAME
DISPLAY ( 11 , 22 ) ADD1
DISPLAY ( 12 , 22 ) ADD2
DISPLAY ( 13 , 22 ) ADD3
DISPLAY ( 15 , 22 ) PNO
DISPLAY ( 17 , 22 ) DES
DISPLAY ( 19 , 22 ) DNUM
MOVE SAL TO S3
DISPLAY ( 7 , 64 ) S3
MOVE HRA TO S3
DISPLAY ( 9 , 64 ) S3
MOVE DA TO S3
DISPLAY ( 11 , 64 ) S3
MOVE GROS TO S3
DISPLAY ( 13 , 64 ) S3
DISPLAY ( 15 , 64 ) DNAM
MOVE "Z" TO X
MOVE 23 TO LIN
MOVE 23 TO COL
PERFORM PARA-36 UNTIL X = "Y" OR X = "N
COMPUTE N3 = 0
IF ( X NOT= "Y" )
WRITE ETMP FROM EMP
ELSE
NEXT SENTENCE
ELSE
WRITE ETMP FROM EMP.
IF ( EOF = "E" AND N3 NOT= 0 )
DISPLAY ( 1 , 1 ) ERASE
DISPLAY ( 12 , 20 )" NO SUCH NUMBER EXISTS [OK] :"
DISPLAY ( 23 , 45 ) " CONTINUE[Y/N] :"
COMPUTE N3 = N3 + 1.
PARA-31.
DISPLAY ( 1 , 1 ) ERASE .
DISPLAY ( 3 , 3 ) " DATE :" DD1.
DISPLAY ( 4 , 3 ) " KAKINADA.".
DISPLAY ( 9 , 25 ) " OUR SINCIERE THANKS TO KuGuNi "
"DEGREE COLLEGE FOR ".
DISPLAY ( 11 , 3 ) "PROVIDING THE REQUIRED LAB FACILITY "
" AND LECTURERS , LAB ASSISTANTS WHO HELPED ".
DISPLAY ( 13 , 2 ) " IN DOING THIS PROJECT. ".
DISPLAY ( 17 , 45 ) " FROM ".
DISPLAY ( 19 , 50 ) " PROJECT GROUP MEMBERS. ".
STOP RUN.
PARA-40.
ACCEPT DD FROM DATE.
MOVE CORR DD TO DD1.
PERFORM PARA-34.
DISPLAY ( 10 , 32 ) " HELP MENU ".
DISPLAY ( 11 , 31 ) " -----------".
DISPLAY ( 13 , 25 ) " ABOUT DATA MANAGER : 1".
DISPLAY ( 15 , 25 ) " FUNCTION KEYS : 2".
DISPLAY ( 17 , 25 ) " EXIT TO MAIN MENU : 3".
DISPLAY ( 19 , 25 ) " ENTER YOUR CHOICE[1/2]:".
MOVE 19 TO LIN.
MOVE 50 TO COL.
MOVE 5 TO NUM.
PERFORM PARA-35 UNTIL NUM NOT < 0 AND NUM < 4.
ACCEPT ESC FROM ESCAPE KEY.
GO TO PARA-31 PARA-40 PARA-0 PARA-9 PARA-21 PARA-2 PARA-1
PARA-22 PARA-24 PARA-26 PARA-10 DEPENDING ON ESC.
IF NUM = 0
GO TO PARA-40.
GO TO PARA-42 PARA-41 PARA DEPENDING ON NUM.

PARA-41.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 2 , 3 ) "FUNCTION KEYS:".
DISPLAY ( 3 , 3 ) "=============".
DISPLAY ( 4 , 17 ) "WHEN THE USER IS WELL WITH THE D"
"ATA MANAGER SOFTWARE, HE WILL".
DISPLAY ( 5 , 3 ) "FIND SOME DIFFICULTY OR DISCOMFORT"
" WITH THE MENUS. A GOOD SOFTWARE MAKES THE".
DISPLAY ( 6 , 3 ) "USER AS COMFORTABLE AS POSSIBLE.FOR"
" THIS EACH AND EVERY FUNCTION KEY ASSAIGNED".
DISPLAY ( 7 , 3 ) "A SPECIFICED FUNCTION TO WORK ON AT"
" ANY MENU LEVEL.".
DISPLAY ( 9 , 20 ) " FUNCTION KEY WORK".
DISPLAY ( 10 , 20 ) "-------------- -----".
DISPLAY ( 12 , 25 ) " F1 HELP MENU".
DISPLAY ( 13 , 25 ) " F1 DEPARTMENT MENU".
DISPLAY ( 14 , 25 ) " F3 EMPLOYEE MENU".
DISPLAY ( 15 , 25 ) " F4 VIEW EMPLOYEE ME"
"NU".
DISPLAY ( 16 , 25 ) " F5 VIEW DEPARTMENT"
" DETAILS".
DISPLAY ( 17 , 25 ) " F6 ADD DEPARTMENT "
"DETAILS".
DISPLAY ( 18 , 25 ) " F7 VIEW EACH EMPLO"
"YEE DETAILS".
DISPLAY ( 19 , 25 ) " F8 VIEW EMPLOYEE "
"DETAILS DEPARTMENT WISE".
DISPLAY ( 20 , 25 ) " F9 VIEW ALL EMPLOY"
"EES".
DISPLAY ( 21 , 25 ) " F10 ADD EMPLOYEE "
"DETAILS".
DISPLAY ( 22 , 25 ) " ESC EXIT".
DISPLAY ( 24 , 46 ) "press any key to go to help menu"
"..".
ACCEPT ( 24 , 79 ) X WITH AUTO-SKIP.
GO TO PARA-40.
PARA-42.
DISPLAY ( 1 , 1 ) ERASE.
DISPLAY ( 2 , 34 ) " DATA MANAGER ".
DISPLAY ( 3 , 34 ) "==============".
DISPLAY ( 6 , 22 ) "A SOFTWARE WHICH MAINTAINS SOME IMPO
"RTANT EMPLOYEE DETAILS ".
DISPLAY ( 8 , 3 ) "BELONGING TO VARIOUS DEPARTMENTS OF"
" A PARTICULAR ORANIZATION AND MAKES USER AS".
DISPLAY ( 10 , 3 ) "COMFORTABLE AS POSSIBLE IN RETRIEWIN
"G THE INFORMATION IS KNOW AS DATA MANAGER ".
DISPLAY ( 11 , 68 ) "------------".
DISPLAY ( 13 , 3 ) "HOW TO USE DATA MANAGER :".
DISPLAY ( 14 , 3 ) "========================".
DISPLAY ( 16 , 26 ) " MAIN MENU " .
DISPLAY ( 17 , 26 ) " ----------- ".
DISPLAY ( 18 , 26 ) "DEPARTMENT DETAILS : 1".
DISPLAY ( 19 , 26 ) "EMPLOYEE DETAILS : 2".
DISPLAY ( 20 , 26 ) "HELP MENU : 3".
DISPLAY ( 21 , 26 ) "EXIT APPLICATION : 4".
DISPLAY ( 22 , 26 ) "ENTER YOUR CHOICE[1/2/3]: ".
DISPLAY ( 24 , 50 ) "press enter key to continue..".
DISPLAY ( 24 , 3 ) "press Esc key skip help.." .
ACCEPT ( 24 , 79 ) X WITH AUTO-SKIP.
ACCEPT ESC FROM ESCAPE KEY.
IF ESC = 1
GO TO PARA-40.
DISPLAY ( 4 , 1 ) ERASE.
DISPLAY ( 4 , 3 ) "1.ENTER 1 TO GO TO DEPARTMENT SUB-"
"MENU".
DISPLAY ( 5 , 3 ) "2.ENTER 2 TO GO TO EMPLOYEE SUB-"
"MENU".
DISPLAY ( 6 , 3 ) "3.ENTER 3 TO GO TO HELP MENU".
DISPLAY ( 7 , 3 ) "4.ENTER 4 TO EXIT FROM SOFTWARE".
DISPLAY ( 12 , 27 ) " DEPARTMENT SUB-MENU ".
DISPLAY ( 13 , 27 ) " ---------------------".
DISPLAY ( 14 , 27 ) "ADD DEPARTMENT DETAILS : 1".
DISPLAY ( 15 , 27 ) "VIEW DEPARTMENT DETAILS : 2".
DISPLAY ( 16 , 27 ) "DELETE DEPARTMENT DETAILS : 3".
DISPLAY ( 17 , 27 ) "EXIT TO MAIN MENU : 4".
DISPLAY ( 18 , 27 ) "ENTER YOUR CHOICE[1/2/3/4]: ".
DISPLAY ( 20 , 3 ) "1.ENTER 1 TO ADD DEPARTMENT DETAI"
"LS ".
DISPLAY ( 21 , 3 ) "2.ENTER 2 TO VIEW DEPARTMENT DETAI"
"LS ".
DISPLAY ( 24 , 50 ) "press enter key to continue..".
DISPLAY ( 24 , 3 ) "press Esc key skip help.." .
ACCEPT ( 24 , 79 ) X WITH AUTO-SKIP.
ACCEPT ESC FROM ESCAPE KEY.
IF ESC = 1
GO TO PARA-40.
DISPLAY ( 4 , 1 ) ERASE.
DISPLAY ( 6 , 3 ) "3.ENTER 3 TO DELETE DEPARTMENT"
" DETAILS ".
DISPLAY ( 7 , 3 ) "4.ENTER 4 TO GO TO MAIN MENU".
DISPLAY ( 9 , 25 ) " EMPLOYEE SUB-MENU".
DISPLAY ( 10 , 25 ) " -------------------".
DISPLAY ( 11 , 25 ) "ADD EMPLOYEE DETAILS : 1".
DISPLAY ( 12 , 25 ) "MODIFY EMPLOYEE DETAILS : 2".
DISPLAY ( 13 , 25 ) "VIEW EMPLOYEE DETAILS : 3".
DISPLAY ( 14 , 25 ) "DELETE EMPLOYEE DETAILS : 4".
DISPLAY ( 15 , 25 ) "EXIT TO MAIN MENU : 5".
DISPLAY ( 16 , 25 ) "ENTER YOUR CHOICE[1/2/3/4/5] : " .
DISPLAY ( 18 , 3 ) "1.ENTER 1 TO ADD DEPARTMENT DETAI"
"LS".
DISPLAY ( 19 , 3 ) "2.ENTER 2 TO MODIFY DEPARTMENT DE"
"TAILS".
DISPLAY ( 20 , 3 ) "3.ENTER 3 TO GO TO VIEW SUB MENU".
DISPLAY ( 21 , 3 ) "4.ENTER 4 TO DELETE DEPARTMENT"
" DETAILS".
DISPLAY ( 22 , 3 ) "5.ENTER 5 TO GO MAIN MENU".
DISPLAY ( 24 , 50 ) "press enter key to continue..".
DISPLAY ( 24 , 3 ) "press Esc key skip help.." .
ACCEPT ( 24 , 79 ) X WITH AUTO-SKIP.
ACCEPT ESC FROM ESCAPE KEY.
IF ESC = 1
GO TO PARA-40.
DISPLAY ( 4 , 1 ) ERASE.
DISPLAY ( 7 , 25 ) " VIEW SUB-MENU".
DISPLAY ( 8 , 25 ) " ---------------".
DISPLAY ( 9 , 25 ) "VIEW AN EMPLOYEE DETAIL : 1".
DISPLAY ( 10 , 25 ) "VIEW DEPARTMENT WISE : 2".
DISPLAY ( 11 , 25 ) "VIEW ALL EMPLOYEE : 3".
DISPLAY ( 12 , 25 ) "EXIT TO SUBMENU : 4".
DISPLAY ( 13 , 25 ) "ENTER YOUR CHOICE[1/2/3/4]: ".
DISPLAY ( 15 , 3 ) "1.ENTER 1 TO VIEW EACH EMPLOYEE".
DISPLAY ( 16 , 3 ) "2.ENTER 2 TO VIEW DEPARTMENT WISE".
DISPLAY ( 17 , 3 ) "3.ENTER 3 TO VIEW All EMPLOYEE".
DISPLAY ( 18 , 3 ) "4.ENTER 4 TO GO TO EMPLOYEE MENU".
DISPLAY ( 24 , 46 ) "press any key to go to help menu"
"..".
ACCEPT ( 24 , 79 ) X WITH AUTO-SKIP .
GO TO PARA-40.

Sorting and Merging files in COBOL

2010-08-02T08:57:00.000-07:00

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CallsFile
ASSIGN TO “CALLS.DAT”
ORGANIZATION IS LINE SEQUENTIAL.

SELECT SortedCallsFile
ASSIGN TO “SORTEDCALLS.DAT”
ORGANIZATION IS LINE SEQUENTIAL.

SELECT WorkFile
ASSIGN TO “WORK.TMP”.

DATA DIVISION.
FILE SECTION.
FD CallsFile.
01 CallRec.
02 SubscriberNumCF PIC 9(8).
02 UnitsUsedCF PIC 9(5).

FD SortedCallsFile.
01 SortedCallRec.
02 SubscriberNumSF PIC 9(8).
02 UnitsUsedSF PIC 9(5).

SD WorkFile.
01 WorkRec.
02 SubscriberNumWF PIC 9(8).
02 UnitsUsedWF PIC 9(5).

etc.

PROCEDURE DIVISION.
Begin.
SORT WorkFile ON ASCENDING SubscriberNumWF
USING CallsFile
GIVING SortedCallsFile.

etc.

Program to do An example program that implements a primative calculator in Cobol

2010-05-19T08:35:00.000-07:00

DATA DIVISION.
WORKING-STORAGE SECTION.
01  Num1           PIC 9  VALUE ZEROS.
01  Num2           PIC 9  VALUE ZEROS.
01  Result         PIC 99 VALUE ZEROS.
01  Operator       PIC X  VALUE SPACE.

PROCEDURE DIVISION.
Calculator.
   PERFORM 3 TIMES
      DISPLAY "Enter First Number      : " WITH NO ADVANCING
      ACCEPT Num1
      DISPLAY "Enter Second Number     : " WITH NO ADVANCING
      ACCEPT Num2
      DISPLAY "Enter operator (+ or *) : " WITH NO ADVANCING
      ACCEPT Operator
      IF Operator = "+" THEN
         ADD Num1, Num2 GIVING Result
      END-IF
      IF Operator = "*" THEN
         MULTIPLY Num1 BY Num2 GIVING Result
      END-IF
      DISPLAY "Result is = ", Result
   END-PERFORM.
   STOP RUN.

Program Accepts two single digit numbers from the user, multiplies them together and displays the result in cobol

2010-05-19T08:33:00.000-07:00

* Example program using ACCEPT, DISPLAY and MULTIPLY to
* get two single digit numbers from the user and multiply them together

DATA DIVISION.

WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.
DISPLAY "Enter first number (1 digit) : " WITH NO ADVANCING.
ACCEPT Num1.
DISPLAY "Enter second number (1 digit) : " WITH NO ADVANCING.
ACCEPT Num2.
MULTIPLY Num1 BY Num2 GIVING Result.
DISPLAY "Result is = ", Result.
STOP RUN.

program accepts a simple student record from the user and displays the individual fields in cobol

2010-05-19T08:31:00.000-07:00

$ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptAndDisplay.
AUTHOR. Michael Coughlan.
* Uses the ACCEPT and DISPLAY verbs to accept a student record
* from the user and display some of the fields. Also shows how
* the ACCEPT may be used to get the system date and time.

* The YYYYMMDD in "ACCEPT CurrentDate FROM DATE YYYYMMDD."
* is a format command that ensures that the date contains a
* 4 digit year. If not used, the year supplied by the system will
* only contain two digits which may cause a problem in the year 2000.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 CourseCode PIC X(4).
02 Gender PIC X.

* YYMMDD
01 CurrentDate.
02 CurrentYear PIC 9(4).
02 CurrentMonth PIC 99.
02 CurrentDay PIC 99.

* YYDDD
01 DayOfYear.
02 FILLER PIC 9(4).
02 YearDay PIC 9(3).

* HHMMSSss s = S/100
01 CurrentTime.
02 CurrentHour PIC 99.
02 CurrentMinute PIC 99.
02 FILLER PIC 9(4).

PROCEDURE DIVISION.
Begin.
DISPLAY "Enter student details using template below".
DISPLAY "Enter - ID,Surname,Initials,CourseCode,Gender"
DISPLAY "SSSSSSSNNNNNNNNIICCCCG".
ACCEPT StudentDetails.
ACCEPT CurrentDate FROM DATE YYYYMMDD.
ACCEPT DayOfYear FROM DAY YYYYDDD.
ACCEPT CurrentTime FROM TIME.
DISPLAY "Name is ", Initials SPACE Surname.
DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear.
DISPLAY "Today is day " YearDay " of the year".
DISPLAY "The time is " CurrentHour ":" CurrentMinute.
STOP RUN.

Program to Calculate ross dividend in Cobol

2010-04-07T08:21:00.000-07:00

IDENTIFICATION DIVISION.
PROGRAM-ID. Q3.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM PC.
OBJECT-COMPUTER. IBM PC.
INPUT-OUTPUT SECTION.
SELECT IN-FILE ASSIGN TO "Q3IN.DAT" ORGANIZATION IS
LINE SEQUENTIAL.
SELECT OUT-FILE ASSIGN TO "Q3OUT.TXT".

DATA DIVISION.
FILE SECTION.
FD IN-FILE.
01 IN-REC.
02 IN-FACEVAL PIC 999.
02 IN-RATE PIC V99.
FD OUT-FILE.
01 OUT-REC PIC X(80).

WORKING-STORAGE SECTION.
77 GROSS-DIVIDEND PIC 9(3).9(2).
77 EOF pic X value "N".
77 HEADING1 PIC X(80) VALUE ALL "-".
77 SNO PIC 99 VALUE 0.
01 OUT-FORMAT.
02 OUT-SNO PIC X(5).
02 F PIC X(15) VALUE SPACES.
02 OUT-GROSS-DIVIDEND PIC 99.99.

PROCEDURE DIVISION.
MAIN-PARA.
OPEN INPUT IN-FILE OUTPUT OUT-FILE.
MOVE HEADING1 TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
MOVE " GROSS DIVIDEND REPORT"
TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE .
MOVE HEADING1 TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
MOVE "SNO GROSS VALUE" to OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.

READ IN-FILE AT END MOVE "Y" TO EOF.

PERFORM CALC-PARA UNTIL EOF = "Y".
DISPLAY "THE DETAILS HAVE BEEN WRITTEN TO FILE Q3OUT.DAT".
CLOSE IN-FILE , OUT-FILE.
STOP RUN.
CALC-PARA.
ADD 1 TO SNO.
COMPUTE GROSS-DIVIDEND = ( IN-FACEVAL * IN-RATE )/ 100.
MOVE SNO TO OUT-SNO.
MOVE GROSS-DIVIDEND TO OUT-GROSS-DIVIDEND.
MOVE OUT-FORMAT TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
READ IN-FILE AT END MOVE "Y" TO EOF.

Program to generate Telephone Bill in Cobol, Telephone Bill Project In Cobol.

2010-04-07T08:15:00.000-07:00

IDENTIFICATION DIVISION.
PROGRAM-ID. Q14.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM PC.
OBJECT-COMPUTER. IBM PC.
INPUT-OUTPUT SECTION.
SELECT CUSTOMER-REC-FILE ASSIGN TO "CUST_REC.DAT" ORGANIZATION
IS SEQUENTIAL.
SELECT OUT-FILE ASSIGN TO "TELBILL.TXT".

DATA DIVISION.
FILE SECTION.
FD CUSTOMER-REC-FILE.
01 IN-REC.
02 IN-CUST-ID PIC 999999.
02 IN-CUST-NAME PIC A(20).
02 IN-CUST-ADDRESS PIC X(30).
02 IN-METERED-PULSES PIC 9(4).
02 IN-TELNO PIC 9(6).
FD OUT-FILE.
01 OUT-REC PIC X(80).

WORKING-STORAGE SECTION.
77 EOF PIC X VALUE "N".
77 HEADING1 PIC X(80) VALUE ALL "-".
77 COMPANY-TITLE PIC X(80) VALUE
" AIRTEL TELEPHONE SERVICE ---- BHARTI TELENET LTD.".
01 CUST-ID-LINE.
02 F PIC X(18) VALUE "CUSTOMER ID NO.: ".
02 CUST-ID PIC 9(6).
02 F PIC X(37) VALUE " TELEPHONE CHARGES FOR THE MONTH ".
02 BILL-MONTH PIC X(10).
01 OUT-FORMAT.
02 CUST-NAME PIC A(15).
02 PHONE-NO PIC ZZ9999.
02 F PIC X(10) VALUE SPACES.
02 METRED-PULSES PIC ***9.
02 F PIC X(10) VALUE SPACES.
02 BILL-DUE PIC ****.**.
02 F PIC X(10) VALUE SPACES.
02 LATE-BILL PIC ****.**.

01 TITLE-LINE.
02 F PIC X(80) VALUE " CUSTOMER NAME | TEL NO | METRED PUL
- "SES | NET CHARGES | CHARGES AFTER 15 DAYS *".
01 ISSUE-DATE-LINE.
02 F PIC X(20) VALUE " DATE OF ISSUE : ".
02 CURR-MONTH PIC X(40).
01 FOOTER-LINE.
02 F PIC X(80) VALUE " *: 15 DAYS FROM THE DATE OF ISSUE AS
- " STATED ABOVE".
77 CHARGES PIC 9(4)V99.
77 PULSES PIC 9(5).
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "PLS. ENTER CURRENT DATE".
ACCEPT CURR-MONTH .
OPEN INPUT CUSTOMER-REC-FILE OUTPUT OUT-FILE.
DISPLAY "PLS. ENTER THE MONTH FOR WHICH BILL HAS TO BE GENERATED
- ".....(EX. JAN, 2001)".
ACCEPT BILL-MONTH.
READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF.
PERFORM CALC-PARA UNTIL EOF = "Y".
DISPLAY "THE TELEPHONE BILL IS GENERATED.".
CLOSE CUSTOMER-REC-FILE , OUT-FILE.
STOP RUN.

HEADER-PARA.
WRITE OUT-REC FROM HEADING1 .
WRITE OUT-REC FROM COMPANY-TITLE.
WRITE OUT-REC FROM HEADING1.
MOVE IN-CUST-NAME TO CUST-NAME OF OUT-FORMAT.
MOVE IN-TELNO TO PHONE-NO.

FOOTER-PARA.
WRITE OUT-REC FROM ISSUE-DATE-LINE.
WRITE OUT-REC FROM FOOTER-LINE.
MOVE "15 DAYS FROM THE DATE OF ISSUE OF BILL." TO OUT-REC.

CALC-PARA.
PERFORM HEADER-PARA.
MOVE IN-CUST-ID TO CUST-ID OF CUST-ID-LINE.
WRITE OUT-REC FROM CUST-ID-LINE.
WRITE OUT-REC FROM HEADING1.
WRITE OUT-REC FROM TITLE-LINE.
WRITE OUT-REC FROM HEADING1.

MOVE IN-CUST-NAME TO CUST-NAME.
MOVE IN-METERED-PULSES TO METRED-PULSES .
MOVE IN-TELNO TO PHONE-NO .
IF IN-METERED-PULSES <>
COMPUTE BILL-DUE = 250.00
ELSE
MOVE IN-METERED-PULSES TO PULSES.
COMPUTE CHARGES = 250.00 + ( PULSES - 75 ) * 0.8 .
MOVE CHARGES TO BILL-DUE.
COMPUTE CHARGES = CHARGES + CHARGES * 0.10.
MOVE CHARGES TO LATE-BILL.
WRITE OUT-REC FROM OUT-FORMAT .
PERFORM FOOTER-PARA.
DISPLAY IN-CUST-NAME.
WRITE OUT-REC FROM HEADING1 AFTER ADVANCING PAGE.
READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF.

Program to create and print Financial Accounting Balance Sheet

2010-04-07T08:12:00.000-07:00

Program to create and print Financial Accounting Balance Sheet

IDENTIFICATION DIVISION.
PROGRAM-ID. BLANK-SCREEN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. INTEL.
OBJECT-COMPUTER. INTEL.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 HIT PIC X.
77 OPEN-STOCK PIC 9(7) VALUE ZEROES.
77 BILLS-REC PIC 9(7) VALUE ZEROES.
77 MACHINERY PIC 9(7) VALUE ZEROES.
77 FURNITURE PIC 9(7) VALUE ZEROES.
77 BUILDING PIC 9(7) VALUE ZEROES.
77 DEBTORS PIC 9(7) VALUE ZEROES.
77 CASH-IN-OFFICE PIC 9(7) VALUE ZEROES.
77 CASH-AT-BANK PIC 9(7) VALUE ZEROES.
77 CASH-PETTY PIC 9(7) VALUE ZEROES.
77 WAGES PIC 9(7) VALUE ZEROES.
77 RENT PIC 9(7) VALUE ZEROES.
77 ELEC-CHARGES PIC 9(7) VALUE ZEROES.
77 REPAIRS PIC 9(7) VALUE ZEROES.
77 SALARIES PIC 9(7) VALUE ZEROES.
77 DISC-TO-CUST PIC 9(7) VALUE ZEROES.
77 INT-ON-LOAN PIC 9(7) VALUE ZEROES.
77 BAD-DEBTS PIC 9(7) VALUE ZEROES.
77 PURCHASE-ACC PIC 9(7) VALUE ZEROES.
77 SALES-RET-ACC PIC 9(7) VALUE ZEROES.
77 DRAWINGS-ACC PIC 9(7) VALUE ZEROES.
77 INVESTMENTS PIC 9(7) VALUE ZEROES.
77 CARRIAGE-IN PIC 9(7) VALUE ZEROES.
77 CARRIAGE-OUT PIC 9(7) VALUE ZEROES.
77 LOOSE-TOOLS PIC 9(7) VALUE ZEROES.
77 BILLS-PAYABLE PIC 9(7) VALUE ZEROES.
77 SALES-ACC PIC 9(7) VALUE ZEROES.
77 CAPITAL PIC 9(7) VALUE ZEROES.
77 LOAN PIC 9(7) VALUE ZEROES.
77 CREDITORS PIC 9(7) VALUE ZEROES.
77 DISC-BY-CREDITORS PIC 9(7) VALUE ZEROES.
77 COMMISION-EARNED PIC 9(7) VALUE ZEROES.
77 INT-RECEIVED PIC 9(7) VALUE ZEROES.
77 RETURNS-OUT PIC 9(7) VALUE ZEROES.
77 RENT-RECEIVED PIC 9(7) VALUE ZEROES.
77 BANK-OD PIC 9(7) VALUE ZEROES.
77 BAD-DEBTS-RES PIC 9(7) VALUE ZEROES.
77 INT-ON-INVESTMENTS PIC 9(7) VALUE ZEROES.
77 INT-ON-DEPOSITS PIC 9(7) VALUE ZEROES.
77 CLOSE-STOCK PIC 9(7) VALUE ZEROES.
77 PURCHASE-FREIGHT PIC 9(7) VALUE ZEROES.
77 MANUFACTURE PIC 9(7) VALUE ZEROES.
77 INSURANCE-CLAIM PIC 9(7) VALUE ZEROES.
77 OCTROI PIC 9(7) VALUE ZEROES.
77 CUSTOM-DUTY PIC 9(7) VALUE ZEROES.
77 ROYALTY PIC 9(7) VALUE ZEROES.
77 IMPORT-DUTY PIC 9(7) VALUE ZEROES.
77 FUEL-POWER PIC 9(7) VALUE ZEROES.
77 WATER-CHARGES PIC 9(7) VALUE ZEROES.
77 CLEARING-CHARGES PIC 9(7) VALUE ZEROES.
77 GROSS-LOSS PIC 9(7) VALUE ZEROES.
77 GROSS-PROFIT PIC 9(7) VALUE ZEROES.
77 NET-LOSS PIC 9(7) VALUE ZEROES.
77 NET-PROFIT PIC 9(7) VALUE ZEROES.
77 CASH-IN-HAND PIC 9(7) VALUE ZEROES.
77 TRADE-DR PIC 9(12) VALUE ZEROES.
77 TRADE-CR PIC 9(12) VALUE ZEROES.
* 254
77 DASH-LINE PIC X(80) VALUE ALL "ß".
77 DASH-LINE1 PIC X(80) VALUE ALL "Ä".
* 179
77 VERT-DASH PIC X VALUE "³" .
77 PL-DR PIC 9(10) VALUE ZEROES.
77 PL-CR PIC 9(10) VALUE ZEROES.
77 BAL-LIA PIC 9(10) VALUE ZEROES.
77 BAL-ASSET PIC 9(10) VALUE ZEROES.
77 TT-DR PIC 9(10) VALUE ZEROES.
77 TT-CR PIC 9(10) VALUE ZEROES.
77 TPL-DR PIC 9(10) VALUE ZEROES.
77 TPL-CR PIC 9(10) VALUE ZEROES.

*------------------------------------------------------------------
SCREEN SECTION.
01 TITLE.
02 BLANK SCREEN.

01 MAIN-TITLE.
02 FOREGROUND-COLOR 4.
02 LINE 5 COLUMN 35 VALUE "PROJECT" BLINK HIGHLIGHT.
02 LINE 10 COLUMN 10 VALUE " FINANCIAL ACCOUNTING -"
HIGHLIGHT .
02 LINE 10 COLUMN 33 VALUE " BALANCE SHEET PRINTING "
HIGHLIGHT .
02 LINE 18 COLUMN 10 VALUE " PROGRAMMING DONE BY - "
HIGHLIGHT .
02 LINE 22 COLUMN 20 VALUE " B.E. II Yr. COMPUTER, I.E.T (DAVV) "
HIGHLIGHT .
02 LINE 19 COLUMN 30 VALUE " AMIT MATHUR "
HIGHLIGHT .
02 LINE 20 COLUMN 30 VALUE " RAKESH BARNWAL "
HIGHLIGHT .

01 INTRO.
02 LINE 2 COLUMN 30 VALUE " INTRODUCTION " HIGHLIGHT BLINK.
02 LINE 6 COLUMN 1 VALUE " BALANCE SHEET FOR ANY FIRM GENERALLY
- " CONSIST OF TWO MAJOR ACCOUNTS TRADING ACCOUNT AND".
02 LINE 7 COLUMN 15 VALUE " PROFIT AND LOSS ACCOUNT . THESE
- " PROVIDE INFORMATION ABOUT ".
02 LINE 8 COLUMN 1 VALUE " PROFITS AND LOSSES DURING THE YEAR,
- " BUT DO NOT INFORM ABOUT THE FINANTIAL POSITION OF ".
02 LINE 9 COLUMN 15 VALUE "THE BUSINESS AND ANY CHANGES THEREOF
- "THEREFORE THESE CHANGES ".
02 LINE 10 COLUMN 1 VALUE " COMES IN THE ASSETS , LIABILITIES
- "AND CAPITAL OF A BUSINESS. THE STATEMENT OF AFFAIRS,".
02 LINE 11 COLUMN 13 VALUE "WHICH IS PREPARED AFTER DETERMITION
- "OF NET FROFIT OR LOSS AND ".
02 LINE 12 COLUMN 1 VALUE " PROVIDES INFORMATIIN RESPECT OF THE
- " FINANTIAL POSITION OF THE BUSINESS IS KNOWN AS".
02 LINE 13 COLUMN 12 VALUE " BALANCE SHEET. SUCH BALANCE SHEET
- " IS PREPARED AT THE END OF EACH".
02 LINE 14 COLUMN 1 VALUE " FINANTIAL YEAR, IN WHICH ASSETS AND
- " LIABILITIES OF THE BUSINESS ARE MENTIONED. AT THE".
02 LINE 15 COLUMN 10 VALUE " COMPLETION OF TRADING A/C AND
- " PROFIT AND LOSS A/C ALL EXPENDITUR -E AND LOSSES".
02 LINE 16 COLUMN 10 VALUE "ACCOUNTS AND ALL PROFITS AND INCOMES
- " A/C BECOME CLOSED, ONLY ASSETS, LIABILITIES AND".
02 LINE 17 COLUMN 16 VALUE " AND CAPITAL ACCOUNTS REMAIN OPEN.
- "BALANCES OF ACCOUNTS ARE TR- -ANSFERED TO BALANCE SHEET.".
01 THANKS.
02 LINE 10 COLUMN 35 VALUE " THANKYOU " HIGHLIGHT BLINK.
02 LINE 11 COLUMN 35 VALUE " ________ " HIGHLIGHT BLINK.

01 OBJECT.
02 LINE 2 COLUMN 25 VALUE " OBJECT OF BALANCE SHEET" HIGHLIGHT
BLINK.
02 LINE 6 COLUMN 1 VALUE " BALANCE SHEET PREEPARED TO OBTAIN FOLL
- "OWIING OBJECTS :".
02 LINE 8 COLUMN 5 VALUE "1. TO FIND OUT THE TOTOL LIABILITIES
- " AND ASSETS OF THE BUSINESS ".
02 LINE 10 COLUMN 4 VALUE " 2. TO INFORM ABOUT THE CAPITAL OF
- " THE BUSINESS AND MEANS OF CAPITAL".
02 LINE 12 COLUMN 5 VALUE "3. TO OBTAIN INFORMATION ABUOT BUSIMAN
- " CAPACITY TO PAY ".
02 LINE 14 COLUMN 4 VALUE " 4. TO HAVE A COMPARATIVE STUDY".
01 TEL-SCR.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE"
HIGHLIGHT .
02 LINE 4 COLUMN 2 VALUE "OPENING STOCK " .
02 LINE 4 COLUMN 28 PIC 9(7) TO OPEN-STOCK JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "BILLS RECEIVABLE " .
02 LINE 6 COLUMN 28 PIC 9(7) TO BILLS-REC JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "MACHINERY " .
02 LINE 8 COLUMN 28 PIC 9(7) TO MACHINERY JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "FURNITURE " .
02 LINE 10 COLUMN 28 PIC 9(7) TO FURNITURE JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "BUILDING " .
02 LINE 12 COLUMN 28 PIC 9(7) TO BUILDING JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "DEBTORS " .
02 LINE 14 COLUMN 28 PIC 9(7) TO DEBTORS JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 2 VALUE "CASH IN OFFICE " .
02 LINE 16 COLUMN 28 PIC 9(7) TO CASH-IN-OFFICE JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 2 VALUE "CASH AT BANK " .
02 LINE 18 COLUMN 28 PIC 9(7) TO CASH-AT-BANK JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 2 VALUE "CASH WITH PETTY CASHIER " .
02 LINE 20 COLUMN 28 PIC 9(7) TO CASH-PETTY JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 2 VALUE "WAGES " .
02 LINE 22 COLUMN 28 PIC 9(7) TO WAGES JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 2 VALUE "RENT " .
02 LINE 24 COLUMN 28 PIC 9(7) TO RENT JUST LEFT
REVERSE-VIDEO.
02 LINE 4 COLUMN 38 VALUE "ELECTRIC CHARGES " .
02 LINE 4 COLUMN 65 PIC 9(7) TO ELEC-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 38 VALUE "REPAIRS " .
02 LINE 6 COLUMN 65 PIC 9(7) TO REPAIRS JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 38 VALUE "SALARIES " .
02 LINE 8 COLUMN 65 PIC 9(7) TO SALARIES JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 38 VALUE "DISCOUNT TO CUSTOMERS " .
02 LINE 10 COLUMN 65 PIC 9(7) TO DISC-TO-CUST JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 38 VALUE "INTEREST ON LOAN " .
02 LINE 12 COLUMN 65 PIC 9(7) TO INT-ON-LOAN JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 38 VALUE "BAD DEBTS " .
02 LINE 14 COLUMN 65 PIC 9(7) TO BAD-DEBTS JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 38 VALUE "PURCHASE A/C " .
02 LINE 16 COLUMN 65 PIC 9(7) TO PURCHASE-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 38 VALUE "SALES RETURN ACCOUNT " .
02 LINE 18 COLUMN 65 PIC 9(7) TO SALES-RET-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 38 VALUE "DRAWINGS A/C" .
02 LINE 20 COLUMN 65 PIC 9(7) TO DRAWINGS-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 38 VALUE "INVESTMENTS " .
02 LINE 22 COLUMN 65 PIC 9(7) TO INVESTMENTS JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 38 VALUE "CARRIAGE INWARDS " .
02 LINE 24 COLUMN 65 PIC 9(7) TO CARRIAGE-IN JUST LEFT
REVERSE-VIDEO.

01 TEL-SCR2.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE CONTD.."
HIGHLIGHT.
02 LINE 4 COLUMN 2 VALUE "CARRIAGE OUTWARDS " .
02 LINE 4 COLUMN 28 PIC 9(7) TO CARRIAGE-OUT JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "LOOSE TOOLS " .
02 LINE 6 COLUMN 28 PIC 9(7) TO LOOSE-TOOLS JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "BILLS PAYABLE " .
02 LINE 8 COLUMN 28 PIC 9(7) TO BILLS-PAYABLE JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "SALES A/C " .
02 LINE 10 COLUMN 28 PIC 9(7) TO SALES-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "CAPITAL " .
02 LINE 12 COLUMN 28 PIC 9(7) TO CAPITAL JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "LOAN " .
02 LINE 14 COLUMN 28 PIC 9(7) TO LOAN JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 2 VALUE "CREDITORS " .
02 LINE 16 COLUMN 28 PIC 9(7) TO CREDITORS JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 2 VALUE "DISCOUNT ALLOWED BY CREDITORS ".
02 LINE 18 COLUMN 28 PIC 9(7) TO DISC-BY-CREDITORS JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 2 VALUE "COMISSION EARNED " .
02 LINE 20 COLUMN 28 PIC 9(7) TO COMMISION-EARNED JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 2 VALUE "INTEREST RECEIVED" .
02 LINE 22 COLUMN 28 PIC 9(7) TO INT-RECEIVED JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 2 VALUE "RETURNS OUTWARDS(PURCHASES) " .
02 LINE 24 COLUMN 28 PIC 9(7) TO RETURNS-OUT JUST LEFT
REVERSE-VIDEO.
02 LINE 4 COLUMN 38 VALUE "RENT RECEIVED " .
02 LINE 4 COLUMN 65 PIC 9(7) TO RENT-RECEIVED JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 38 VALUE "BANK OVERDRAFT " .
02 LINE 6 COLUMN 65 PIC 9(7) TO BANK-OD JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 38 VALUE "RESERVE FOR BAD DEBTS " .
02 LINE 8 COLUMN 65 PIC 9(7) TO BAD-DEBTS-RES JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 38 VALUE "INTEREST ON INVESTMENTS" .
02 LINE 10 COLUMN 65 PIC 9(7) TO INT-ON-INVESTMENTS JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 38 VALUE "INTEREST ON DEPOSITS " .
02 LINE 12 COLUMN 65 PIC 9(7) TO INT-ON-DEPOSITS JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 38 VALUE "CLOSING STOCK " .
02 LINE 14 COLUMN 65 PIC 9(7) TO CLOSE-STOCK JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 38 VALUE "FREIGHT ON PURCHASE " .
02 LINE 16 COLUMN 65 PIC 9(7) TO PURCHASE-FREIGHT JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 38 VALUE "MANUFACTURING " .
02 LINE 18 COLUMN 65 PIC 9(7) TO MANUFACTURE JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 38 VALUE "INSURANCE CLAIM " .
02 LINE 20 COLUMN 65 PIC 9(7) TO INSURANCE-CLAIM JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 38 VALUE "OCTROI " .
02 LINE 22 COLUMN 65 PIC 9(7) TO OCTROI JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 38 VALUE "CUSTOM DUTY " .
02 LINE 24 COLUMN 65 PIC 9(7) TO CUSTOM-DUTY JUST LEFT
REVERSE-VIDEO.
01 TEL-SCR3.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE CONTD.."
HIGHLIGHT.
02 LINE 4 COLUMN 2 VALUE "ROYALTY " .
02 LINE 4 COLUMN 28 PIC 9(7) TO ROYALTY JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "IMPORT DUTY " .
02 LINE 6 COLUMN 28 PIC 9(7) TO IMPORT-DUTY JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "FUEL AND POWER " .
02 LINE 8 COLUMN 28 PIC 9(7) TO FUEL-POWER JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "WATER CHARGES " .
02 LINE 10 COLUMN 28 PIC 9(7) TO WATER-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "CLEARING CHARGES" .
02 LINE 12 COLUMN 28 PIC 9(7) TO CLEARING-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "CASH IN HAND " .
02 LINE 14 COLUMN 28 PIC 9(7) TO CASH-IN-HAND JUST LEFT
REVERSE-VIDEO.

*------------------------------------------------------------------
01 TRADE-ACC.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 23 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 25 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 2 COLUMN 30 VALUE "TRADING ACCOUNT" HIGHLIGHT .
02 LINE 2 COLUMN 2 VALUE "Dr." HIGHLIGHT.
02 LINE 2 COLUMN 70 VALUE "Cr." HIGHLIGHT.

02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 2 VALUE "TO OPENING STOCK " .
02 LINE 4 COLUMN 28 PIC X(7) FROM OPEN-STOCK .
02 LINE 5 COLUMN 2 VALUE "TO PURCHASE A/C " .
02 LINE 5 COLUMN 28 PIC X(7) FROM PURCHASE-ACC .
02 LINE 6 COLUMN 4 VALUE "--DRAWINGS A/C" .
02 LINE 6 COLUMN 28 PIC X(7) FROM DRAWINGS-ACC .
02 LINE 7 COLUMN 4 VALUE "--PURCHASE RETURN" .
02 LINE 7 COLUMN 28 PIC X(7) FROM RETURNS-OUT .
02 LINE 8 COLUMN 2 VALUE "TO CARRIAGE INWARDS " .
02 LINE 8 COLUMN 28 PIC X(7) FROM CARRIAGE-IN .
02 LINE 9 COLUMN 2 VALUE "TO WAGES " .
02 LINE 9 COLUMN 28 PIC X(7) FROM WAGES .
02 LINE 10 COLUMN 2 VALUE "TO FACTORY RENT " .
02 LINE 10 COLUMN 28 PIC X(7) FROM RENT .
02 LINE 11 COLUMN 2 VALUE "TO FREIGHT ON PURCHASE " .
02 LINE 11 COLUMN 28 PIC X(7) FROM PURCHASE-FREIGHT .
02 LINE 12 COLUMN 2 VALUE "TO MANUFACTURING " .
02 LINE 12 COLUMN 28 PIC X(7) FROM MANUFACTURE .
02 LINE 13 COLUMN 2 VALUE "TO OCTROI " .
02 LINE 13 COLUMN 28 PIC X(7) FROM OCTROI.
02 LINE 14 COLUMN 2 VALUE "TO CUSTOM DUTY " .
02 LINE 14 COLUMN 28 PIC X(7) FROM CUSTOM-DUTY.
02 LINE 15 COLUMN 2 VALUE "TO ROYALTY " .
02 LINE 15 COLUMN 28 PIC X(7) FROM ROYALTY.
02 LINE 16 COLUMN 2 VALUE "TO IMPORT DUTY " .
02 LINE 16 COLUMN 28 PIC X(7) FROM IMPORT-DUTY.
02 LINE 17 COLUMN 2 VALUE "TO FUEL AND POWER " .
02 LINE 17 COLUMN 28 PIC X(7) FROM FUEL-POWER.
02 LINE 18 COLUMN 2 VALUE "TO WATER CHARGES " .
02 LINE 18 COLUMN 28 PIC X(7) FROM WATER-CHARGES.
02 LINE 19 COLUMN 2 VALUE "TO CLEARING CHARGES " .
02 LINE 19 COLUMN 28 PIC X(7) FROM CLEARING-CHARGES.
02 LINE 20 COLUMN 2 VALUE "TO GROSS PROFIT TERANS-" .
02 LINE 21 COLUMN 2 VALUE " FERRED TO P/L a/c" .

02 LINE 20 COLUMN 28 PIC X(7) FROM GROSS-PROFIT.
02 LINE 4 COLUMN 38 VALUE "BY SALES A/C " .
02 LINE 4 COLUMN 65 PIC X(7) FROM SALES-ACC .
02 LINE 5 COLUMN 40 VALUE "--SALES RETURN " .
02 LINE 5 COLUMN 65 PIC X(7) FROM SALES-RET-ACC .
02 LINE 8 COLUMN 38 VALUE "BY INSURANCE CLAIM " .
02 LINE 8 COLUMN 65 PIC X(7) FROM INSURANCE-CLAIM .
02 LINE 10 COLUMN 38 VALUE "BY CLOSING STOCK " .
02 LINE 10 COLUMN 65 PIC X(7) FROM CLOSE-STOCK .
02 LINE 12 COLUMN 38 VALUE "BY GROSS LOSS TRANS- " .
02 LINE 13 COLUMN 38 VALUE " FERRED TO P/L a/c " .

02 LINE 12 COLUMN 65 PIC X(7) FROM GROSS-LOSS .
02 LINE 23 COLUMN 25 PIC X(10) FROM TT-DR.
02 LINE 23 COLUMN 62 PIC X(10) FROM TT-CR.

*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
01 PL-ACC.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 24 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 22 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 2 COLUMN 25 VALUE "PROFIT AND LOSS ACCOUNT" HIGHLIGHT.
02 LINE 2 COLUMN 2 VALUE "Dr." HIGHLIGHT.
02 LINE 2 COLUMN 70 VALUE "Cr." HIGHLIGHT.

02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 2 VALUE "TO GROSS LOSS b/d " .
02 LINE 4 COLUMN 28 PIC X(7) FROM GROSS-LOSS .
*GROSS-LOSS YET TO BE CALCULATED.
02 LINE 6 COLUMN 2 VALUE "TO INTEREST ON LOAN " .
02 LINE 6 COLUMN 28 PIC X(7) FROM INT-ON-LOAN.
02 LINE 7 COLUMN 4 VALUE "TO BAD DEBTS " .
02 LINE 7 COLUMN 28 PIC X(7) FROM BAD-DEBTS.
02 LINE 8 COLUMN 4 VALUE "DISCOUNT ALLOWED " .
02 LINE 8 COLUMN 28 PIC X(7) FROM DISC-TO-CUST.
02 LINE 9 COLUMN 2 VALUE "TO SALARIES " .
02 LINE 9 COLUMN 28 PIC X(7) FROM SALARIES.
02 LINE 10 COLUMN 2 VALUE "TO WAGES " .
02 LINE 10 COLUMN 28 PIC X(7) FROM WAGES .
02 LINE 11 COLUMN 2 VALUE "TO REPAIRS " .
02 LINE 11 COLUMN 28 PIC X(7) FROM REPAIRS.
02 LINE 12 COLUMN 2 VALUE "TO COMMISSION " .
02 LINE 12 COLUMN 28 PIC X(7) FROM COMMISION-EARNED.
02 LINE 13 COLUMN 2 VALUE "TO CARRIAGE OUTWARDS " .
02 LINE 13 COLUMN 28 PIC X(7) FROM CARRIAGE-OUT.
02 LINE 14 COLUMN 2 VALUE "TO RESERVE FOR BAD DEBTS" .
02 LINE 14 COLUMN 28 PIC X(7) FROM BAD-DEBTS-RES.

02 LINE 15 COLUMN 2 VALUE "TO NET PROFIT TRANSFERRED" .
02 LINE 16 COLUMN 5 VALUE "TO CAPITAL A/C " .

02 LINE 15 COLUMN 28 PIC X(7) FROM NET-PROFIT.
*NET-PROFIT YET TO BE CALCULATED.

02 LINE 4 COLUMN 38 VALUE "BY GROSS PROFIT b/d " .
02 LINE 4 COLUMN 65 PIC X(7) FROM GROSS-PROFIT.
* GROSS-PROFIT YET TO BE CALCULATED.
02 LINE 5 COLUMN 38 VALUE "BY COMMISSION RECEIVED " .
02 LINE 5 COLUMN 65 PIC X(7) FROM COMMISION-EARNED.
02 LINE 6 COLUMN 38 VALUE "BY INTEREST RECEIVED " .
02 LINE 6 COLUMN 65 PIC X(7) FROM INT-RECEIVED.
02 LINE 7 COLUMN 38 VALUE "BY RENT RECEIVED " .
02 LINE 7 COLUMN 65 PIC X(7) FROM RENT-RECEIVED.
02 LINE 8 COLUMN 38 VALUE "BY DISCOUNT RECEIVED " .
02 LINE 8 COLUMN 65 PIC X(7) FROM DISC-BY-CREDITORS.
02 LINE 9 COLUMN 38 VALUE "BY INCOME FROM INVESTMENTS" .
02 LINE 9 COLUMN 65 PIC X(7) FROM INT-ON-INVESTMENTS.
02 LINE 10 COLUMN 38 VALUE "BY NET LOSS TRANSFERRED " .
02 LINE 11 COLUMN 41 VALUE "TO CAPITAL A/C " .

02 LINE 10 COLUMN 65 PIC X(7) FROM NET-LOSS.
*NET-LOSS YET TO BE CALCULATED.
02 LINE 23 COLUMN 25 PIC X(10) FROM TPL-DR.
02 LINE 23 COLUMN 62 PIC X(10) FROM TPL-CR.

*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
01 BAL-SHEET.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 22 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 24 COLUMN 1 PIC X(80) FROM DASH-LINE1.

02 LINE 5 COLUMN 1 PIC X(80) FROM DASH-LINE1.

02 LINE 2 COLUMN 30 VALUE "BALANCE-SHEET" HIGHLIGHT.
02 LINE 4 COLUMN 5 VALUE "Liabilities" HIGHLIGHT.
02 LINE 4 COLUMN 28 VALUE "Amount" HIGHLIGHT.
02 LINE 4 COLUMN 45 VALUE "Assets" HIGHLIGHT.
02 LINE 4 COLUMN 65 VALUE "Amount" HIGHLIGHT.

02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 2 VALUE "CAPITAL " .
02 LINE 7 COLUMN 28 PIC X(7) FROM CAPITAL .
02 LINE 8 COLUMN 4 VALUE " +NET PROFIT" .
02 LINE 8 COLUMN 28 PIC X(7) FROM NET-PROFIT.
02 LINE 9 COLUMN 4 VALUE " -DRAWINGS" .
02 LINE 9 COLUMN 28 PIC X(7) FROM DRAWINGS-ACC.
02 LINE 10 COLUMN 4 VALUE " -NET LOSS" .
02 LINE 10 COLUMN 28 PIC X(7) FROM NET-LOSS.

02 LINE 11 COLUMN 2 VALUE "LOANS " .
02 LINE 11 COLUMN 28 PIC X(7) FROM LOAN.
02 LINE 12 COLUMN 4 VALUE " +INT. ON LOANS" .
02 LINE 12 COLUMN 28 PIC X(7) FROM INT-ON-LOAN.

02 LINE 13 COLUMN 2 VALUE "BANK OVERDRAFT " .
02 LINE 13 COLUMN 28 PIC X(7) FROM BANK-OD.
02 LINE 14 COLUMN 2 VALUE "BILLS PAYABLE " .
02 LINE 14 COLUMN 28 PIC X(7) FROM BILLS-PAYABLE.

02 LINE 7 COLUMN 38 VALUE "BUILDING " .
02 LINE 7 COLUMN 65 PIC X(7) FROM BUILDING.
02 LINE 8 COLUMN 38 VALUE "PLANT AND MACHINERY " .
02 LINE 8 COLUMN 65 PIC X(7) FROM MACHINERY.
02 LINE 9 COLUMN 38 VALUE "FURNITURE AND FIXTURES" .
02 LINE 9 COLUMN 65 PIC X(7) FROM FURNITURE.
02 LINE 10 COLUMN 38 VALUE "INVESTMENTS" .
02 LINE 10 COLUMN 65 PIC X(7) FROM INVESTMENTS.
02 LINE 11 COLUMN 40 VALUE " +INT. ON INVESTMENTS" .
02 LINE 11 COLUMN 65 PIC X(7) FROM INT-ON-INVESTMENTS.

02 LINE 12 COLUMN 38 VALUE "BILLS RECEIVABLE" .
02 LINE 12 COLUMN 65 PIC X(7) FROM BILLS-REC.
02 LINE 13 COLUMN 38 VALUE "DEBTORS" .
02 LINE 13 COLUMN 65 PIC X(7) FROM DEBTORS.
02 LINE 14 COLUMN 40 VALUE " -BAD DEBTS" .
02 LINE 14 COLUMN 65 PIC X(7) FROM BAD-DEBTS.
02 LINE 15 COLUMN 40 VALUE " -RES FOR BAD DEBTS" .
02 LINE 15 COLUMN 65 PIC X(7) FROM BAD-DEBTS-RES.

02 LINE 16 COLUMN 38 VALUE "CASH AT BANK" .
02 LINE 16 COLUMN 65 PIC X(7) FROM CASH-AT-BANK.
02 LINE 17 COLUMN 38 VALUE "CASH IN HAND" .
02 LINE 17 COLUMN 65 PIC X(7) FROM CASH-IN-HAND.
02 LINE 23 COLUMN 25 PIC X(10) FROM BAL-LIA.
02 LINE 23 COLUMN 62 PIC X(10) FROM BAL-ASSET.

PROCEDURE DIVISION.
P1.
PERFORM P4.
DISPLAY TITLE.
DISPLAY TEL-SCR.
ACCEPT TEL-SCR .
DISPLAY TITLE.
DISPLAY TEL-SCR2.
ACCEPT TEL-SCR2.
DISPLAY TITLE.
DISPLAY TEL-SCR3.
ACCEPT TEL-SCR3.
DISPLAY TITLE.
COMPUTE TRADE-DR = TRADE-DR + OPEN-STOCK .
COMPUTE TRADE-DR = TRADE-DR + PURCHASE-ACC.
COMPUTE TRADE-DR = TRADE-DR + CARRIAGE-IN.
COMPUTE TRADE-DR = TRADE-DR + WAGES.
COMPUTE TRADE-DR = TRADE-DR + RENT.
COMPUTE TRADE-DR = TRADE-DR + PURCHASE-FREIGHT.
COMPUTE TRADE-DR = TRADE-DR + MANUFACTURE.
COMPUTE TRADE-DR = TRADE-DR + OCTROI.
COMPUTE TRADE-DR = TRADE-DR + CUSTOM-DUTY.
COMPUTE TRADE-DR = TRADE-DR + ROYALTY.
COMPUTE TRADE-DR = TRADE-DR + IMPORT-DUTY.
COMPUTE TRADE-DR = TRADE-DR + FUEL-POWER.
COMPUTE TRADE-DR = TRADE-DR + WATER-CHARGES.
COMPUTE TRADE-DR = TRADE-DR + CLEARING-CHARGES.
COMPUTE TRADE-DR = TRADE-DR - DRAWINGS-ACC.
COMPUTE TRADE-DR = TRADE-DR - RETURNS-OUT.

COMPUTE TRADE-CR = TRADE-CR + SALES-ACC.
COMPUTE TRADE-CR = TRADE-CR + INSURANCE-CLAIM.
COMPUTE TRADE-CR = TRADE-CR + CLOSE-STOCK.
COMPUTE TRADE-CR = TRADE-CR - SALES-RET-ACC.

IF TRADE-CR > TRADE-DR
COMPUTE GROSS-PROFIT = TRADE-CR - TRADE-DR.
IF TRADE-CR <>
COMPUTE GROSS-LOSS = TRADE-DR - TRADE-CR.

COMPUTE TT-CR = TRADE-CR + GROSS-LOSS.
COMPUTE TT-DR = TRADE-DR + GROSS-PROFIT.

DISPLAY " TRADE-DR IS " TRADE-DR.
DISPLAY " CLOSE-STOCK IS " CLOSE-STOCK.
DISPLAY " TRADE-CR = " TRADE-CR.

ACCEPT HIT.
DISPLAY TITLE.

DISPLAY TRADE-ACC.
ACCEPT HIT.
DISPLAY TITLE.

COMPUTE PL-DR = PL-DR + INT-ON-LOAN .
COMPUTE PL-DR = PL-DR + BAD-DEBTS.
COMPUTE PL-DR = PL-DR + DISC-TO-CUST.
COMPUTE PL-DR = PL-DR + SALARIES.
COMPUTE PL-DR = PL-DR + WAGES.
COMPUTE PL-DR = PL-DR + REPAIRS.
COMPUTE PL-DR = PL-DR + CARRIAGE-OUT.
COMPUTE PL-DR = PL-DR + BAD-DEBTS-RES.
COMPUTE PL-DR = PL-DR + GROSS-LOSS .
COMPUTE PL-CR = PL-CR + COMMISION-EARNED.
COMPUTE PL-CR = PL-CR + INT-RECEIVED.
COMPUTE PL-CR = PL-CR + RENT-RECEIVED.
COMPUTE PL-CR = PL-CR + DISC-BY-CREDITORS.
COMPUTE PL-CR = PL-CR + INT-ON-INVESTMENTS.
COMPUTE PL-CR = PL-CR + GROSS-PROFIT.

IF PL-CR > PL-DR
COMPUTE NET-PROFIT = PL-CR - PL-DR.
IF PL-CR <>
COMPUTE NET-LOSS = PL-DR - PL-CR.

COMPUTE TPL-CR = PL-CR + NET-LOSS.
COMPUTE TPL-DR = PL-DR + NET-PROFIT.

DISPLAY "PL-DR IS " PL-DR.
DISPLAY " PL-CR IS " PL-CR.
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY TITLE.
DISPLAY PL-ACC.
ACCEPT HIT.
DISPLAY TITLE.

COMPUTE BAL-LIA = BAL-LIA + CAPITAL .
COMPUTE BAL-LIA = BAL-LIA + NET-PROFIT .
COMPUTE BAL-LIA = BAL-LIA + LOAN.
COMPUTE BAL-LIA = BAL-LIA + INT-ON-LOAN.
COMPUTE BAL-LIA = BAL-LIA + BANK-OD.
COMPUTE BAL-LIA = BAL-LIA + BILLS-PAYABLE.
COMPUTE BAL-LIA = BAL-LIA - DRAWINGS-ACC.
COMPUTE BAL-LIA = BAL-LIA - NET-LOSS.

COMPUTE BAL-ASSET = BAL-ASSET + BUILDING.
COMPUTE BAL-ASSET = BAL-ASSET + MACHINERY.
COMPUTE BAL-ASSET = BAL-ASSET + FURNITURE.
COMPUTE BAL-ASSET = BAL-ASSET + INVESTMENTS.
COMPUTE BAL-ASSET = BAL-ASSET + INT-ON-INVESTMENTS.
COMPUTE BAL-ASSET = BAL-ASSET + BILLS-REC.
COMPUTE BAL-ASSET = BAL-ASSET + DEBTORS.
COMPUTE BAL-ASSET = BAL-ASSET + CASH-AT-BANK.
COMPUTE BAL-ASSET = BAL-ASSET + CASH-IN-HAND.
COMPUTE BAL-ASSET = BAL-ASSET - BAD-DEBTS.
COMPUTE BAL-ASSET = BAL-ASSET - BAD-DEBTS-RES.

DISPLAY " BAL-LIA IS " BAL-LIA.
DISPLAY " BAL-ASSET IS " BAL-ASSET.
ACCEPT HIT.
DISPLAY TITLE.

P2.
DISPLAY TITLE.
DISPLAY BAL-SHEET.
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY THANKS.
ACCEPT HIT.
STOP RUN.
P4.
DISPLAY TITLE.
DISPLAY MAIN-TITLE.
DISPLAY ( 4 , 1 ) DASH-LINE1 .
DISPLAY ( 6 , 1 ) DASH-LINE1 .
DISPLAY ( 17 , 1 ) DASH-LINE1 .
DISPLAY ( 21 , 1 ) DASH-LINE1 .
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY INTRO .
DISPLAY ( 1 , 1 ) DASH-LINE1 .
DISPLAY ( 3 , 1 ) DASH-LINE1 .
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY OBJECT.
DISPLAY ( 1 , 1 ) DASH-LINE1 .
DISPLAY ( 3 , 1 ) DASH-LINE1 .
ACCEPT HIT
.

Program to calculat yearly depreciation in Cobol.

2010-04-07T08:09:00.000-07:00

Identification Division.
Program-id. Q1.
Environment Division.
Configuration Section.
Source-Computer. IBM PC.
Object-Computer. IBM PC.
Input-Output Section.
SELECT in-file assign to "IN.DAT" organization is
line sequential.
SELECT out-file assign to "Out.txt".

Data Division.
File Section.
FD in-file.
01 in-rec.
02 in-itemno pic X(5).
02 in-cost pic 9(3)V9(2).
02 in-scrapvalue pic 9(3)v9(2).
02 in-y-o-l pic 99.
FD out-file.
01 out-rec pic X(80).

Working-Storage Section.
77 depreciation pic 9(3).9(2).
77 EOF pic X value "N".
77 Heading1 pic X(80) value all "-".
01 out-format.
02 out-itemno pic X(5).
02 F pic X(15) value spaces.
02 out-depreciation pic 999.99.

Procedure Division.
Main-para.
Open input in-file Output out-file.
Move Heading1 to out-rec.
Write out-rec before advancing 1 line.
Move " YEARLY DEPRECIATION REPORT"
to out-rec.
Write out-rec before advancing 1 line.
Move Heading1 to out-rec.
Write out-rec before advancing 1 line.
Move "ITEM CODE DEPRECIATION" to out-rec.
Write out-rec before advancing 1 line.

Read in-file at end move "Y" to EOF.

Perform calc-para until EOF = "Y".
Display "The Details have been written to file OUT.DAT".
Close in-file , out-file.
Stop Run.
calc-para .
Compute depreciation = ( in-cost - in-scrapvalue ) / in-y-o-l.
Move in-itemno to out-itemno.
Move depreciation to out-depreciation.
Move out-format to out-rec.
Write out-rec before advancing 1 line.
Read in-file at end move "Y" to EOF.

Creating Mailing Labels in COBOL

2009-06-02T08:31:00.002-07:00

 ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
            SELECT INPUT-FILE
                ASSIGN TO 'PERSON.DAT'.
            SELECT PRINT-FILE
                ASSIGN TO 'LABELS.TXT'.

       DATA DIVISION.
       FILE SECTION.

       FD INPUT-FILE
          DATA RECORD IS INPUT-RECORD.

       01  INPUT-RECORD.
           02  INPUT-ID             PICTURE X(10).
           02  INPUT-NAME           PICTURE X(25).
           02  INPUT-ADDRESS        PICTURE X(25).
           02  INPUT-CITY           PICTURE X(15).
           02  INPUT-STATE          PICTURE X(2).
           02  INPUT-ZIP            PICTURE X(5).

       FD PRINT-FILE
          DATA RECORD IS PRINT-LINE.

       01 PRINT-LINE                PICTURE X(80).

       WORKING-STORAGE SECTION.

       01  LABEL-TABLE.
           02  LABEL-ROW OCCURS 3 TIMES
                   INDEXED BY ROW-INDEX.
               03  LABEL-COLUMN OCCURS 3 TIMES
                       INDEXED BY COLUMN-INDEX.
                   04  FILLER       PICTURE X(1).
                   04  LABEL-FIELD  PICTURE X(25).

       01  NAME-FLIP-AREA.
           02  FIRST-NAME           PICTURE X(25).
           02  LAST-NAME            PICTURE X(25).
           02  WHOLE-NAME           PICTURE X(25).

       01  WORKING-TABLE.
           05  WORK-LETTER          OCCURS 30 TIMES       PICTURE X.

       01  X                        PICTURE 9(2) COMP.

       01  CONVERT-CASE-TEXT.
           02  FILLER               PICTURE X(52) VALUE
               'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz'.
       01  CONVERT-CASE-TABLE REDEFINES CONVERT-CASE-TEXT.
           02  CONVERT-CASE-LETTER  OCCURS 26 TIMES
               INDEXED BY CONVERT-INDEX.
               03  CONVERT-UPPER    PICTURE X.
               03  CONVERT-LOWER    PICTURE X.

       01  CONVERT-FLAG             PICTURE X.

       01  EOF-FLAG                 PICTURE X.
           88 END-OF-INPUT-FILE     VALUE 'Y'.

       PROCEDURE DIVISION.
       MAIN-LINE.
           PERFORM INITIALIZATION-ROUTINE.
           PERFORM PRINT-LABELS
               UNTIL END-OF-INPUT-FILE.
           PERFORM EOJ-ROUTINE.
           STOP RUN.

       INITIALIZATION-ROUTINE.
           OPEN INPUT INPUT-FILE.
           OPEN OUTPUT PRINT-FILE.
           MOVE 'N' TO EOF-FLAG.
           READ INPUT-FILE
                AT END MOVE 'Y' TO EOF-FLAG.

       PRINT-LABELS.
           MOVE SPACES TO LABEL-TABLE.
           PERFORM BUILD-A-LABEL
               VARYING COLUMN-INDEX FROM 1 BY 1
                   UNTIL COLUMN-INDEX > 3
                       OR END-OF-INPUT-FILE.
           WRITE PRINT-LINE FROM LABEL-ROW (1).
           WRITE PRINT-LINE FROM LABEL-ROW (2).
           WRITE PRINT-LINE FROM LABEL-ROW (3).
           MOVE SPACES TO PRINT-LINE.
           WRITE PRINT-LINE AFTER ADVANCING 2 LINES.

       BUILD-A-LABEL.
           SET ROW-INDEX TO 1.
           PERFORM NAME-FLIP-FLOP.
           MOVE WHOLE-NAME TO WORKING-TABLE.
           PERFORM CHANGE-TO-MIXED-CASE
                   VARYING X FROM 2 BY 1
                   UNTIL X > 25.
           MOVE WORKING-TABLE TO LABEL-FIELD (ROW-INDEX, COLUMN-INDEX).
           SET ROW-INDEX UP BY 1.
           MOVE INPUT-ADDRESS TO WORKING-TABLE.
           PERFORM CHANGE-TO-MIXED-CASE
                   VARYING X FROM 2 BY 1
                   UNTIL X > 25.
           MOVE WORKING-TABLE TO LABEL-FIELD (ROW-INDEX, COLUMN-INDEX).
           SET ROW-INDEX UP BY 1.
           MOVE INPUT-CITY TO WORKING-TABLE.
           PERFORM CHANGE-TO-MIXED-CASE
                   VARYING X FROM 2 BY 1
                   UNTIL X > 25.
           STRING WORKING-TABLE  DELIMITED BY '  '
                  ', '           DELIMITED BY SIZE
                  INPUT-STATE    DELIMITED BY SIZE
                  ' '            DELIMITED BY SIZE
                  INPUT-ZIP      DELIMITED BY SIZE
             INTO LABEL-FIELD (ROW-INDEX, COLUMN-INDEX).
           READ INPUT-FILE
                AT END MOVE 'Y' TO EOF-FLAG.

       NAME-FLIP-FLOP.
           MOVE 1 TO X.
           MOVE SPACES TO NAME-FLIP-AREA.
           UNSTRING INPUT-NAME DELIMITED BY ', '
               INTO LAST-NAME FIRST-NAME.
           INSPECT LAST-NAME
               REPLACING ALL ',' BY SPACE.
           STRING FIRST-NAME DELIMITED BY '  '
                  ' '        DELIMITED BY SIZE
                  LAST-NAME  DELIMITED BY '  '
             INTO WHOLE-NAME.

       CHANGE-TO-MIXED-CASE.
      * Start with the assumption that we will convert this letter to
      * lower case (set flag to Yes) then look for exceptions that
      * should be left upper case (set flag to No).
           MOVE 'Y' TO CONVERT-FLAG.
           IF (WORK-LETTER (X - 1) = " ")
           OR (WORK-LETTER (X - 1) = "-")
           OR (WORK-LETTER (X - 1) = "'")
           OR (WORK-LETTER (X - 1) = ".")
                   MOVE 'N' TO CONVERT-FLAG.
           IF (WORK-LETTER (X - 2) = "M"
               AND WORK-LETTER (X - 1) = "c")
                   MOVE 'N' TO CONVERT-FLAG.
           IF CONVERT-FLAG = 'Y'
                   PERFORM CONVERT-TO-LOWER-CASE.

       CONVERT-TO-LOWER-CASE.
           SET CONVERT-INDEX TO 1.
           SEARCH CONVERT-CASE-LETTER
               WHEN WORK-LETTER (X) = CONVERT-UPPER (CONVERT-INDEX)
               MOVE CONVERT-LOWER (CONVERT-INDEX) TO WORK-LETTER (X).

       EOJ-ROUTINE.
           CLOSE INPUT-FILE.
           CLOSE PRINT-FILE.

Sorting on Calculated Field in cobol

2009-06-02T08:31:00.001-07:00

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTC.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTC.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT SORT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

DATA DIVISION.
FILE SECTION.
FD IN-FILE
DATA RECORD IS IN-RECORD.
01 IN-RECORD.
02 IN-STUDENT-NAME PIC X(15).
02 IN-CREDITS-TAKEN PIC 9(3).
02 IN-QUALITY-POINTS PIC 9(3).

FD OUT-FILE
DATA RECORD IS OUT-RECORD.
01 OUT-RECORD PIC X(80).

SD SORT-FILE
DATA RECORD IS SORT-RECORD.
01 SORT-RECORD.
02 SORT-STUDENT-NAME PIC X(15).
02 SORT-CREDITS-TAKEN PIC 9(3).
02 SORT-QUALITY-POINTS PIC 9(3).
02 SORT-GPA PIC 9V99.

WORKING-STORAGE SECTION.

01 DETAIL-LINE.
02 DETAIL-STUDENT-NAME PIC X(15).
02 PIC X(3) VALUE SPACES.
02 DETAIL-GPA PIC 9.99.

01 SORTED-DATA-SWITCH PIC X VALUE 'N'.
88 NO-MORE-SORTED-DATA VALUE 'Y'.

01 EOF-SWITCH PIC X VALUE 'N'.
88 NO-MORE-INPUT-RECORDS VALUE 'Y'.

PROCEDURE DIVISION.
MAIN-LOGIC.
SORT SORT-FILE
ON DESCENDING KEY SORT-GPA
INPUT PROCEDURE IS CALCULATE-GPA
OUTPUT PROCEDURE IS PRINT-THE-REPORT.
STOP RUN.

CALCULATE-GPA.
OPEN INPUT IN-FILE.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.
PERFORM DATA-LOOP
UNTIL NO-MORE-INPUT-RECORDS.
CLOSE IN-FILE.

DATA-LOOP.
MOVE IN-STUDENT-NAME TO SORT-STUDENT-NAME.
MOVE IN-CREDITS-TAKEN TO SORT-CREDITS-TAKEN.
MOVE IN-QUALITY-POINTS TO SORT-QUALITY-POINTS.
COMPUTE SORT-GPA ROUNDED =
IN-QUALITY-POINTS / IN-CREDITS-TAKEN.
RELEASE SORT-RECORD.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.

PRINT-THE-REPORT.
OPEN OUTPUT OUT-FILE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
PERFORM REPORT-LOOP
UNTIL NO-MORE-SORTED-DATA.
CLOSE OUT-FILE.

REPORT-LOOP.
MOVE SORT-STUDENT-NAME TO DETAIL-STUDENT-NAME.
MOVE SORT-GPA TO DETAIL-GPA.
WRITE OUT-RECORD FROM DETAIL-LINE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

Input

CHARLIE HACKLEY010040
GORDON HUME 006018
TOMMY BEIDLER 012048
KATHY PECK 040080
MARY UECKER 020070
J.C. SANFORD 006000
DUANE NORTON 015042

Output (report sorted by calculated field G.P.A.)

CHARLIE HACKLEY 4.00
TOMMY BEIDLER 4.00
MARY UECKER 3.50
GORDON HUME 3.00
DUANE NORTON 2.80
KATHY PECK 2.00
J.C. SANFORD 0.00

Sorting Example: With Control Break in COBOL

2009-06-02T08:30:00.001-07:00

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED4.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT SORT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

DATA DIVISION.
FILE SECTION.
FD IN-FILE
DATA RECORD IS IN-RECORD.
01 IN-RECORD.
02 IN-ID PIC 9(5).
02 IN-LAST-NAME PIC X(15).
02 IN-FIRST-NAME PIC X(10).
02 IN-CITY PIC X(12).
02 IN-STATE PIC X(2).
88 VALID-STATE-CODE VALUES 'AK'
'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

FD OUT-FILE
DATA RECORD IS OUT-RECORD.
01 OUT-RECORD PIC X(80).

SD SORT-FILE
DATA RECORD IS SORT-RECORD.
01 SORT-RECORD.
02 SORT-ID PIC 9(5).
02 SORT-LAST-NAME PIC X(15).
02 SORT-FIRST-NAME PIC X(10).
02 SORT-CITY PIC X(12).
02 SORT-STATE PIC X(2).

WORKING-STORAGE SECTION.

01 DETAIL-LINE.
02 DETAIL-ID PIC 9(5).
02 PIC X(3) VALUE SPACES.
02 DETAIL-LAST-NAME PIC X(15).
02 PIC X(3) VALUE SPACES.
02 DETAIL-FIRST-NAME PIC X(10).
02 PIC X(3) VALUE SPACES.
02 DETAIL-CITY PIC X(12).
02 PIC X(3) VALUE SPACES.
02 DETAIL-STATE PIC X(2).

01 SORTED-DATA-SWITCH PIC X VALUE 'N'.
88 NO-MORE-SORTED-DATA VALUE 'Y'.

01 EOF-SWITCH PIC X VALUE 'N'.
88 NO-MORE-INPUT-RECORDS VALUE 'Y'.

01 STATE-COUNT PIC 9(3) VALUE ZERO.

01 BREAK-LINE.
02 PIC X(8) VALUE SPACES.
02 PRINT-COUNT PIC ZZ9.
02 PIC X(12)
VALUE ' RECORDS IN '.
02 CURRENT-STATE PIC X(2).

PROCEDURE DIVISION.
MAIN-LOGIC.
SORT SORT-FILE
ON ASCENDING KEY SORT-STATE
ON ASCENDING KEY SORT-LAST-NAME
INPUT PROCEDURE IS INPUT-LOGIC
OUTPUT PROCEDURE IS CREATE-REPORT.
STOP RUN.

INPUT-LOGIC.
OPEN INPUT IN-FILE.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.
PERFORM DATA-LOOP
UNTIL NO-MORE-INPUT-RECORDS.
CLOSE IN-FILE.

DATA-LOOP.
IF VALID-STATE-CODE
MOVE IN-RECORD TO SORT-RECORD
RELEASE SORT-RECORD.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.

CREATE-REPORT.
OPEN OUTPUT OUT-FILE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
MOVE SORT-STATE TO CURRENT-STATE.
PERFORM REPORT-LOOP
UNTIL NO-MORE-SORTED-DATA.
PERFORM DO-CONTROL-BREAK.
CLOSE OUT-FILE.

REPORT-LOOP.
IF SORT-STATE NOT = CURRENT-STATE
PERFORM DO-CONTROL-BREAK.
MOVE SORT-ID TO DETAIL-ID
MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
MOVE SORT-CITY TO DETAIL-CITY.
MOVE SORT-STATE TO DETAIL-STATE.
WRITE OUT-RECORD FROM DETAIL-LINE.
ADD 1 TO STATE-COUNT.
MOVE SORT-STATE TO CURRENT-STATE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

DO-CONTROL-BREAK.
MOVE STATE-COUNT TO PRINT-COUNT.
WRITE OUT-RECORD FROM BREAK-LINE AFTER 2.
MOVE ZERO TO STATE-COUNT
MOVE SPACES TO OUT-RECORD.
WRITE OUT-RECORD.

Input

91163Dube Jason Chicago IL
61535King Adriane Cincinnati OH
45636Holtz Rachel Newport KY
10216Gehl Bryan Louisville KY
52158Flynn Ashley Muskegon MI
22277Theis Hanah Norwood OH
38551Solpa Mac Lansing MI
78496McCoy Amanda Brookfield WI
65720Read Sean Springfield BF
94000Waymel Bradley Kalamazoo MI
42966Vilella Reza Urbana IL
04928Streeter Farhad Toledo OH
69216Steele Karen Covington KY
56913Moreno Jan Dayton OH
34932Vogel Sandra Grand RapidsMI

Output (report with control break)

91163 Dube Jason Chicago IL
42966 Vilella Reza Urbana IL

2 RECORDS IN IL

10216 Gehl Bryan Louisville KY
45636 Holtz Rachel Newport KY
69216 Steele Karen Covington KY

3 RECORDS IN KY

52158 Flynn Ashley Muskegon MI
38551 Solpa Mac Lansing MI
34932 Vogel Sandra Grand Rapids MI
94000 Waymel Bradley Kalamazoo MI

4 RECORDS IN MI

61535 King Adriane Cincinnati OH
56913 Moreno Jan Dayton OH
04928 Streeter Farhad Toledo OH
22277 Theis Hanah Norwood OH

4 RECORDS IN OH

78496 McCoy Amanda Brookfield WI

1 RECORDS IN WI

Sort Example: With Header and Footer

2009-06-02T08:29:00.002-07:00

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED3A.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT SORT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

DATA DIVISION.
FILE SECTION.
FD IN-FILE
DATA RECORD IS IN-RECORD.
01 IN-RECORD.
02 IN-ID PIC 9(5).
02 IN-LAST-NAME PIC X(15).
02 IN-FIRST-NAME PIC X(10).
02 IN-CITY PIC X(12).
02 IN-STATE PIC X(2).
88 VALID-STATE-CODE VALUES 'AK'
'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

FD OUT-FILE
DATA RECORD IS OUT-RECORD.
01 OUT-RECORD PIC X(80).

SD SORT-FILE
DATA RECORD IS SORT-RECORD.
01 SORT-RECORD.
02 SORT-ID PIC 9(5).
02 SORT-LAST-NAME PIC X(15).
02 SORT-FIRST-NAME PIC X(10).
02 SORT-CITY PIC X(12).
02 SORT-STATE PIC X(2).

WORKING-STORAGE SECTION.

01 DETAIL-LINE.
02 DETAIL-ID PIC 9(5).
02 PIC X(3) VALUE SPACES.
02 DETAIL-LAST-NAME PIC X(15).
02 PIC X(3) VALUE SPACES.
02 DETAIL-FIRST-NAME PIC X(10).
02 PIC X(3) VALUE SPACES.
02 DETAIL-CITY PIC X(12).
02 PIC X(3) VALUE SPACES.
02 DETAIL-STATE PIC X(2).

01 SORTED-DATA-SWITCH PIC X VALUE 'N'.
88 NO-MORE-SORTED-DATA VALUE 'Y'.

01 EOF-SWITCH PIC X VALUE 'N'.
88 NO-MORE-INPUT-RECORDS VALUE 'Y'.

01 RECORD-COUNT PIC 9(3) VALUE ZERO.

01 HEADER-LINE.
02 PIC X(8) VALUE 'ID NUM'.
02 PIC X(18) VALUE 'LAST NAME'.
02 PIC X(13) VALUE 'FIRST NAME'.
02 PIC X(15) VALUE 'CITY'.
02 PIC X(5) VALUE 'STATE'.

01 FOOTER-LINE.
02 PIC X(8) VALUE SPACES.
02 FOOTER-COUNT PIC ZZ9.
02 PIC X(20)
VALUE ' RECORDS PROCESSED'.

PROCEDURE DIVISION.
MAIN-LOGIC.
SORT SORT-FILE
ON ASCENDING KEY SORT-LAST-NAME
INPUT PROCEDURE IS INPUT-LOGIC
OUTPUT PROCEDURE IS CREATE-REPORT.
STOP RUN.

INPUT-LOGIC.
OPEN INPUT IN-FILE.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.
PERFORM DATA-LOOP
UNTIL NO-MORE-INPUT-RECORDS.
CLOSE IN-FILE.

DATA-LOOP.
IF VALID-STATE-CODE
MOVE IN-RECORD TO SORT-RECORD
RELEASE SORT-RECORD.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.

CREATE-REPORT.
OPEN OUTPUT OUT-FILE.
PERFORM PRINT-HEADERS.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
PERFORM REPORT-LOOP
UNTIL NO-MORE-SORTED-DATA.
PERFORM PRINT-FOOTERS.
CLOSE OUT-FILE.

REPORT-LOOP.
MOVE SORT-ID TO DETAIL-ID
MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
MOVE SORT-CITY TO DETAIL-CITY.
MOVE SORT-STATE TO DETAIL-STATE.
WRITE OUT-RECORD FROM DETAIL-LINE.
ADD 1 TO RECORD-COUNT.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

PRINT-HEADERS.
WRITE OUT-RECORD FROM HEADER-LINE.
MOVE SPACES TO OUT-RECORD.
WRITE OUT-RECORD.

PRINT-FOOTERS.
MOVE RECORD-COUNT TO FOOTER-COUNT.
WRITE OUT-RECORD FROM FOOTER-LINE AFTER 2.

Input

91163Dube Jason Chicago IL
61535King Adriane Cincinnati OH
45636Holtz Rachel Newport KY
10216Gehl Bryan Louisville KY
52158Flynn Ashley Muskegon MI
22277Theis Hanah Norwood OH
38551Solpa Mac Lansing MI
78496McCoy Amanda Brookfield WI
65720Read Sean Springfield BF
94000Waymel Bradley Kalamazoo MI
42966Vilella Reza Urbana IL
04928Streeter Farhad Toledo OH
69216Steele Karen Covington KY
56913Moreno Jan Dayton OH
34932Vogel Sandra Grand RapidsMI

Output

ID NUM LAST NAME FIRST NAME CITY STATE

91163 Dube Jason Chicago IL
52158 Flynn Ashley Muskegon MI
10216 Gehl Bryan Louisville KY
45636 Holtz Rachel Newport KY
61535 King Adriane Cincinnati OH
78496 McCoy Amanda Brookfield WI
56913 Moreno Jan Dayton OH
38551 Solpa Mac Lansing MI
69216 Steele Karen Covington KY
04928 Streeter Farhad Toledo OH
22277 Theis Hanah Norwood OH
42966 Vilella Reza Urbana IL
34932 Vogel Sandra Grand Rapids MI
94000 Waymel Bradley Kalamazoo MI

14 RECORDS PROCESSED

Sort Example: OUTPUT PROCEDURE In Cobol

2009-06-02T08:29:00.001-07:00

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED3.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT SORT-FILE
ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

DATA DIVISION.
FILE SECTION.
FD IN-FILE
DATA RECORD IS IN-RECORD.
01 IN-RECORD.
02 IN-ID PIC 9(5).
02 IN-LAST-NAME PIC X(15).
02 IN-FIRST-NAME PIC X(10).
02 IN-CITY PIC X(12).
02 IN-STATE PIC X(2).
88 VALID-STATE-CODE VALUES 'AK'
'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

FD OUT-FILE
DATA RECORD IS OUT-RECORD.
01 OUT-RECORD PIC X(80).

SD SORT-FILE
DATA RECORD IS SORT-RECORD.
01 SORT-RECORD.
02 SORT-ID PIC 9(5).
02 SORT-LAST-NAME PIC X(15).
02 SORT-FIRST-NAME PIC X(10).
02 SORT-CITY PIC X(12).
02 SORT-STATE PIC X(2).

WORKING-STORAGE SECTION.

01 DETAIL-LINE.
02 DETAIL-ID PIC 9(5).
02 PIC X(3) VALUE SPACES.
02 DETAIL-LAST-NAME PIC X(15).
02 PIC X(3) VALUE SPACES.
02 DETAIL-FIRST-NAME PIC X(10).
02 PIC X(3) VALUE SPACES.
02 DETAIL-CITY PIC X(12).
02 PIC X(3) VALUE SPACES.
02 DETAIL-STATE PIC X(2).

01 SORTED-DATA-SWITCH PIC X VALUE 'N'.
88 NO-MORE-SORTED-DATA VALUE 'Y'.

01 EOF-SWITCH PIC X VALUE 'N'.
88 NO-MORE-INPUT-RECORDS VALUE 'Y'.

PROCEDURE DIVISION.
MAIN-LOGIC.
SORT SORT-FILE
ON ASCENDING KEY SORT-LAST-NAME
INPUT PROCEDURE IS INPUT-LOGIC
OUTPUT PROCEDURE IS CREATE-REPORT.
STOP RUN.

INPUT-LOGIC.
OPEN INPUT IN-FILE.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.
PERFORM DATA-LOOP
UNTIL NO-MORE-INPUT-RECORDS.
CLOSE IN-FILE.

DATA-LOOP.
IF VALID-STATE-CODE
MOVE IN-RECORD TO SORT-RECORD
RELEASE SORT-RECORD.
READ IN-FILE
AT END MOVE 'Y' TO EOF-SWITCH.

CREATE-REPORT.
OPEN OUTPUT OUT-FILE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
PERFORM REPORT-LOOP
UNTIL NO-MORE-SORTED-DATA.
CLOSE OUT-FILE.

REPORT-LOOP.
MOVE SORT-ID TO DETAIL-ID
MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
MOVE SORT-CITY TO DETAIL-CITY.
MOVE SORT-STATE TO DETAIL-STATE.
WRITE OUT-RECORD FROM DETAIL-LINE.
RETURN SORT-FILE
AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

Input

91163Dube Jason Chicago IL
61535King Adriane Cincinnati OH
45636Holtz Rachel Newport KY
10216Gehl Bryan Louisville KY
52158Flynn Ashley Muskegon MI
22277Theis Hanah Norwood OH
38551Solpa Mac Lansing MI
78496McCoy Amanda Brookfield WI
65720Read Sean Springfield BF
94000Waymel Bradley Kalamazoo MI
42966Vilella Reza Urbana IL
04928Streeter Farhad Toledo OH
69216Steele Karen Covington KY
56913Moreno Jan Dayton OH
34932Vogel Sandra Grand RapidsMI

Output (report sorted by name)

91163 Dube Jason Chicago IL
52158 Flynn Ashley Muskegon MI
10216 Gehl Bryan Louisville KY
45636 Holtz Rachel Newport KY
61535 King Adriane Cincinnati OH
78496 McCoy Amanda Brookfield WI
56913 Moreno Jan Dayton OH
38551 Solpa Mac Lansing MI
69216 Steele Karen Covington KY
04928 Streeter Farhad Toledo OH
22277 Theis Hanah Norwood OH
42966 Vilella Reza Urbana IL
34932 Vogel Sandra Grand Rapids MI
94000 Waymel Bradley Kalamazoo MI

INPUT PROCEDURE with inline PERFORM

2009-06-02T08:26:00.000-07:00

Sort Example: INPUT PROCEDURE

2009-06-02T08:25:00.000-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED2.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               GIVING OUT-FILE.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by name with invalid state code omitted)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

Multiple Sort Keys In COBOL

2009-06-02T08:24:00.000-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED1A.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      PROCEDURE DIVISION.
      MAINLINE.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-STATE
               ON ASCENDING KEY SORT-LAST-NAME
               USING IN-FILE
               GIVING OUT-FILE.
          STOP RUN.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by state then by name)

65720Read           Sean      Springfield BF
91163Dube           Jason     Chicago     IL
42966Vilella        Reza      Urbana      IL
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
69216Steele         Karen     Covington   KY
52158Flynn          Ashley    Muskegon    MI
38551Solpa          Mac       Lansing     MI
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI
61535King           Adriane   Cincinnati  OH
56913Moreno         Jan       Dayton      OH
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
78496McCoy          Amanda    Brookfield  WI

Program to show USING and GIVING options of the SORT.

2009-06-02T08:23:00.000-07:00

 ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED1.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      PROCEDURE DIVISION.
      MAINLINE.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               USING IN-FILE
               GIVING OUT-FILE.
          STOP RUN.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by last name)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
65720Read           Sean      Springfield BF
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

Use Excel to Compute COBOL Results

2009-05-07T10:12:00.000-07:00

Does Excel belong in a COBOL class? We think it does because it is a fantastic tool with which to compute anticipated output, the first step in developing any COBOL program. The first thing I do as an instructor in assigning a project, is to require students to submit the anticipated output based on the sample data supplied with the program. They can do this via pencil and paper. They can also do it in Excel depending on how much of the application they remember. But it's easy. In essence you open a data file in Excel (be sure to specify all files as the file type) and the Input Wizard will convert the txt file to a workbook. From there you can use formulas as appropriate to get the output.

As indicated, the first step in the assignment is for the student to read the processing specifications and to compute the intended results. The typical solution is traditional, with pencil and paper, but you can facilitate the process with an Excel worksheet. Regardless, however, of how the student determines the anticipated output, computation of the output does several things:

It confirms for both student and instructor the desired result of the COBOL program. The student knows the intended result and the instructor has an invaluable aid in grading the projects.
It eliminates any ambiguities that might exist in the specifications and/or clarifies the intended result of more complicated specifications.
It reinforces material learned in an earlier class; moreover the concept is applicable to programming in any language.

Once the class is introduced to Excel, the next question is inevitably "If I can do this in 10 minutes in Excel, why do I need two weeks to write a COBOL program?" The answer in a word is the I/O capability that is built into COBOL to process large files, which far exceeds the capability of a spreadsheet. Of course not every project is amenable to a solution by Excel, but you will be pleasantly surprised at how many fit. More advanced projects will require the Excel IF, VLOOKUP, and SUBTOTAL functions, but students enjoy this review.

Using the Primary Key for a Record Look-up

2009-05-07T10:08:00.000-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\I\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

      DATA DIVISION.
      FILE SECTION.

      FD  PERSON-FILE
          DATA RECORD IS PERSON-ITEM.

      01  PERSON-ITEM.
          02  PERSON-KEY.
              03  PERSON-ID           PICTURE X(4).
          02  PERSON-ALTERNATE-KEY.
              03  PERSON-NAME         PICTURE X(20).
          02  PERSON-ADDRESS          PICTURE X(20).
          02  PERSON-CITY             PICTURE X(18).
          02  PERSON-STATE            PICTURE X(2).
          02  PERSON-ZIP              PICTURE X(5).
          02  PERSON-PHONE.
              03  PERSON-AREA-CODE    PICTURE X(3).
              03  PERSON-PHONE-NUMBER PICTURE X(7).
          02  PERSON-STATUS           PICTURE X.

      WORKING-STORAGE SECTION.

      01  INVALID-PERSON-KEY-FLAG     PICTURE X.
          88  INVALID-PERSON-KEY      VALUE 'Y'.
          88  VALID-PERSON-KEY        VALUE 'N'.

      01  IO-FILE-STATUS PICTURE X(2).

      PROCEDURE DIVISION.
      
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM LOOKUP-A-RECORD.
          PERFORM EOJ-ROUTINE.
          STOP RUN.
      

      INITIALIZATION-ROUTINE.
          OPEN I-O PERSON-FILE.


      LOOKUP-A-RECORD.
          DISPLAY 'Enter ID Number for the record you want to view: '.
          ACCEPT PERSON-KEY.
          PERFORM GET-PERSON-ITEM.
          IF INVALID-PERSON-KEY
             DISPLAY 'Record not found'
          ELSE
             DISPLAY PERSON-NAME
             DISPLAY PERSON-ADDRESS
             DISPLAY PERSON-CITY ' ' PERSON-STATE ' ' PERSON-ZIP
             DISPLAY '(' PERSON-AREA-CODE ') '
                     PERSON-PHONE-NUMBER (1:3) '-'
                     PERSON-PHONE-NUMBER (4:4)
          END-IF.
      

      EOJ-ROUTINE.
          CLOSE PERSON-FILE.


      GET-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          READ PERSON-FILE
              INVALID KEY
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

Program to Delete a Record from an Indexed File

2009-05-07T10:07:00.002-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\I\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

      DATA DIVISION.
      FILE SECTION.

      FD  PERSON-FILE
          DATA RECORD IS PERSON-ITEM.

      01  PERSON-ITEM.
          02  PERSON-KEY.
              03  PERSON-ID           PICTURE X(4).
          02  PERSON-ALTERNATE-KEY.
              03  PERSON-NAME         PICTURE X(20).
          02  PERSON-ADDRESS          PICTURE X(20).
          02  PERSON-CITY             PICTURE X(18).
          02  PERSON-STATE            PICTURE X(2).
          02  PERSON-ZIP              PICTURE X(5).
          02  PERSON-PHONE.
              03  PERSON-AREA-CODE    PICTURE X(3).
              03  PERSON-PHONE-NUMBER PICTURE X(7).
          02  PERSON-STATUS           PICTURE X.

      WORKING-STORAGE SECTION.

      01  INVALID-PERSON-KEY-FLAG     PICTURE X.
          88  INVALID-PERSON-KEY      VALUE 'Y'.
          88  VALID-PERSON-KEY        VALUE 'N'.

      01  IO-FILE-STATUS PICTURE X(2).

      PROCEDURE DIVISION.
      
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM DELETE-A-RECORD.
          PERFORM EOJ-ROUTINE.
          STOP RUN.
      

      INITIALIZATION-ROUTINE.
          OPEN I-O PERSON-FILE.


      DELETE-A-RECORD.
          DISPLAY 'Enter ID Number for the record you want to delete: '.
          ACCEPT PERSON-KEY.
          PERFORM DELETE-PERSON-ITEM.
          IF INVALID-PERSON-KEY
             DISPLAY 'Record not found'
          ELSE
             DISPLAY 'Record deleted'
          END-IF.
     

      EOJ-ROUTINE.
          CLOSE PERSON-FILE.


      DELETE-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          DELETE PERSON-FILE
              INVALID KEY
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

Updating a Record in an Indexed File

2009-05-07T10:07:00.001-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\I\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

      DATA DIVISION.
      FILE SECTION.

      FD  PERSON-FILE
          DATA RECORD IS PERSON-ITEM.

      01  PERSON-ITEM.
          02  PERSON-KEY.
              03  PERSON-ID           PICTURE X(4).
          02  PERSON-ALTERNATE-KEY.
              03  PERSON-NAME         PICTURE X(20).
          02  PERSON-ADDRESS          PICTURE X(20).
          02  PERSON-CITY             PICTURE X(18).
          02  PERSON-STATE            PICTURE X(2).
          02  PERSON-ZIP              PICTURE X(5).
          02  PERSON-PHONE.
              03  PERSON-AREA-CODE    PICTURE X(3).
              03  PERSON-PHONE-NUMBER PICTURE X(7).
          02  PERSON-STATUS           PICTURE X.

      WORKING-STORAGE SECTION.

      01  INVALID-PERSON-KEY-FLAG     PICTURE X.
          88  INVALID-PERSON-KEY      VALUE 'Y'.
          88  VALID-PERSON-KEY        VALUE 'N'.

      01  IO-FILE-STATUS PICTURE X(2).

      PROCEDURE DIVISION.
      
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM CHANGE-A-RECORD.
          PERFORM EOJ-ROUTINE.
          STOP RUN.
     

      INITIALIZATION-ROUTINE.
          OPEN I-O PERSON-FILE.


      CHANGE-A-RECORD.
          DISPLAY 'Enter ID Number for the record you want to change: '.
          ACCEPT PERSON-KEY.
          PERFORM GET-PERSON-ITEM.
          IF INVALID-PERSON-KEY
             DISPLAY 'Record not found'
          ELSE
             DISPLAY PERSON-NAME
             DISPLAY PERSON-ADDRESS
             DISPLAY PERSON-CITY ' ' PERSON-STATE ' ' PERSON-ZIP
             DISPLAY 'Enter new area code and phone number: '
             ACCEPT PERSON-PHONE
             PERFORM REPLACE-PERSON-ITEM
             IF VALID-PERSON-KEY
                DISPLAY 'Phone number updated: '
                        '(' PERSON-AREA-CODE ') '
                        PERSON-PHONE-NUMBER (1:3) '-'
                        PERSON-PHONE-NUMBER (4:4)
             ELSE
                DISPLAY 'Error updating phone number'
             END-IF
          END-IF.

     
      EOJ-ROUTINE.
          CLOSE PERSON-FILE.


      GET-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          READ PERSON-FILE
              INVALID KEY
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.


      REPLACE-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          REWRITE PERSON-ITEM
              INVALID KEY
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

Program to lists all records in the file in sequential order.

2009-05-07T10:05:00.002-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\I\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

      DATA DIVISION.
      FILE SECTION.

      FD  PERSON-FILE
          DATA RECORD IS PERSON-ITEM.

      01  PERSON-ITEM.
          02  PERSON-KEY.
              03  PERSON-ID           PICTURE X(4).
          02  PERSON-ALTERNATE-KEY.
              03  PERSON-NAME         PICTURE X(20).
          02  PERSON-ADDRESS          PICTURE X(20).
          02  PERSON-CITY             PICTURE X(18).
          02  PERSON-STATE            PICTURE X(2).
          02  PERSON-ZIP              PICTURE X(5).
          02  PERSON-PHONE.
              03  PERSON-AREA-CODE    PICTURE X(3).
              03  PERSON-PHONE-NUMBER PICTURE X(7).
          02  PERSON-STATUS           PICTURE X.

      WORKING-STORAGE SECTION.

      01  KBD-LETTER                  PIC X.

      01  INVALID-PERSON-KEY-FLAG     PICTURE X.
          88  INVALID-PERSON-KEY      VALUE 'Y'.
          88  VALID-PERSON-KEY        VALUE 'N'.

      01  IO-FILE-STATUS PICTURE X(2).

      PROCEDURE DIVISION.
      
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM THE-LOOP
                  UNTIL INVALID-PERSON-KEY.
          PERFORM EOJ-ROUTINE.
          STOP RUN.
      
      INITIALIZATION-ROUTINE.
          OPEN I-O PERSON-FILE.
          PERFORM GET-NEXT-PERSON-ITEM.

      THE-LOOP.
          DISPLAY PERSON-NAME.
          DISPLAY PERSON-ADDRESS.
          DISPLAY PERSON-CITY ' ' PERSON-STATE ' ' PERSON-ZIP.
          DISPLAY '(' PERSON-AREA-CODE ') '
                  PERSON-PHONE-NUMBER (1:3) '-'
                  PERSON-PHONE-NUMBER (4:4).
          DISPLAY '------------------------------'.
          PERFORM GET-NEXT-PERSON-ITEM.

      
      EOJ-ROUTINE.
          CLOSE PERSON-FILE.

      GET-NEXT-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          READ PERSON-FILE NEXT
              AT END
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

Create Indexed File and Add Records

2009-05-07T10:05:00.001-07:00

 ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\I\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

      DATA DIVISION.
      FILE SECTION.

      FD  PERSON-FILE
          DATA RECORD IS PERSON-ITEM.

      01  PERSON-ITEM.
          02  PERSON-KEY.
              03  PERSON-ID           PICTURE X(4).
          02  PERSON-ALTERNATE-KEY.
              03  PERSON-NAME         PICTURE X(20).
          02  PERSON-ADDRESS          PICTURE X(20).
          02  PERSON-CITY             PICTURE X(18).
          02  PERSON-STATE            PICTURE X(2).
          02  PERSON-ZIP              PICTURE X(5).
          02  PERSON-PHONE.
              03  PERSON-AREA-CODE    PICTURE X(3).
              03  PERSON-PHONE-NUMBER PICTURE X(7).
          02  PERSON-STATUS           PICTURE X.

      WORKING-STORAGE SECTION.

      01  INVALID-PERSON-KEY-FLAG     PICTURE X.
          88  INVALID-PERSON-KEY      VALUE 'Y'.
          88  VALID-PERSON-KEY        VALUE 'N'.

      01  IO-FILE-STATUS PICTURE X(2).

      01 EOF-FLAG                     PICTURE X.
         88 NO-MORE-INPUT             VALUES 'N' 'n'.
      
      PROCEDURE DIVISION.
      
      MAIN-LINE.
          PERFORM INITIALIZATION-ROUTINE.
          PERFORM DATA-ENTRY
              UNTIL NO-MORE-INPUT.
          PERFORM EOJ-ROUTINE.
          STOP RUN.
      
     * We use OPEN OUTPUT to create a new file.  If the file already
     * existed we would use  OPEN I-O PERSON-FILE to add additional
     * records to it.

      INITIALIZATION-ROUTINE.
          OPEN OUTPUT PERSON-FILE.
          PERFORM PROMPT-THE-OPERATOR.

      
      DATA-ENTRY. 
          DISPLAY 'Enter ID Number: '.
          ACCEPT PERSON-ID.
          DISPLAY 'Enter Name: '.
          ACCEPT PERSON-NAME.
          DISPLAY 'Enter Address: '.
          ACCEPT PERSON-ADDRESS.
          DISPLAY 'Enter City: '.
          ACCEPT PERSON-CITY.
          DISPLAY 'Enter State: '.
          ACCEPT PERSON-STATE.
          DISPLAY 'Enter Zip Code: '.
          ACCEPT PERSON-ZIP.
          DISPLAY 'Enter Area Code and Phone Number: '.
          ACCEPT PERSON-PHONE.
          MOVE '1' TO PERSON-STATUS.
          PERFORM ADD-PERSON-ITEM.
          IF VALID-PERSON-KEY
             DISPLAY 'Record added successfully'
          ELSE
             DISPLAY 'Error adding record to Person file'
          END-IF.
          PERFORM PROMPT-THE-OPERATOR.

      
      EOJ-ROUTINE.
          CLOSE PERSON-FILE.


      PROMPT-THE-OPERATOR.
          DISPLAY 'Do you want to enter a new record? '.
          ACCEPT EOF-FLAG.
          IF NOT NO-MORE-INPUT
             MOVE 'Y' TO EOF-FLAG.


      ADD-PERSON-ITEM.
          MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
          WRITE PERSON-ITEM
              INVALID KEY.
                  MOVE 'Y' TO INVALID-PERSON-KEY-FLAG

Sequential file, Sequential access,Indexed file, Dynamic access

2009-05-07T10:04:00.000-07:00

Sequential file, Sequential access

       ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'A:\PERSON.DAT'
              ORGANIZATION IS LINE SEQUENTIAL.

Indexed file, Dynamic access

       ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT PERSON-FILE
              ASSIGN TO 'A:\PERSON.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS DYNAMIC
              RECORD KEY IS PERSON-KEY
              ALTERNATE RECORD KEY IS PERSON-ALTERNATE-KEY
                        WITH DUPLICATES
              FILE STATUS IS IO-FILE-STATUS.

One field must be designated the primary key. The primary key must be unique within the file; no two records in the file may have the same value for the primary key field. For example, social security number is a unique value per person.

The alternate key is optional. And, the alternate key is not required to be unique. For example, a data file might contain records for more than one person with a common name such as John Smith. An alternate key such as name may have duplicate values within the file, but the records could be distinguished by their unique primary key (e.g., social security number).

There may be multiple alternate key fields. For example, a data file might have social security number as its primary key, name as one alternate key, and telephone number as another alternate key.

Dynamic mode in Cobol allows the program both random and sequential access as needed to an indexed file.

Test Grading Example

2009-05-07T10:03:00.002-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT TEST-CARDS
              ASSIGN TO 'C:\PCOBWIN\ROGERS\TESTCARD.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT GRADE-REPORT
              ASSIGN TO 'C:\PCOBWIN\ROGERS\RESULTS.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.

      DATA DIVISION.
      FILE SECTION.

      FD TEST-CARDS
         DATA RECORD IS CARD-IN.
      01 CARD-IN.
         02 CARD-NAME              PIC X(20).
         02 CARD-ANSWERS.
            03 CARD-ANSWER
                 OCCURS 20 TIMES   PIC X.

      FD GRADE-REPORT
         DATA RECORD IS REPORT-LINE.
      01 REPORT-LINE               PIC X(80).

      WORKING-STORAGE SECTION.

      01 ANSWER-TABLE.
         02 CORRECT-ANSWER
               OCCURS 20 TIMES     PIC X.

      01 ANSWER-SUB                PIC 9(2).

      01 WS-SCORE                  PIC 9(3).

      01 DETAIL-LINE.
         02 DETAIL-NAME            PIC X(20).
         02                        PIC X(5)          VALUE SPACES.
         02 DETAIL-SCORE           PIC ZZ9.
         02                        PIC X             VALUE '%'.
         02                        PIC X(5)          VALUE SPACES.
         02 DETAIL-LETTER          PIC X.

      01 DATA-REMAINS-SWITCH       PIC X             VALUE 'Y'.
         88 NO-MORE-TESTS-TO-GRADE                   VALUE 'N'.

      PROCEDURE DIVISION.
      MAIN-LINE.
          PERFORM LETS-GET-STARTED.
          PERFORM GRADE-THE-TESTS
                  UNTIL NO-MORE-TESTS-TO-GRADE.
          PERFORM CLEAN-UP.
          STOP RUN.

      LETS-GET-STARTED.
          OPEN INPUT TEST-CARDS.
          OPEN OUTPUT GRADE-REPORT.
     *  Read the answer key and save it
          READ TEST-CARDS
               AT END MOVE 'N' TO DATA-REMAINS-SWITCH.
          MOVE CARD-ANSWERS TO ANSWER-TABLE.
     *  Read the first student's answers
          READ TEST-CARDS
               AT END MOVE 'N' TO DATA-REMAINS-SWITCH.

      GRADE-THE-TESTS.
          MOVE ZERO TO WS-SCORE.
          PERFORM GRADE-A-TEST
              VARYING ANSWER-SUB FROM 1 BY 1
                UNTIL ANSWER-SUB > 20.
          MOVE CARD-NAME TO DETAIL-NAME.
          MOVE WS-SCORE TO DETAIL-SCORE.
          IF WS-SCORE > 92
             MOVE 'A' TO DETAIL-LETTER
          ELSE IF WS-SCORE > 84
                  MOVE 'B' TO DETAIL-LETTER
               ELSE IF WS-SCORE > 75
                       MOVE 'C' TO DETAIL-LETTER
                    ELSE IF WS-SCORE > 69
                            MOVE 'D' TO DETAIL-LETTER
                         ELSE
                            MOVE 'F' TO DETAIL-LETTER
                         END-IF
                    END-IF
               END-IF
          END-IF.
          WRITE REPORT-LINE FROM DETAIL-LINE.
     *  Read the next student's answers
          READ TEST-CARDS
               AT END MOVE 'N' TO DATA-REMAINS-SWITCH.

      GRADE-A-TEST.
     *  20 questions are each worth 5 points
          IF CARD-ANSWER (ANSWER-SUB) = CORRECT-ANSWER (ANSWER-SUB)
             ADD 5 TO WS-SCORE.

      CLEAN-UP.
          CLOSE TEST-CARDS.
          CLOSE GRADE-REPORT.

Input Data

                    ACBDAABCDDDAABDDAAAB
Jason Dube          ACBDAABBDDDAABDDAAAB
Ashley Flynn        ACBDAABCDDDAABDDAAAB
Adriane Gehl        ACBDAABCDDDAABACAAAB
Rachel Holtz        BCBBAABCDDDAABDDDAAB
Bryan King          ACBCAA CABCAABDDAAAB
Amanda Solpa        ACBDAABCDDAAABDDAAAB
Sean Theis          ACBDAABCADCAACDDAAAC

Output Report

Jason Dube                95%     A
Ashley Flynn             100%     A
Adriane Gehl              90%     B
Rachel Holtz              85%     B
Bryan King                75%     D
Amanda Solpa              95%     A
Sean Theis                80%     C

Example: Sort on Calculated Field

2009-05-07T10:03:00.001-07:00

 ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTC.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTC.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-STUDENT-NAME        PIC X(15).
         02 IN-CREDITS-TAKEN       PIC 9(3).
         02 IN-QUALITY-POINTS      PIC 9(3).

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD                PIC X(80).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-STUDENT-NAME      PIC X(15).
         02 SORT-CREDITS-TAKEN     PIC 9(3).
         02 SORT-QUALITY-POINTS    PIC 9(3).
         02 SORT-GPA               PIC 9V99.

      WORKING-STORAGE SECTION.

      01 DETAIL-LINE.
         02 DETAIL-STUDENT-NAME    PIC X(15).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-GPA             PIC 9.99.

      01 SORTED-DATA-SWITCH        PIC X             VALUE 'N'.
         88 NO-MORE-SORTED-DATA                      VALUE 'Y'.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON DESCENDING KEY SORT-GPA
               INPUT PROCEDURE IS CALCULATE-GPA
               OUTPUT PROCEDURE IS PRINT-THE-REPORT.
          STOP RUN.

      CALCULATE-GPA.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          MOVE IN-STUDENT-NAME TO SORT-STUDENT-NAME.
          MOVE IN-CREDITS-TAKEN TO SORT-CREDITS-TAKEN.
          MOVE IN-QUALITY-POINTS TO SORT-QUALITY-POINTS.
          COMPUTE SORT-GPA ROUNDED =
                  IN-QUALITY-POINTS / IN-CREDITS-TAKEN.
          RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

      PRINT-THE-REPORT.
          OPEN OUTPUT OUT-FILE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
          PERFORM REPORT-LOOP
             UNTIL NO-MORE-SORTED-DATA.
          CLOSE OUT-FILE.

      REPORT-LOOP.
          MOVE SORT-STUDENT-NAME TO DETAIL-STUDENT-NAME.
          MOVE SORT-GPA TO DETAIL-GPA.
          WRITE OUT-RECORD FROM DETAIL-LINE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

Input

CHARLIE HACKLEY010040
GORDON HUME    006018
TOMMY BEIDLER  012048
KATHY PECK     040080
MARY UECKER    020070
J.C. SANFORD   006000
DUANE NORTON   015042

Output (report sorted by calculated field G.P.A.)

CHARLIE HACKLEY   4.00
TOMMY BEIDLER     4.00
MARY UECKER       3.50
GORDON HUME       3.00
DUANE NORTON      2.80
KATHY PECK        2.00
J.C. SANFORD      0.00

Sort Example: With Control Break

2009-05-07T10:02:00.001-07:00

  ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED4.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD                PIC X(80).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 DETAIL-LINE.
         02 DETAIL-ID              PIC 9(5).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-LAST-NAME       PIC X(15).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-FIRST-NAME      PIC X(10).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-CITY            PIC X(12).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-STATE           PIC X(2).

      01 SORTED-DATA-SWITCH        PIC X             VALUE 'N'.
         88 NO-MORE-SORTED-DATA                      VALUE 'Y'.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      01 STATE-COUNT               PIC 9(3)          VALUE ZERO.

      01 BREAK-LINE.
         02                        PIC X(8)          VALUE SPACES.
         02 PRINT-COUNT            PIC ZZ9.
         02                        PIC X(12)
                                       VALUE ' RECORDS IN '.
         02 CURRENT-STATE          PIC X(2).

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-STATE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               OUTPUT PROCEDURE IS CREATE-REPORT.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

      CREATE-REPORT.
          OPEN OUTPUT OUT-FILE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
          MOVE SORT-STATE TO CURRENT-STATE.
          PERFORM REPORT-LOOP
             UNTIL NO-MORE-SORTED-DATA.
          PERFORM DO-CONTROL-BREAK.
          CLOSE OUT-FILE.

      REPORT-LOOP.
          IF SORT-STATE NOT = CURRENT-STATE
             PERFORM DO-CONTROL-BREAK.
          MOVE SORT-ID TO DETAIL-ID
          MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
          MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
          MOVE SORT-CITY TO DETAIL-CITY.
          MOVE SORT-STATE TO DETAIL-STATE.
          WRITE OUT-RECORD FROM DETAIL-LINE.
          ADD 1 TO STATE-COUNT.
          MOVE SORT-STATE TO CURRENT-STATE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

      DO-CONTROL-BREAK.
          MOVE STATE-COUNT TO PRINT-COUNT.
          WRITE OUT-RECORD FROM BREAK-LINE AFTER 2.
          MOVE ZERO TO STATE-COUNT
          MOVE SPACES TO OUT-RECORD.
          WRITE OUT-RECORD.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (report with control break)

91163   Dube              Jason        Chicago        IL
42966   Vilella           Reza         Urbana         IL

         2 RECORDS IN IL

10216   Gehl              Bryan        Louisville     KY
45636   Holtz             Rachel       Newport        KY
69216   Steele            Karen        Covington      KY

         3 RECORDS IN KY

52158   Flynn             Ashley       Muskegon       MI
38551   Solpa             Mac          Lansing        MI
34932   Vogel             Sandra       Grand Rapids   MI
94000   Waymel            Bradley      Kalamazoo      MI

         4 RECORDS IN MI

61535   King              Adriane      Cincinnati     OH
56913   Moreno            Jan          Dayton         OH
04928   Streeter          Farhad       Toledo         OH
22277   Theis             Hanah        Norwood        OH

         4 RECORDS IN OH

78496   McCoy             Amanda       Brookfield     WI

         1 RECORDS IN WI

Sort Example: With Header and Footer

2009-05-07T10:01:00.002-07:00

 ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED3A.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD                PIC X(80).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 DETAIL-LINE.
         02 DETAIL-ID              PIC 9(5).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-LAST-NAME       PIC X(15).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-FIRST-NAME      PIC X(10).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-CITY            PIC X(12).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-STATE           PIC X(2).

      01 SORTED-DATA-SWITCH        PIC X             VALUE 'N'.
         88 NO-MORE-SORTED-DATA                      VALUE 'Y'.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      01 RECORD-COUNT              PIC 9(3)          VALUE ZERO.

      01 HEADER-LINE.
         02 PIC X(8)               VALUE 'ID NUM'.
         02 PIC X(18)              VALUE 'LAST NAME'.
         02 PIC X(13)              VALUE 'FIRST NAME'.
         02 PIC X(15)              VALUE 'CITY'.
         02 PIC X(5)               VALUE 'STATE'.

      01 FOOTER-LINE.
         02                        PIC X(8)          VALUE SPACES.
         02 FOOTER-COUNT           PIC ZZ9.
         02                        PIC X(20)
                                       VALUE ' RECORDS PROCESSED'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               OUTPUT PROCEDURE IS CREATE-REPORT.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

      CREATE-REPORT.
          OPEN OUTPUT OUT-FILE.
          PERFORM PRINT-HEADERS.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
          PERFORM REPORT-LOOP
             UNTIL NO-MORE-SORTED-DATA.
          PERFORM PRINT-FOOTERS.
          CLOSE OUT-FILE.

      REPORT-LOOP.
          MOVE SORT-ID TO DETAIL-ID
          MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
          MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
          MOVE SORT-CITY TO DETAIL-CITY.
          MOVE SORT-STATE TO DETAIL-STATE.
          WRITE OUT-RECORD FROM DETAIL-LINE.
          ADD 1 TO RECORD-COUNT.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

      PRINT-HEADERS.
          WRITE OUT-RECORD FROM HEADER-LINE.
          MOVE SPACES TO OUT-RECORD.
          WRITE OUT-RECORD.

      PRINT-FOOTERS.
          MOVE RECORD-COUNT TO FOOTER-COUNT.
          WRITE OUT-RECORD FROM FOOTER-LINE AFTER 2.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output

ID NUM  LAST NAME         FIRST NAME   CITY           STATE

91163   Dube              Jason        Chicago        IL
52158   Flynn             Ashley       Muskegon       MI
10216   Gehl              Bryan        Louisville     KY
45636   Holtz             Rachel       Newport        KY
61535   King              Adriane      Cincinnati     OH
78496   McCoy             Amanda       Brookfield     WI
56913   Moreno            Jan          Dayton         OH
38551   Solpa             Mac          Lansing        MI
69216   Steele            Karen        Covington      KY
04928   Streeter          Farhad       Toledo         OH
22277   Theis             Hanah        Norwood        OH
42966   Vilella           Reza         Urbana         IL
34932   Vogel             Sandra       Grand Rapids   MI
94000   Waymel            Bradley      Kalamazoo      MI

        14 RECORDS PROCESSED

Sort Example: OUTPUT PROCEDURE

2009-05-07T10:01:00.001-07:00

 * In this example we use the OUTPUT PROCEDURE option instead of
     * GIVING because we want to format a report rather than just
     * creating a sorted and validated version of the input data.

      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED3.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD                PIC X(80).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 DETAIL-LINE.
         02 DETAIL-ID              PIC 9(5).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-LAST-NAME       PIC X(15).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-FIRST-NAME      PIC X(10).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-CITY            PIC X(12).
         02                        PIC X(3)          VALUE SPACES.
         02 DETAIL-STATE           PIC X(2).

      01 SORTED-DATA-SWITCH        PIC X             VALUE 'N'.
         88 NO-MORE-SORTED-DATA                      VALUE 'Y'.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               OUTPUT PROCEDURE IS CREATE-REPORT.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

      CREATE-REPORT.
          OPEN OUTPUT OUT-FILE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.
          PERFORM REPORT-LOOP
             UNTIL NO-MORE-SORTED-DATA.
          CLOSE OUT-FILE.

      REPORT-LOOP.
          MOVE SORT-ID TO DETAIL-ID
          MOVE SORT-LAST-NAME TO DETAIL-LAST-NAME.
          MOVE SORT-FIRST-NAME TO DETAIL-FIRST-NAME.
          MOVE SORT-CITY TO DETAIL-CITY.
          MOVE SORT-STATE TO DETAIL-STATE.
          WRITE OUT-RECORD FROM DETAIL-LINE.
          RETURN SORT-FILE
             AT END MOVE 'Y' TO SORTED-DATA-SWITCH.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (report sorted by name)

91163   Dube              Jason        Chicago        IL
52158   Flynn             Ashley       Muskegon       MI
10216   Gehl              Bryan        Louisville     KY
45636   Holtz             Rachel       Newport        KY
61535   King              Adriane      Cincinnati     OH
78496   McCoy             Amanda       Brookfield     WI
56913   Moreno            Jan          Dayton         OH
38551   Solpa             Mac          Lansing        MI
69216   Steele            Karen        Covington      KY
04928   Streeter          Farhad       Toledo         OH
22277   Theis             Hanah        Norwood        OH
42966   Vilella           Reza         Urbana         IL
34932   Vogel             Sandra       Grand Rapids   MI
94000   Waymel            Bradley      Kalamazoo      MI

Sort Example: INPUT PROCEDURE with inline PERFORM

2009-05-07T10:00:00.000-07:00

* In this example we use the INPUT PROCEDURE option instead of
     * USING because we want to verify that the state code in the
     * input record is valid.

      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED2A.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               GIVING OUT-FILE.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          PERFORM UNTIL NO-MORE-INPUT-RECORDS
              READ IN-FILE
                   AT END
                      MOVE 'Y' TO EOF-SWITCH
                   NOT AT END
                      IF VALID-STATE-CODE
                         MOVE IN-RECORD TO SORT-RECORD
                         RELEASE SORT-RECORD
                      END-IF
              END-READ
          END-PERFORM.
          CLOSE IN-FILE.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by name with invalid state code omitted)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

Sort Example: INPUT PROCEDURE

2009-05-07T09:59:00.003-07:00

* In this example we use the INPUT PROCEDURE option instead of
     * USING because we want to verify that the state code in the
     * input record is valid.

      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED2.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               GIVING OUT-FILE.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by name with invalid state code omitted)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

Sort Example: INPUT PROCEDURE

2009-05-07T09:59:00.002-07:00

* In this example we use the INPUT PROCEDURE option instead of
     * USING because we want to verify that the state code in the
     * input record is valid.

      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED2.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).
            88 VALID-STATE-CODE                      VALUES 'AK'
               'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA'
               'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD'
               'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH'
               'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC'
               'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY'.

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      01 EOF-SWITCH                PIC X             VALUE 'N'.
         88 NO-MORE-INPUT-RECORDS                    VALUE 'Y'.

      PROCEDURE DIVISION.
      MAIN-LOGIC.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               INPUT PROCEDURE IS INPUT-LOGIC
               GIVING OUT-FILE.
          STOP RUN.

      INPUT-LOGIC.
          OPEN INPUT IN-FILE.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.
          PERFORM DATA-LOOP
             UNTIL NO-MORE-INPUT-RECORDS.
          CLOSE IN-FILE.

      DATA-LOOP.
          IF VALID-STATE-CODE
             MOVE IN-RECORD TO SORT-RECORD
             RELEASE SORT-RECORD.
          READ IN-FILE
             AT END MOVE 'Y' TO EOF-SWITCH.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by name with invalid state code omitted)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

Sort Example: Multiple Sort Keys

2009-05-07T09:59:00.001-07:00

* Sorting on 2 keys

      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED1A.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      PROCEDURE DIVISION.
      MAINLINE.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-STATE
               ON ASCENDING KEY SORT-LAST-NAME
               USING IN-FILE
               GIVING OUT-FILE.
          STOP RUN.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by state then by name)

65720Read           Sean      Springfield BF
91163Dube           Jason     Chicago     IL
42966Vilella        Reza      Urbana      IL
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
69216Steele         Karen     Covington   KY
52158Flynn          Ashley    Muskegon    MI
38551Solpa          Mac       Lansing     MI
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI
61535King           Adriane   Cincinnati  OH
56913Moreno         Jan       Dayton      OH
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
78496McCoy          Amanda    Brookfield  WI

Sort Example: USING and GIVING

2009-05-07T09:58:00.000-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT IN-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\UNSORTED.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT OUT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\SORTED1.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT SORT-FILE
              ASSIGN TO 'C:\PCOBWIN\ROGERS\WORK.TMP'.

      DATA DIVISION.
      FILE SECTION.
      FD IN-FILE
         DATA RECORD IS IN-RECORD.
      01 IN-RECORD.
         02 IN-ID                  PIC 9(5).
         02 IN-LAST-NAME           PIC X(15).
         02 IN-FIRST-NAME          PIC X(10).
         02 IN-CITY                PIC X(12).
         02 IN-STATE               PIC X(2).

      FD OUT-FILE
         DATA RECORD IS OUT-RECORD.
      01 OUT-RECORD.
         02 OUT-ID                 PIC 9(5).
         02 OUT-LAST-NAME          PIC X(15).
         02 OUT-FIRST-NAME         PIC X(10).
         02 OUT-CITY               PIC X(12).
         02 OUT-STATE              PIC X(2).

      SD SORT-FILE
         DATA RECORD IS SORT-RECORD.
      01 SORT-RECORD.
         02 SORT-ID                PIC 9(5).
         02 SORT-LAST-NAME         PIC X(15).
         02 SORT-FIRST-NAME        PIC X(10).
         02 SORT-CITY              PIC X(12).
         02 SORT-STATE             PIC X(2).

      WORKING-STORAGE SECTION.

      PROCEDURE DIVISION.
      MAINLINE.
          SORT SORT-FILE
               ON ASCENDING KEY SORT-LAST-NAME
               USING IN-FILE
               GIVING OUT-FILE.
          STOP RUN.

Input

91163Dube           Jason     Chicago     IL
61535King           Adriane   Cincinnati  OH
45636Holtz          Rachel    Newport     KY
10216Gehl           Bryan     Louisville  KY
52158Flynn          Ashley    Muskegon    MI
22277Theis          Hanah     Norwood     OH
38551Solpa          Mac       Lansing     MI
78496McCoy          Amanda    Brookfield  WI
65720Read           Sean      Springfield BF
94000Waymel         Bradley   Kalamazoo   MI
42966Vilella        Reza      Urbana      IL
04928Streeter       Farhad    Toledo      OH
69216Steele         Karen     Covington   KY
56913Moreno         Jan       Dayton      OH
34932Vogel          Sandra    Grand RapidsMI

Output (sorted by last name)

91163Dube           Jason     Chicago     IL
52158Flynn          Ashley    Muskegon    MI
10216Gehl           Bryan     Louisville  KY
45636Holtz          Rachel    Newport     KY
61535King           Adriane   Cincinnati  OH
78496McCoy          Amanda    Brookfield  WI
56913Moreno         Jan       Dayton      OH
65720Read           Sean      Springfield BF
38551Solpa          Mac       Lansing     MI
69216Steele         Karen     Covington   KY
04928Streeter       Farhad    Toledo      OH
22277Theis          Hanah     Norwood     OH
42966Vilella        Reza      Urbana      IL
34932Vogel          Sandra    Grand RapidsMI
94000Waymel         Bradley   Kalamazoo   MI

pseudocode format are some examples of how you might structure programs using control breaks.

2009-05-07T09:57:00.001-07:00

           INITIALIZATION-PARAGRAPH.
              open the files.
              do the initial read.
              save the value of the break field.

          LOOP-PARAGRAPH.
              if value of break field has changed
                 perform the control break.
              (statements that process the current record)
              save the value of the break field.
              read the next record.

          END-OF-JOB-PARAGRAPH.
              perform the control break.
              close the files.

          CONTROL-BREAK-PARAGRAPH.
              write a subtotal line.
              reinitialize any counters or totals.

Alternative Single Level Control Break

           INITIALIZATION-PARAGRAPH.
              open the files.
              do the initial read.
              save the value of the break field.

          LOOP-PARAGRAPH.
              (statements that process the current record)
              read the next record.
              if the value of the break field has changed
                 or end-of-file
                    perform the control break.
              if not end-of-file
                 save the value of the break field.

          END-OF-JOB-PARAGRAPH.
              close the files.

          CONTROL-BREAK-PARAGRAPH.
              write a subtotal line.
              reinitialize any counters or totals.

Control Break with Page Break

           INITIALIZATION-PARAGRAPH.
              open the files.
              move 1 to the page number.
              print the headers.
              do the initial read.
              save the value of the break field.

          LOOP-PARAGRAPH.
              if value of break field has changed
                  perform the control break.
              if the detail line count > page break value
                  print the headers.
              (statements that process the current record)
              add 1 to the detail line count.
              save the value of the break field.
              read the next record.

          END-OF-JOB-PARAGRAPH.
              perform the control break.
              close the files.

          PRINT-THE-HEADERS.
              write the header lines.
              increment the page number.
              reset the detail line count back to zero

          CONTROL-BREAK-PARAGRAPH.
              write a subtotal line.
              increment line counter.
              reinitialize any counters or totals.

Accumulating Running Totals

2009-05-07T09:56:00.000-07:00

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT INPUT-DATA
              ASSIGN TO 'A:\METER.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.
          SELECT REPORT-FILE
              ASSIGN TO 'A:\REPORT.TXT'
              ORGANIZATION IS LINE SEQUENTIAL.

      DATA DIVISION.
      FILE SECTION.
      FD INPUT-DATA
         DATA RECORD IS INPUT-RECORD.
      01 INPUT-RECORD.
         02 INPUT-CUST-ID-NUMBER   PIC X(5).
         02 INPUT-CUST-NAME        PIC X(25).
         02 INPUT-KILOWATT-HOURS   PIC 9(4).
      FD REPORT-FILE
         DATA RECORD IS REPORT-LINE.
      01 REPORT-LINE PIC X(80).

      WORKING-STORAGE SECTION.
      01 NO-MORE-DATA-SWITCH       PIC X           VALUE SPACE.

      01 ENERGY-RATE               PIC V9(2)       VALUE .08.
      01 WS-ENERGY-CHARGE          PIC 9(4)V99.

      01 TOTAL-NUMBER-OF-RECORDS   PIC 9(4)        VALUE ZERO.
      01 TOTAL-KILOWATT-HOURS      PIC 9(8)        VALUE ZERO.
      01 TOTAL-ENERGY-CHARGE       PIC 9(8)V99     VALUE ZERO.

      01 HEADER-LINE.
         02 FILLER                 PIC X(10)       VALUE 'CUST#'.
         02 FILLER                 PIC X(28)       VALUE
            'CUSTOMER NAME'.
         02 FILLER                 PIC X(6)        VALUE
            'KW HRS'.
         02 FILLER                 PIC X(3)        VALUE SPACES.
         02 FILLER                 PIC X(10)       VALUE
            'AMT BILLED'.

      01 DETAIL-LINE.
         02 DETAIL-CUST-ID-NUMBER  PIC X(5).
         02 FILLER                 PIC X(5)       VALUE SPACES.
         02 DETAIL-CUST-NAME       PIC X(25).
         02 FILLER                 PIC X(5)        VALUE SPACES.
         02 DETAIL-KILOWATT-HOURS  PIC ZZZ9.
         02 FILLER                 PIC X(5)        VALUE SPACES.
         02 DETAIL-ENERGY-CHARGE   PIC Z,ZZ9.99.

      01 TOTAL-LINE.
         02 FILLER                 PIC X(10)       VALUE 'TOTALS->'.
         02 FILLER                 PIC X(11)       VALUE
            'CUSTOMERS: '.
         02 TL-NUMBER-OF-RECORDS   PIC ZZZ9.
         02 FILLER                 PIC X(13)       VALUE
            '   KW HOURS: '.
         02 TL-KILOWATT-HOURS      PIC ZZ,ZZZ,ZZ9.
         02 FILLER                 PIC X(18)       VALUE
            '   AMOUNT BILLED: '.
         02 TL-ENERGY-CHARGE       PIC ZZ,ZZZ,ZZ9.99.

      PROCEDURE DIVISION.
      MAIN-PARAGRAPH.
          PERFORM STARTUP-PARAGRAPH.
          PERFORM PRINT-HEADER.
          PERFORM PROCESS-RECORDS
              UNTIL NO-MORE-DATA-SWITCH = 'Y'.
          PERFORM TOTAL-ROUTINE.
          PERFORM CLEANUP-PARAGRAPH.
          STOP RUN.

      STARTUP-PARAGRAPH.
          OPEN INPUT INPUT-DATA.
          OPEN OUTPUT REPORT-FILE.
          READ INPUT-DATA
               AT END MOVE 'Y' TO NO-MORE-DATA-SWITCH.

      PROCESS-RECORDS.
          MOVE INPUT-CUST-ID-NUMBER TO DETAIL-CUST-ID-NUMBER.
          MOVE INPUT-CUST-NAME      TO DETAIL-CUST-NAME.
          MOVE INPUT-KILOWATT-HOURS TO DETAIL-KILOWATT-HOURS.
          COMPUTE WS-ENERGY-CHARGE ROUNDED =
                  ENERGY-RATE * INPUT-KILOWATT-HOURS.
          MOVE WS-ENERGY-CHARGE TO DETAIL-ENERGY-CHARGE.
          MOVE DETAIL-LINE TO REPORT-LINE.
          WRITE REPORT-LINE.
          ADD 1 TO TOTAL-NUMBER-OF-RECORDS.
          ADD WS-ENERGY-CHARGE TO TOTAL-ENERGY-CHARGE.
          ADD INPUT-KILOWATT-HOURS TO TOTAL-KILOWATT-HOURS.
          READ INPUT-DATA
               AT END MOVE 'Y' TO NO-MORE-DATA-SWITCH.

      PRINT-HEADER.
          MOVE HEADER-LINE TO REPORT-LINE.
          WRITE REPORT-LINE AFTER ADVANCING PAGE.
          MOVE SPACES TO REPORT-LINE.
          WRITE REPORT-LINE.

      TOTAL-ROUTINE.
          MOVE TOTAL-NUMBER-OF-RECORDS TO TL-NUMBER-OF-RECORDS.
          MOVE TOTAL-KILOWATT-HOURS    TO TL-KILOWATT-HOURS.
          MOVE TOTAL-ENERGY-CHARGE     TO TL-ENERGY-CHARGE.
          MOVE TOTAL-LINE TO REPORT-LINE.
          WRITE REPORT-LINE AFTER 2.

      CLEANUP-PARAGRAPH.
          CLOSE INPUT-DATA.
          CLOSE REPORT-FILE.

Program to Acces System Date & Time..

2009-05-07T09:55:00.000-07:00

MAINLINE.
          ACCEPT SYSTEM-WEEKDAY FROM DAY-OF-WEEK.
          ACCEPT SYSTEM-DATE FROM DATE.
          ACCEPT SYSTEM-TIME FROM TIME.

          EVALUATE SYSTEM-WEEKDAY
              WHEN  1  MOVE 'Mon' TO HEADER-WEEKDAY
              WHEN  2  MOVE 'Tue' TO HEADER-WEEKDAY
              WHEN  3  MOVE 'Wed' TO HEADER-WEEKDAY
              WHEN  4  MOVE 'Thu' TO HEADER-WEEKDAY
              WHEN  5  MOVE 'Fri' TO HEADER-WEEKDAY
              WHEN  6  MOVE 'Sat' TO HEADER-WEEKDAY
              WHEN  7  MOVE 'Sun' TO HEADER-WEEKDAY
          END-EVALUATE.

          EVALUATE SYSTEM-MONTH
              WHEN  1  MOVE 'Jan' TO HEADER-MONTH
              WHEN  2  MOVE 'Feb' TO HEADER-MONTH
              WHEN  3  MOVE 'Mar' TO HEADER-MONTH
              WHEN  4  MOVE 'Apr' TO HEADER-MONTH
              WHEN  5  MOVE 'May' TO HEADER-MONTH
              WHEN  6  MOVE 'Jun' TO HEADER-MONTH
              WHEN  7  MOVE 'Jul' TO HEADER-MONTH
              WHEN  8  MOVE 'Aug' TO HEADER-MONTH
              WHEN  9  MOVE 'Sep' TO HEADER-MONTH
              WHEN 10  MOVE 'Oct' TO HEADER-MONTH
              WHEN 11  MOVE 'Nov' TO HEADER-MONTH
              WHEN 12  MOVE 'Dec' TO HEADER-MONTH
          END-EVALUATE.

          MOVE SYSTEM-DAY TO HEADER-DAY.

          IF SYSTEM-HOUR IS LESS THAN 12
             MOVE 'AM' TO HEADER-AM-PM
          ELSE
             MOVE 'PM' TO HEADER-AM-PM
             IF SYSTEM-HOUR IS NOT LESS THAN 13
                SUBTRACT 12 FROM SYSTEM-HOUR
             END-IF
          END-IF.
          MOVE SYSTEM-HOUR TO HEADER-HOUR.

          MOVE SYSTEM-MINUTE TO HEADER-MINUTE.

          DISPLAY HEADER-LINE.
          STOP RUN.