INFOCOMPUTERS.6TE.NET

lerncobol.blogspot.com

Cobol Tutor: August 2010

http://lerncobol.blogspot.com/2010_08_01_archive.html

Sorting and Merging files in COBOL. ASSIGN TO “CALLS.DAT”. ORGANIZATION IS LINE SEQUENTIAL. ASSIGN TO “SORTEDCALLS.DAT”. ORGANIZATION IS LINE SEQUENTIAL. ASSIGN TO “WORK.TMP”. 02 SubscriberNumCF PIC 9(8). 02 UnitsUsedCF PIC 9(5). 02 SubscriberNumSF PIC 9(8). 02 UnitsUsedSF PIC 9(5). 02 SubscriberNumWF PIC 9(8). 02 UnitsUsedWF PIC 9(5). SORT WorkFile ON ASCENDING SubscriberNumWF. Subscribe to: Posts (Atom). Chromium DNA, and Soil Microbial Communities. DNA Working and RNA. C Tutor. C Tutorial.

lerncobol.blogspot.com

Cobol Tutor: Employe Data Manager Project in COBOL

http://lerncobol.blogspot.com/2011/12/employe-data-manager-project-in-cobol.html

Employe Data Manager Project in COBOL. Employe Data Manager Project in COBOL. Helpful for all programmers submitting their academic project in COBOL. 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. LABEL RECORDS ARE STANDARD. VALUE OF FILE-ID IS "DEP.DAT".

lerncobol.blogspot.com

Cobol Tutor: June 2009

http://lerncobol.blogspot.com/2009_06_01_archive.html

Creating Mailing Labels in COBOL. ASSIGN TO 'PERSON.DAT'. ASSIGN TO 'LABELS.TXT'. DATA RECORD IS 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). DATA RECORD IS PRINT-LINE. 01 PRINT-LINE PICTURE X(80). 02 LABEL-ROW OCCURS 3 TIMES. 03 LABEL-COLUMN OCCURS 3 TIMES. 04 FILLER PICTURE X(1). 04 LABEL-FIELD PICTURE X(25). 02 FIRST-NAME PICTURE X(25). 02 LAST-NAME PICTURE X(25).

lerncobol.blogspot.com

Cobol Tutor: Program to print numbers format using cobol

http://lerncobol.blogspot.com/2011/12/program-to-print-numbers-format-using.html

Program to print numbers format using cobol. 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). DISPLAY " ENTER N VALUE ". DISPLAY (1 , 1) ERASE. MOVE 1 TO COL. PERFORM X-PARA VARYING I FROM 1 BY 1 UNTIL I N. 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. COMPUTE COL = COL 1. IF (J = 0 OR I = 0). MOVE 1 TO S. COMPUTE S = S * (I - J 1) / J. MOVE S TO P.

lerncobol.blogspot.com

Cobol Tutor: December 2011

http://lerncobol.blogspot.com/2011_12_01_archive.html

Program to print numbers format using cobol. 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). DISPLAY " ENTER N VALUE ". DISPLAY (1 , 1) ERASE. MOVE 1 TO COL. PERFORM X-PARA VARYING I FROM 1 BY 1 UNTIL I N. 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. COMPUTE COL = COL 1. IF (J = 0 OR I = 0). MOVE 1 TO S. COMPUTE S = S * (I - J 1) / J. MOVE S TO P. 02 F PIC X(5).

lerncobol.blogspot.com

Cobol Tutor: Program to eliminate the duplicate records from a file in cobol

http://lerncobol.blogspot.com/2011/12/program-to-eliminate-duplicate-records.html

Program to eliminate the duplicate records from a file in cobol. Program to eliminate the duplicate records from a file in cobol. SELECT DATAFILE ASSIGN TO DISK. ORGANIZATION IS LINE SEQUENTIAL. SELECT SORTFILE ASSIGN TO DISK. ORGANIZATION IS LINE SEQUENTIAL. LABEL RECORDS ARE STANDARD. VALUE OF FILE-ID IS "SORT.DAT". 02 F PIC X(5). 02 NAM PIC X(10). 02 F PIC X(5). 02 SNO PIC 9(3). LABEL RECORDS ARE STANDARD. VALUE OF FILE-ID IS "SORT1.DAT". 02 F PIC X(5). 02 SNAM PIC X(10). 02 F PIC X(5). 77 EOF PIC A.

lerncobol.blogspot.com

Cobol Tutor: May 2010

http://lerncobol.blogspot.com/2010_05_01_archive.html

Program to do An example program that implements a primative calculator in Cobol. 01 Num1 PIC 9 VALUE ZEROS. 01 Num2 PIC 9 VALUE ZEROS. 01 Result PIC 99 VALUE ZEROS. 01 Operator PIC X VALUE SPACE. DISPLAY "Enter First Number : " WITH NO ADVANCING. DISPLAY "Enter Second Number : " WITH NO ADVANCING. DISPLAY "Enter operator ( or *) : " WITH NO ADVANCING. IF Operator = " " THEN. ADD Num1, Num2 GIVING Result. IF Operator = "*" THEN. MULTIPLY Num1 BY Num2 GIVING Result. DISPLAY "Result is = ", Result. 4 digit...

lerncobol.blogspot.com

Cobol Tutor: March 2009

http://lerncobol.blogspot.com/2009_03_01_archive.html

PASCAL. Student Database Information System. Description: Student Database. Create a new text file and then run the program. It will ask for the path of the text file and the use the program. the password is 'vyomw'. Uses graph , crt;. Directory = 'f:pascal gi' ;. Stdname = string[40];. Searcharray = array[1.1000] of integer;. Name : stdname;. Stdnum : real;. Semester : real;. Gpa : real;. Stdarray = array[1.1000] of student;. Unchangeable : integer;. Class : stdarray;. Choice : char;. Path3 : string ;.

lerncobol.blogspot.com

Cobol Tutor: May 2009

http://lerncobol.blogspot.com/2009_05_01_archive.html

Use Excel to Compute COBOL Results. Does Excel belong in a COBOL class? 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:. The answer in a word is the I/O capability that is bu...