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...
