ich gehe mal davon aus! ;-)

hier mal der gesamt Code (für das sortieren):

PHP-Code:
C           SORSFL    BEGSR
 *                         
 *    initialisieren der Schlüsselfelder (key fields) zum sortieren 
C                     SELEC                                         
 *     Felder als Schlüsselfeder, 9 Byte, char., aufst. 
C           CSRFLD    WHEQ 'TNR'                                            
C                     Z-ADD8         KEYSTA                                 
C                     Z-ADD9         KEYSIZ                                 
C                     Z-ADD6         KEYDTA                                 
C                     SELEC                                                 
C           #F7       WHEQ FKEY                                             
C                     Z-ADD1         KEYASC                                 
C           #F8       WHEQ FKEY                                             
C                     Z-ADD2         KEYASC                                 
C                     ENDSL                                                 
C                     MOVELKEYINF    FGK,1
C                     ENDSL                                       
 *                                                                
 *               weitere Sort Parameter laden                  
C           16        MULT MAXKEY    BLOCKL                       
C                     ADD  80        BLOCKL                       
C                     Z-ADD1         NBROFK                       
C                     Z-ADD62        RECLEN           Record Länge
 *                    initialisieren Sort I/O Felder              
C                     Z-ADDRECLEN    IORECL                       
C                     Z-ADD1         IORECC
 *                                                               
 *          initialisieren der Sortier-Routine  
C                     CALL 'QLGSORT'                             
C                     PARM           SORTBL                      
C                     PARM           NUSED  16                   
C                     PARM           NUSED                       
C                     PARM           SIZLIS  90                  
C                     PARM           RETURS  90                  
C                     PARM           ERROR                       
 *                                                               
 *         Sätze in die I/O Routine schreiben
C                     Z-ADD1         IOTYPE                      
 *                                                               
 *               die gesamte SubFile schreiben              
C           1         DO   SAVRRN    COUNT                       
 *                                                               
C           COUNT     CHAINSFL1                 70
 *                                                                 
C           *IN70     IFNE *ON                                     
 *                                                                 
C                     CALL 'QLGSRTIO'                              
C                     PARM           SORTIO                        
C                     PARM           SFLRCD                        
C                     PARM           NUSED                         
C                     PARM           SIZLIS                        
C                     PARM           NUSED                         
C                     PARM           ERROR                         
 *                                                                 
C                     ENDIF                                        
 *                                                                 
C                     ENDDO                                        
 *                                                                 
 *        Ende der Eingabe signalisieren & Sub
C                     Z-ADD2         IOTYPE                        
 *                                                                 
C                     CALL 'QLGSRTIO'                                   
C                     PARM           SORTIO                             
C                     PARM           SFLRCD                             
C                     PARM           NUSED                              
C                     PARM           SIZLIS                             
C                     PARM           NUSED                              
C                     PARM           ERROR                              
 *                                                                      
 *                    SubFile löschen                                   
C                     MOVE *ON       *IN33                              
C                     Z-ADD*ZEROS    RRN                                
C                     WRITESF1CTL                                       
C                     MOVE *OFF      *IN33                              
 *                                                                      
 *       die Sätze zurück in die SubFile schreiben 
C                     Z-ADD3         IOTYPE                             
 *                                                                      
C           1         DO   SAVRRN    COUNT         
 *                                                 
C                     CALL 'QLGSRTIO'              
C                     PARM           SORTIO        
C                     PARM           NUSED         
C                     PARM           SFLRCD        
C                     PARM           IORECL        
C                     PARM           NUSED         
C                     PARM           ERROR         
 *                                                 
C                     Z-ADDCOUNT     SCRRN         
C                     Z-ADDSCRRN     RRN           
C                     WRITESFL1                    
 *                                                 
C                     ENDDO
 *
C                     Z-ADDRRN       SAVRRN
 *                          
C                     ENDSR