Good Morning

["Phil Campbell" <pcampbell@xxxxxxxxxxxx>]

I am working on coverting programs from a S/36 (CBL36) mode to a AS400 (CBL) 
mode.  I've run into 2 things that I have not been able to figure out.  
Hopefully someone can help me. 

1)  How do you get the position the cursor is at when the enter or a function 
key is pressed.  This is how I have it set up on the S/36.   

                                                                  
     SELECT SCREEN-FILE    ASSIGN TO WORKSTATION-OR001FM          
                           ORGANIZATION TRANSACTION               
                           CONTROL-AREA IS SCREEN-CONTROL-AREA.   
                                                                  
       01  SCREEN-CONTROL-AREA.                                        
           05  KEY-FUNCTION            PIC 99.                         
               88  ENTER-KEY              VALUE 0.                     
               88  CMD-KEY1               VALUE 1.                     
               88  CMD-KEY2               VALUE 2.                     
               88  CMD-KEY3               VALUE 3.                     
               88  CMD-KEY4               VALUE 4.                     
               88  CMD-KEY5               VALUE 5.                     
               88  CMD-KEY6               VALUE 6.                     
               88  CMD-KEY7               VALUE 7.                     
               88  CMD-KEY8               VALUE 8.                     
               88  CMD-KEY9               VALUE 9.                     
               88  CMD-KEY10              VALUE 10.                    
               88  CMD-KEY11              VALUE 11.                    
               88  CMD-KEY12              VALUE 12.                    
               88  CMD-KEY13              VALUE 13.  
               88  CMD-KEY14              VALUE 14.                    
               88  CMD-KEY15              VALUE 15.                    
               88  CMD-KEY16              VALUE 16.                    
               88  CMD-KEY17              VALUE 17.                    
               88  CMD-KEY18              VALUE 18.                    
               88  CMD-KEY19              VALUE 19.                    
               88  CMD-KEY20              VALUE 20.                    
               88  CMD-KEY21              VALUE 21.                    
               88  CMD-KEY22              VALUE 22.                    
               88  CMD-KEY23              VALUE 23.                    
               88  CMD-KEY24              VALUE 24.                    
               88  CMD-PGDN               VALUE 90.                    
               88  CMD-PGUP               VALUE 91.                    
           05  TERMINAL-ID             PIC X(2).                       
           05  RESERVED                PIC X(8).                       
           05  CURSOR-ROW              PIC 999.                        
           05  CURSOR-COL              PIC 999.                  

2) On the S/36 I have got logical files but off the physical file with multiple 
keys.  I cannot compile these on the AS400.  I am REALLY stumped on this one.  
What do you do to convert logical files (COBOL wise) from the system/36 to the 
AS400.

Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx

Phil Campbell  :)