IT Answers » iSeries Cobol programming

QSECURITY

Jedlasquite — Tue, 08 Nov 2011 08:03:56 +0000

New Answer by MTidmarsh

Sort a table in COBOL on the Output Side

Pixieprogrammer — Fri, 18 Feb 2011 21:38:37 +0000

Warning: I have limited knowledge of tables!

I have a COBOL program that calculates GPAs on the fly in the OUTPUT section of the program. I have to store these on-the-fly GPAs in a table, and then sort them by school, grade level, GPA total, then student id. I can load my table, but I am not sorting it.

01 GPATBL. 03 GPAENTRY OCCURS 5000 TIMES ASCENDING KEYS GPACT1 GPAGRD GPATOTAL INDEXED BY GPA1 GPA2. 05 GPASCHOOL PIC X(04). 05 GPAGRADE PIC X(02). 05 GPATOTAL PIC S9(01)V9999. 05 GPASTUDENT PIC X(10). 05 GPANAME PIC X(33).

I load the table right after the GPA is calculated on-the-fly. The program is already sorting the basic data that was gathered in the INPUT section (school, grade, student number, and name (GPA is calculated on-the-fly in the OUTPUT section). So my table is being loaded by school, grade level, student id as the data is released from the sort record in the OUTPUT section.

How do I sort my table by school, grade level, GPA, then student number? I’ve looked at other forums and read about bubble sorts, sort verb, etc, but none of it makes any sense to me. I have read two COBOL books with chapters on tables and sorting. I think I need to do the “bubble sort”, but I dont know where to begin. I follow the logic behind it (ascending key): store the 1st value, then check the 2nd value to see if its great than the 1st stored value, if it is, move 2nd value into table slot 2 else move 1st value to table slot 2 and store 2nd value in table slot 1.

Please help!!

Example of Cobol call to an SQL stored procedure

Dfe0722 — Wed, 24 Nov 2010 18:05:47 +0000

I am new to the iSeries and need to know how to use a Cobol program to call an SQL stored procedure. Someone has already created the stored procedure for me, but I am not sure how to call stored procedures in Cobol on the iSeries. The passed data looks like: FIND_CLIENT ( IN LastName CHAR(35),

IN FirstName CHAR(25),

IN DateOfBirth DATE,

IN RoleName CHAR(20),

IN AreaCode INTEGER,

IN PhoneNumber INTEGER,

IN Extension INTEGER,

IN Address1 CHAR(55),

IN Address2 CHAR(55),

IN City CHAR(30),

IN State CHAR(2),

IN ZipCode INTEGER,

IN ZipSuffixCode INTEGER,

OUT ClientNumber INTEGER )

I could use examples of what needs to be included in the program and how to call the procedure.

how to use a printer file in a program cobol

Sylvana — Mon, 09 Nov 2009 17:50:26 +0000

hi,

how to use a printer file in a program cobol.

i have the following:

(I wanna know if the write part is correct)

MOVE M1DESC TO M1DESC-DSP. MOVE M1DESC-DSP TO R1DESC-PRT. MOVE PRINTER-LINE TO HIPR01R-RECORD.

WRITE HIPR01R-RECORD FROM PRINTER-LINE.

Regards

Sylvana.

Moving data between 2 iSeries Servers

wpoulin — Tue, 18 Dec 2007 19:13:04 +0000

We have a Production iSeries and a Development iSeries. We want to be able to select data from our Production System and Transfer it to a programmers library on our Development System. When we were on a single system we used SQL/Cobol. We have been successful getting to the database on each system through the use of the SQL Connect statement, but can only Connect to one database at a time. The problem is where to store the data as we change connections.
Any thoughts ?
Thank You,
Bill

%parms and ILE/COBOL

Unknowingone — Tue, 09 Oct 2007 15:18:11 +0000

Is there a way in COBOL to determine how many parms have been passed in? (like the %parms bif in rpgiv)