× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. August 2007

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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.