SFLCHCCTL mit Datenfreigabe?

[prsbrc]

Okay, danke!
Dann werd ich mal mit der Cursorposition arbeiten versuchen.

MfG

[prsbrc]

So, ich habs mit der RRN des SFL-Cursors gemeistert:

A          R PMTWDWBC                  SFLCTL(PMTWDWBS)      
A                                      SFLSNGCHC(*SLTIND)    
A                                      CHCAVAIL((*COLOR GRN))
A                                      CHCSLT((*COLOR RED))  
A                                      SFLCSRRRN(&SFLREC)    
A                                      SFLPAG(0014)          
A                                      SFLSIZ(2048)          
A  70                                  SFLCLR                
A  71                                  SFLDSPCTL             
A  72                                  SFLDSP                
A  73                                  ROLLUP                
A  74                                  ROLLDOWN              
A  75                                  SFLEND(*SCRBAR *PLUS) 
A                                      OVERLAY               
A                                      CSRLOC(XXCLIN XXCPOS) 
A                                      WINDOW(PMTWDWW0)

Mit dieser RRN kann ich dann im Programm das SFL lesen und habe somit per Enter einen Satz ausgewählt.

C     SFLREC        IFGT      0                                    
C     SFLREC        CHAIN     PMTWDWBS                           91
C     *IN91         IFEQ      *OFF                                 
C                   EVAL      XXPAR1 = BSPAR1                      
C                   EVAL      XXPAR2 = BSPAR2                      
C                   EVAL      XXPAR3 = BSPAR3                      
C                   EVAL      XXPAR4 = BSPAR4                      
C                   EVAL      XXPAR5 = BSPAR5                      
C                   GOTO      ENDPGM                               
C                   ENDIF                                          
C                   ENDIF