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

Hi Sir,
I'm learning RPG IV with fixed format
I just came across with control level indicators while referring books
With curiosity I tried the program. I really don't know whether it is
used in RPG III or RPG IV.

Any ways thanks to all you helped me to achieve my target.

Regards,
Srinivas

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Tuesday, August 28, 2007 9:26 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Control Level Indicators (L1-L9)

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.