Re: Control Level Indicators (L1-L9)

I guess they're teaching RPG II instead of rocket science at the IIT (Indian Institute of Technology) now...

- Steve

----- Original Message ----- From: "Captain Jerry" <captainjerry@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, August 27, 2007 6:09 PM
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
>
>
> ----------------------------------------------------------------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.

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