Link to home
Start Free TrialLog in
Avatar of dude02
dude02Flag for United States of America

asked on

CTDATA record question

Hi,

I have a question on RPG IV programming. I am trying to enter **CTDATA with no luck. This is what I have so far.                                                                                                                                                              
                                                                                                                                                                                                   
0001.00 FNICKNAMEFMCF   E             WORKSTN SFILE(LISTSF:RRN)                                                            
0002.00                                                                                                                      
0003.00 D Stte            S             52    DIM(50) CTDATA PERRCD(1)                                                      
0004.00 D RRN             S              5  0                                                                                
0005.00 DEOFLST           S                   LIKE(*INLR)                                                                    
0006.00                                                                                                                      
0007.00  * Data Structure to break state abbreviation and name apart.                                                        
0008.00 D DataStr         DS            52                                                                                    
0009.00 D  LSTITM                 1     30                                                                                    
0010.00 D  SttAbb                 1      2                                                                                    
0011.00  * Blank Space In between for display purposes                                                                        
0012.00 D  StName                 4     30                                                                                    
0013.00 D  NckNam                31     52                                                                                    
0014.00  *                                                                                                                    
0015.00  * Clear Subfile                                                                                                      
0016.00  *                                                                                                                    
0017.00 C                   DoW       *INLR=*Off                                                                              
0018.00 C                   Eval      *IN50=*Off                                                                              
0019.00 C                   Eval      RRN=0    
0020.00 C                   Clear                   SEL                                                                      
0021.00 C                   Write     LIST                                                                                    
0022.00  *                                                                                                                    
0023.00  * Load Subfile                                                                                                      
0024.00  *                                                                                                                    
0025.00 C                   Do        50            RRN                                                                      
0026.00 C                   Eval      DataStr=Stte(RRN)                                                                      
0027.00 C                   Write     LISTSF                                                                                  
0028.00 C                   EndDo                                                                                            
0029.00 C                   Eval      *IN50=*On                                                                              
0030.00  *                                                                                                                    
0031.00  * Display List                                                                                                      
0032.00  *                                                                                                                    
0033.00 C                   Exfmt     LIST                                                                                    
0034.00 C                   If        *INKC=*On                                                                              
0035.00 C                   Eval      *INLR=*On                                                                              
0036.00 C                   Else                                                                                              
0037.00 C                   Eval      EOFLST=*Off                                                                            
0038.00 C                   DoW       EOFLST=*Off                                                                            
0039.00 C                   ReadC     LISTSF                                                                                                                                                                
0040.00 C                   Eval      EOFLST=%EOF(NICKNAMEFM)                              
0041.00 C                   If        EOFLST=*Off And SEL='1'                              
0042.00 C                   Exfmt     LISTNICK                                              
0043.00 C                   Leave                                                          
0044.00 C                   EndIF                                                          
0045.00 C                   EndDo                                                          
0046.00 C                   EndIF                                                          
0047.00 C                   EndDo                                                          
0048.00 **State names table                                                            
                                                                                                                                   

This is were I am having the problems with. There has to be a way to enter this information as follows.

AL Alabama Yellowhammer State

I keep getting errors when I try to enter this information. Any suggestions would be greatly appreciated. Thanks.
ASKER CERTIFIED SOLUTION
Avatar of Member_2_276102
Member_2_276102

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of dude02

ASKER

Thanks.