× 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. January 2004

RE: Load a record into a data structure for DEBUGGING purposes.

<P>&nbsp;Ok try this. I know this works because I use this method all the 
time.</P><P>&nbsp;</P><P>Create a ds with the same fields as your file. 
</P><P>This will ensure the data is kept in contiguous memory</P><P><FONT 
FACE="Courier">D MPSDs &nbsp; &nbsp; &nbsp; &nbsp; e ds &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp;extname(MPSSum)</FONT></P><P>&nbsp;</P><P>then for your arrays use 
pointers to overlay the fields in the data structure</P><P>D mpsch &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; like(mpsch1) dim(12) 
based(schPtr)</P><P>D schPtr &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; s &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; * &nbsp; &nbsp; 
&nbsp; inz(%addr(mpsch1))</P><P>to replace this:</P><P><FONT 
FACE="Courier">&gt;D ScheduleDS &nbsp; &nbsp; &nbsp;ds &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;inz<BR>&gt;D mpsch1 &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;1 &nbsp; &nbsp; 11 
&nbsp;2<BR>&gt;D mpsch2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
12 &nbsp; &nbsp; 22 &nbsp;2<BR>&gt;D mpsch3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; 23 &nbsp; &nbsp; 33 &nbsp;2<BR>&gt;D mpsch4 &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 34 &nbsp; &nbsp; 44 &nbsp;2<BR>&gt;D 
mpsch5 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 45 &nbsp; &nbsp; 
55 &nbsp;2<BR>&gt;D mpsch6 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; 56 &nbsp; &nbsp; 66 &nbsp;2<BR>&gt;D mpsch7 &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; 67 &nbsp; &nbsp; 77 &nbsp;2<BR>&gt;D mpsch8 &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 78 &nbsp; &nbsp; 88 
&nbsp;2<BR>&gt;D mpsch9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
89 &nbsp; &nbsp; 99 &nbsp;2<BR>&gt;D mpsch10 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; 100 &nbsp; &nbsp;110 &nbsp;2<BR>&gt;D mpsch11 &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 111 &nbsp; &nbsp;121 &nbsp;2<BR>&gt;D 
mpsch12 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 122 &nbsp; &nbsp;132 
&nbsp;2<BR>&gt;D mpsch &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; 1 &nbsp; &nbsp;132 &nbsp;2 dim(12)</FONT><BR><BR><FONT 
SIZE=2><B>&quot;Carel Teijgeler&quot; 
&lt;coteijgeler@xxxxxxxxx&gt;</B></FONT><BR><FONT SIZE=2>Sent by: 
rpg400-l-bounces@xxxxxxxxxxxx</FONT><BR><FONT SIZE=2>01/31/2004 12:04 AM 
CET</FONT><BR><FONT SIZE=2>Please respond to RPG programming on the AS400 / 
iSeries</FONT><BR><BR> <FONT SIZE=2>To:</FONT> <FONT 
SIZE=2>rpg400-l@xxxxxxxxxxxx</FONT><BR> <FONT SIZE=2>cc:</FONT> <BR> <FONT 
SIZE=2>bcc:</FONT> <BR> <FONT SIZE=2>Subject:</FONT> <FONT SIZE=2>RE: Load a 
record into a data structure for DEBUGGING purposes.</FONT><BR> 
<BR><BR></P><P><FONT FACE="Monospace,Courier">Peter,<BR></FONT><BR><FONT 
FACE="Monospace,Courier">you can rename the sufields in MPSDs with 
EXTFLD.something like:<BR></FONT><BR><FONT FACE="Monospace,Courier">&gt;D MPSDs 
&nbsp; &nbsp; &nbsp; &nbsp; e ds &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp;extname(MPSSum)<BR>&gt;D mpsch1a &nbsp; &nbsp; &nbsp; e 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
extfld(mpsch1)<BR></FONT><BR><FONT FACE="Monospace,Courier">Regards,<BR>Carel 
Teijgeler<BR></FONT><BR><FONT FACE="Monospace,Courier">*********** REPLY 
SEPARATOR &nbsp;***********<BR></FONT><BR><FONT FACE="Monospace,Courier">On 
30-1-04 at 10:21 Peter Vidal wrote:<BR></FONT><BR><FONT 
FACE="Monospace,Courier">&gt;&quot;...could you just not use the fields in 
other data structures? &nbsp;Give a couple<BR>&gt;of samples of these other 
data structures.&quot;<BR>&gt;<BR>&gt;Yes, I need them there to be able to 
effectively process the data. &nbsp;Here are<BR>&gt;more details of the 
program:<BR>&gt;<BR>&gt;FMPSSum &nbsp; &nbsp;uf a e &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; k disk<BR>&gt;.<BR>&gt;D MPSDs &nbsp; &nbsp; &nbsp; &nbsp; e ds &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;extname(MPSSum) 
Prefix(#)<BR>&gt;.<BR>&gt; * &nbsp;Schedule Data Structure<BR>&gt;D ScheduleDS 
&nbsp; &nbsp; &nbsp;ds &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp;inz<BR>&gt;D mpsch1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp;1 &nbsp; &nbsp; 11 &nbsp;2<BR>&gt;D mpsch2 &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 12 &nbsp; &nbsp; 22 &nbsp;2<BR>&gt;D mpsch3 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 23 &nbsp; &nbsp; 33 
&nbsp;2<BR>&gt;D mpsch4 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
34 &nbsp; &nbsp; 44 &nbsp;2<BR>&gt;D mpsch5 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; 45 &nbsp; &nbsp; 55 &nbsp;2<BR>&gt;D mpsch6 &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 56 &nbsp; &nbsp; 66 &nbsp;2<BR>&gt;D 
mpsch7 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 67 &nbsp; &nbsp; 
77 &nbsp;2<BR>&gt;D mpsch8 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; 78 &nbsp; &nbsp; 88 &nbsp;2<BR>&gt;D mpsch9 &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; 89 &nbsp; &nbsp; 99 &nbsp;2<BR>&gt;D mpsch10 &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 100 &nbsp; &nbsp;110 &nbsp;2<BR>&gt;D 
mpsch11 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 111 &nbsp; &nbsp;121 
&nbsp;2<BR>&gt;D mpsch12 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 122 
&nbsp; &nbsp;132 &nbsp;2<BR>&gt;D mpsch &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; 1 &nbsp; &nbsp;132 &nbsp;2 
dim(12)<BR>&gt;<BR>&gt;If I do not rename the MPSDS to have a PREFIX(let's say 
&quot;#&quot;), then it will say<BR>&gt;that MPSCH1,MPSCH2,MPSCH3, etc. are 
already defined:<BR>&gt;<BR>&gt;*RNF3315 20 a &nbsp; &nbsp; &nbsp;009300 
&nbsp;The Name entry is already defined on a<BR>&gt;Definition<BR>&gt; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; Specification; defaults to blanks.<BR></FONT><BR><BR><BR><FONT 
FACE="Monospace,Courier">_______________________________________________<BR>This
 is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list<BR>To 
post a message email: RPG400-L@xxxxxxxxxxxx<BR>To subscribe, unsubscribe, or 
change list options,<BR>visit: <A 
HREF=http://lists.midrange.com/mailman/listinfo/rpg400-l>http://lists.midrange.com/mailman/listinfo/rpg400-l</A><BR>or
 email: RPG400-L-request@xxxxxxxxxxxx<BR>Before posting, please take a moment 
to review the archives<BR>at <A 
HREF=http://archive.midrange.com/rpg400-l>http://archive.midrange.com/rpg400-l</A>.</FONT></P>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.