[gelöst] SETLL und READ mit Gruppenwechsel ???

[Pikachu]

Wenn du eine entsprechende logische Datei mit Zugriffspfad und Selektion anlegst, die nur die zutreffenden Datensätze enthält, und als geschlüsselte Datei ins Programm einbindest, dann brauchst du keinen Gruppenwechsel.

A                                      UNIQUE     
A          R NUMF                      PFILE(NUMP)
A            NUM1           3S                    
A            NUM2           3S                    
A            NUM3           3S                    
A          K NUM1                                 
A          K NUM2                                 
A          K NUM3                                 
A          S NUM1                      COMP(GT 0) 
A            NUM2                      COMP(GT 0) 
A            NUM3                      COMP(GT 0)