RE: Regarding Table data

Hi Shiva

Not sure if it's just the formatting of the message, but the two asterisks
have to be in positions 1 and 2 of the source line so that the compiler
knows that the following lines are table entries and not lines of code.

Your source should look like this:

        ....:....1....:....2....:....3....:....4....:....5.....:....6
0002.00      D tabdata          s              2    dim(4) ctdata          
0003.00      C     kk            lookup    tabdata                        
0004.00      C                   if        found                          
0005.00      C                   exsr      got                            
0006.00      C                   else                                     
0007.00      C                   exsr      null                           
0008.00      C                   endif                                    
0009.00      C     got           begsr                                    
0010.00      C     'got'         dsply     '*REQUESTER'                   
0011.00      C                   ENDSR                                    
0012.00      C     NULL          BEGSR                                    
0013.00      C     'NULL'        DSPLY     '*REQUESTER'                   
0014.00      C                   ENDSR                                    
0015.00 **CTDATA tabdata                                             
0016.00 KK                                                           

To display columns 1-5 in SEU, use F19 to window left.  F20 can be used to
window right.

Hope it helps

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of koti shiva
Sent: 16 May 2006 12:27
To: RPG400-L@xxxxxxxxxxxx
Subject: Regarding Table data 

Hi,
   
   
  I am trying to write a program which uses the compile time data in the
table
   
  While i am tryin to write data in the fom , i am getting the below errorl
   
   
  0002.00 D tabdata          s              2    dim(4) ctdata          
0003.00 C     kk            lookup    tabdata                        
0004.00 C                   if        found                          
0005.00 C                   exsr      got                            
0006.00 C                   else                                     
0007.00 C                   exsr      null                           
0008.00 C                   endif                                    
0009.00 C     got           begsr                                    
0010.00 C     'got'         dsply     '*REQUESTER'                   
0011.00 C                   ENDSR                                    
0012.00 C     NULL          BEGSR                                    
0013.00 C     'NULL'        DSPLY     '*REQUESTER'                   
0014.00 C                   ENDSR                                    
0015.00 **CTDATA tabdata                                             
0016.00 KK                                                           
  0015.00 **CTDATA tabdata        
0016.00 KK                      
   
  Form-Type entry for main procedure not valid or out of sequence
   
  Thanks in Advance
  Shiva Shanker
   

                                
---------------------------------
 Why was V. Sehwag warned by the BCCI? Share your knowledge on Yahoo!
Answers India
 Send instant messages to your online friends - NOW