Re: Regarding Table data

Why is this here twice?

0015.00 **CTDATA tabdata
0016.00 KK
0015.00 **CTDATA tabdata
0016.00 KK

But also, the **CTDATA tabdata needs to start in position one, not 6. The C
SPECS start in 6.  So you need to shift to the left (Shift + Press F7).

Michael Schutte



                                                                           
             koti shiva                                                    
             <shivakk4u@yahoo.                                             
             co.in>                                                     To 
             Sent by:                  RPG400-L@xxxxxxxxxxxx               
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       Regarding Table data                
             05/16/2006 07:27                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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