Re: Control Level Indicators (L1-L9) -- RPG400-L

Shouldn't be a problem; everyone who already knows everything has no need for this list and, thus, probably isn't subscribed. So we all have bits and pieces to share. Admittedly some us (moi) have fewer to share.
I am curious about a couple of things,Srinivas, since your original code gave no clue. First, are you learning III or IV? If not IV, why III? Second, if IV, fixed-format or free-format?
Finally, learn the cycle. Memorize it (well, the short version, anyway). Regardless of the "Great Cycle Debates," it is paramount. You may disregard using it later at your discretion, but you have to know it. Only takes about 5 minutes and can be found in any IBM RPG reference manual (and some textbooks).

* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>

Srinivas Boggula wrote:

Hi ken,

Well said sir, I do agree with your statements Since I'm at learning stage I need support from the teacher
And one more thing most of the concepts are new to me so it takes
time to understand those concepts and to implement.

My humble requests to every one please help juniors.

Regards,
Srinivas

-----Original Message-----
From: rpg400-l-bounces+srinivas.boggula=igate.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+srinivas.boggula=igate.com@xxxxxxxxxxxx] On
Behalf Of Ken Slaugh
Sent: Tuesday, August 28, 2007 5:54 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Control Level Indicators (L1-L9)

Sure do have kids... When I can, I help them understand their homework
too.

I hope this young man does well in RPG and if he takes what I've given
him and prospers, great. Maybe your way of teaching includes frustrating
the student. If not, you and I aren't that different. Besides, he still
has to take his final exam on his own.

RPG400-L is supposed to be a benefit, not a place of ridicule.

- Ken

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Captain Jerry
Sent: Monday, August 27, 2007 4:09 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Control Level Indicators (L1-L9)

You don't have kids, do ya' Ken? It's the oldest trick in the book!
LOL

On 8/27/07, rick baird <rick.baird@xxxxxxxxx> wrote:

Ken,

You just completed this young man's homework assignment. ;-)

On 8/27/07, Ken Slaugh <ken.slaugh@xxxxxxxxxx> wrote:

_________________________________________________________________

FPF1 IP E K DISK
FQPRINT O F 132 PRINTER

d LRPop s 15s 0 inz
d L2Pop s 15s 0 inz
d L1Pop s 15s 0 inz

IPFREC1 01
I STATE L2
I CITY L1

c L2 clear L2Pop
c L1 clear L1Pop

c eval L1Pop = L1Pop + Population

cL1 eval L2Pop = L2Pop + L1Pop
cL2 eval LRPop = LRPop + L2Pop

oQPRINT T L1
o 'City - '
o L1Pop Z
o T L2
o 'State - '
o L2Pop Z
o T LR
o 'Final - '
o LRPop Z

________________________________________________________________

Hope this helps,

Ken Slaugh (707) 795-1512 x118
Director of Technical Development
Chouinard and Myhre, Inc.
http://www.cm-inc.com/

DISCLAIMER: The information contained in this e-mail may be confidential and is intended solely for the use of the addressee. Access, copying or re-use of the e-mail or any information contained

therein by any other person is not authorized. If you are not the intended recipient, please notify us immediately by returning the e-mail to the originator and destroying all unauthorized copies.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Srinivas Boggula
Sent: Monday, August 27, 2007 7:23 AM
To: RPG programming on the AS400 / iSeries
Subject: Control Level Indicators (L1-L9)

Hi every one,

My requirement is to generate a report using control level indicators
(L1-L9)

I have a physical file with following fields 1) STATE 2) CITY 3) POPULATION

Now where ever city changes I need to print a new record on spool file

Below is the code I have written to do this, I'm getting the output but I don't know

Whether this output is correct or not, I'm really confused with the indicators

Can any one please guide me what is the exact use of control level indicators.

Thanks in advance

Code for your reference

FPF1 IP E K DISK

FQPRINT O F 132 PRINTER

F*

IPFREC1 01

I STATE L1

I CITY L3

I POPULATION L2

I*

OQPRINT D 01

O STATE

O CITY

O POPULATION

O T LR

Physical file data

STATE CITY
POPULATION

000001 ANDHRA PRADESH New Delhi

3,00,000

000002 ANDHRA PRADESH SECUNDERABAD 300,000

000003 ANDHRA PRADESH SECUNDERABAD 300,000

000004 ANDHRA PRADESH SECUNDERABAD 400,000

000005 ANDHRA PRADESH VIJAYAWADA 300,000

000006 ANDHRA PRADESH VIJAYAWADA 300,000

000007 ANDHRA PRADESH VIJAYAWADA 300,000

000008 ANDHRA PRADESH VIJAYAWADA 300,000

000009 ANDHRA PRADESH KURNOOL 300,000

000010 ANDHRA PRADESH KURNOOL 300,000

000011 ANDHRA PRADESH KURNOOL 300,000

000012 ANDHRA PRADESH KURNOOL 300,000

000013 ANDHRA PRADESH KURNOOL 300,000

000014 ANDHARA PRADESH New Delhi 100,000

000015 ANDHARA PRADESH New Delhi 200,000

Best Regards,

Srinivas

----------------------------------------------------------------DISC
LAIM
ER---------------------------------------------------------
Information transmitted by this EMAIL is proprietary to iGATE Group of Companies and is intended for use only by the individual or entity to whom it is addressed and may contain information that is privileged, confidential, or exempt from disclosure under applicable

law. If you are not the intended recipient of this EMAIL immediately

notify the sender at iGATE or mailadmin@xxxxxxxxx and delete this EMAIL including any attachments

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

____________________________________________________________________
____
_____
Scanned by IBM Email Security Management Services powered by MessageLabs. For more information please contact mailto:smtpalerts@xxxxxxxxxx ____________________________________________________________________
____
_____

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

--
"entia non sunt multiplicanda praeter necessitatem"
(one should not increase, beyond what is necessary, the number of
entities required to explain anything.)
-- Franciscan friar William of Ockham (Ockham's Razor)

***********

"Si fractum non sit, noli id reficere!"
(If it ain't broke, don't fix it!)
-- Bert Lance
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.

________________________________________________________________________
_____
Scanned by IBM Email Security Management Services powered by
MessageLabs. For more information please contact
mailto:smtpalerts@xxxxxxxxxx
________________________________________________________________________
_____