Re: Control Level Indicators (L1-L9)

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


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