RE: still can't get INFDS working.. ##@%%#%@%

David,

To test to see if "your computer is broken" trye the following.....

Hdftactgrp(*no) bnddir('QC2LE') actgrp(*new)                  
 *                                                            
D                 DS
 * Hexidecimal B39                                                              
                                      
DPos                      1      2B 0 inz(2873)               
Dhex100                   3      4B 0 inz(256)                
Dresult                   5      8s 0                         
 *                                                            
D printf          PR                  EXTPROC('printf')       
D Print_string                    *   value options(*string)  
 *                                                            
C                   eval      result  = (pos/hex100)          
C                   callp     printf('result equals -> ' +    
C                             %char(result) + x'25')          
 *                                                            
C                   move      '1'           *inlr             


You should see the folling displayed....


  result equals -> 11                   
  Press ENTER to end terminal session.


Not exactly sure why you are geeting "3" as result.  

HTH,

Michael Rooney
Citigroup International
   
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of David Prowak
Sent: Friday, September 24, 2004 2:38 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: still can't get INFDS working.. ##@%%#%@%


Hi,

I'm working on a RPG II program and trying to use the INFDS to
determine the line & col #s.  In my INFDS I have:
I        B      370  3710 POS

When I check the value of POS when the cursor was on line #11 and col
#57, I see:
0B390000

I understand that 0B39 represents the line # and then the col #
consecutively, but
how do I determine the line # in my program?  I tried:
C       POS     DIV  256   LINE# 40

but LINE# then is = '   3'.

What am I doing wrong?

TIA,
Dave
--
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.