RE: Program Status DS

Dare I say that wikipedia is the last place I would look for documentation on 
RPG? Go to the horse - www.iseries.ibm.com/infocenter has it all - and it is 
official. Although the Web is a great thing, let us not forget to use the 
traditional sources of information and support. Just like it is easy to depend 
on this list for support of the iSeries - guess what, we are not IBM!!! We will 
very quickly run out of helpful information here.

Vern

-------------- Original message -------------- 
From: "Wilt, Charles" <CWilt@xxxxxxxxxxxx> 

Note that with rpg IV and qualified DSes, you don't need to make up 
dummy names for filler fields. Just leave them blank. 

D PgmSts ds qualified 
// other lines snipped 
D pgmrpgmsg 4a 
D 70a 
D pgmjob 10a 

HTH, 

Charles Wilt 
-- 
iSeries Systems Administrator / Developer 
Mitsubishi Electric Automotive America 
ph: 513-573-4343 
fax: 513-398-1121 

-----Original Message----- 
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jonathan Mason 
Sent: Wednesday, October 11, 2006 11:36 AM 
To: 'RPG programming on the AS400 / iSeries' 
Subject: RE: Program Status DS 

No it's not. 

If you're using the RPG IV example, there needs to be a Filler between 
fields 'pgmrpgmsg' and 'pgmjob' to space them into the 
correct positions: 


D pgmrpgmsg 4a 
D Fill_01 70a 
D pgmjob 10a 

Jonathan 

-----Original Message----- 
From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] 
On Behalf Of Mike 
Sent: 11 October 2006 16:22 
To: RPG programming on the AS400 / iSeries 
Subject: Program Status DS 

Is this documentation correct? 
http://wiki.midrange.com/index.php/Program_Status_Data_Structu 
re#Here_is_a_S 
ample_Program_Status_Data_Structure_in_RPG_IV_Style 
: 

I am not getting expected results in the User field. It has a 
number instead 
of my username. 

-- 
Mike Wills 
Blog - http://mikewills.name 
Podcasts - http://theriverbendpodcast.com 
-- 
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. 

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