RE: Free Format Codeing at V5R1

["Mike Haston ** Data" <MHaston@xxxxxxx>]

A lot of the examples in the V5R1 Redbook are in /free code.


-----Original Message-----
From: Paramasivam Murugesan , Gurgaon
[mailto:ParamasivamM@xxxxxxxxxxxxxxx]
Sent: Tuesday, July 08, 2003 10:21 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free Format Codeing at V5R1


Did IBM publish any RedBook on "FreeFormat Coding in RPG"? I could not find
the PDF stuffs(Related to V5R2 RPG) in IBM Redbooks site.

Murugesh.

-----Original Message-----
From: Kurt Braman [mailto:kbraman@xxxxxxxxxxxxx]
Sent: Tuesday, July 08, 2003 6:49 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Free Format Codeing at V5R1


This is what I found in the help of CODE/400.  To begin a free-form
calculation
group, specify /FREE in positions 7 to 11 and leave positions 12 to 80
blank.
The free-form calculation block ends when you specify /END-FREE. 

Kurt J. Braman
Highsmith Inc.
kbraman@xxxxxxxxxxxxx

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Malchow, Grizzly
> Sent: Tuesday, July 08, 2003 7:59 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: Free Format Codeing at V5R1
> 
> 
> 
> The TGTRLS is at *CURRENT, but I'm running into the problem 
> in SEU. I'm
> putting the / in the specification column (F,D,C,E,O). That 
> is the right
> column isn't it? I get the reversed image across the whole line like I
> would when something isn't in the right column. Also, every time I go
> into PDM I get the following message:   
> 
> Message ID . . . . . . :   CPF9E72  
> Message type . . . . . :   Escape   
> -- A user was added, but the usage limit for product 5722WDS, license
> term
> V5R1M0, feature 5050, was exceeded.  
> 
> Did anyone ever encounter that message before? Is there a chance this
> could have anything to do with it? It looks like something to do with
> Websphere Development Studio to me.
> Thanks  
> 
> > What is the TGTRLS() parameter on your CRTBNDRPG command?  If that
> doesn't
> > fix the problem, perhaps you could post an error message and code
> snippet.
> > Are you getting the error at compile time?  In SEU?  Code?
> >  --buck
> 
> 
> 
> _______________________________________________
> 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.