Marke

BAR$LABEL (RPGLE)



  X * LABEL BEGSR BAR$LABEL 22  
  X * LABELDEF BEGSR BAR$LABEL 7  
  X * LABELUSE BEGSR BAR$LABEL 7  
  X * LABELCLR BEGSR BAR$LABEL 15  
  X * LABELLINES BEGSR BAR$LABEL 19  
  X * LABELDATETIME BEGSR BAR$LABEL 31  
  X  
  X * LAKEY KLIST BAR$LABEL 7  
  X * LAKEYNO KLIST BAR$LABEL 7  
  X * LAKEY2SET KLIST BAR$LABEL 4  
  X * LAKEY2 KLIST BAR$LABEL 3  
  X * LAKEYLAB KLIST BAR$LABEL 7  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2017-2023
C          
  X * LABELDEF EXSR BAR$LABEL    
  X * LABELUSE EXSR BAR$LABEL    
  X  
C     LABEL BEGSR                
C     *IN37 IFEQ *ON              
C     *BLANKS IFNE RPGLABEL              
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C       OPEN LABELP       77  
C     LAKEY CHAIN LABELF       77 77  
C   77 LAKEYNO CHAIN LABELF       77 77  
C       MOVEL(P) RPGSUBR LASUBR            
C       MOVEL(P) RPGTYPE LATYPE            
C       MOVEL(P) RPGLABEL LALABEL            
C       MOVEL(P) RPGOPCODE LAOPCODE            
C       MOVEL(P) RPGSRCMBR LASRCMBR            
C     *ZERO ADD RPGSRCSEQ LASRCSEQ            
C     *ZERO ADD RPGSEQLINE LASEQLINE            
C     *ZERO ADD 1 LALINES            
C   77   WRITE LABELF       78  
C   N77   UPDATE LABELF       78  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LABEL CHAIN BAR$LABEL    
  X  
C     LAKEY KLIST                
C       KFLD   RPGSRCMBR            
C       KFLD   RPGSEQLINE            
C       KFLD   RPGSUBR            
C       KFLD   RPGLABEL            
C       KFLD   RPGTYPE            
C       KFLD   RPGOPCODE            
C          
  X * LABEL CHAIN BAR$LABEL    
  X  
C     LAKEYNO KLIST                
C       KFLD   RPGSRCMBR            
C       KFLD   NOSEQLINE            
C       KFLD   RPGSUBR            
C       KFLD   RPGLABEL            
C       KFLD   RPGTYPE            
C       KFLD   RPGOPCODE            
C          
  X * LINKSRCDEF EXSR BAR$SRC    
  X  
C     LABELDEF BEGSR                
C       MOVEL(P) 'D' RPGTYPE            
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C       EXSR LABEL              
C       ENDSR                
C          
  X * LINKSRCUSE EXSR BAR$SRC    
  X  
C     LABELUSE BEGSR                
C       MOVEL(P) 'U' RPGTYPE            
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C       EXSR LABEL              
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X  
C     LABELCLR BEGSR                
C     *IN37 IFEQ *ON              
C *     --------------------------------------
C *     Marken löschen
C *     --------------------------------------
C       OPEN LABELP       77  
C     RPGSRCMBR SETLL LABELP       77  
C   N77 RPGSRCMBR READE LABELP       77 77  
C     *IN77 DOWEQ *OFF              
C       MOVEL(P) NOSEQLINE LASEQLINE            
C       UPDATE LABELF       77  
C     RPGSRCMBR READE LABELP       77 77  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     LABELLINES BEGSR                
C     *IN37 IFEQ *ON              
C     *BLANKS IFNE RPGLABEL              
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C       OPEN LABELP       77  
C       OPEN LABELL2       77  
C     LAKEY2SET SETGT LABELL2       77  
C     LAKEY2 READPE LABELL2       77 77  
C   N77 LAKEYLAB CHAIN LABELF       77 77  
C     *IN77 IFEQ *OFF              
C     RPGSEQLINE SUB LASEQLINE LALINES            
C       ADD 1 LALINES            
C       UPDATE LABELF       78  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LABELLINES SETGT BAR$LABEL    
  X  
C     LAKEY2SET KLIST                
C       KFLD   RPGLABEL            
C       KFLD   RPGSRCMBR            
C       KFLD   RPGSEQLINE            
C          
  X * LABELLINES READPE BAR$LABEL    
  X  
C     LAKEY2 KLIST                
C       KFLD   RPGLABEL            
C       KFLD   RPGSRCMBR            
C          
  X * SRCALL EXSR BAR$SRC    
  X  
C     LABELDATETIME BEGSR                
C     *IN37 IFEQ *ON              
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C     *CYMD0 TEST(D)   SRCCHGDATE     77  
C   N77 *HMS0 TEST(T)   SRCCHGTIME     77  
C   77   CLEAR   SRCCHG            
C     *BLANKS IFNE SRCCHG              
C     *CYMD0 MOVE SRCCHGDATE DATUM            
C     *HMS0 MOVE SRCCHGTIME ZEIT            
C          
C       CLEAR   LABELDS            
C *     --------------------------------------
C *     Marke aktualisieren
C *     --------------------------------------
C       OPEN LABELP       77  
C       OPEN LABELL9       77  
C     SRCMBR CHAIN LABELL9       77 77  
C   N77 LAKEYLAB CHAIN LABELF       77 77  
C       MOVEL(P) 'Z' LATYPE            
C     *ISO MOVEL(P) DATUM LASUBR            
C     *HMS MOVEL(P) ZEIT LALABEL            
C       MOVEL(P) SRCMBR LASRCMBR            
C     *ZERO ADD SRCLINES LASEQLINE            
C     *ZERO ADD SRCLINES LALINES            
C   77   WRITE LABELF       78  
C   N77   UPDATE LABELF       78  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LABELLINES CHAIN BAR$LABEL    
  X * LABELDATETIME CHAIN BAR$LABEL    
  X  
C     LAKEYLAB KLIST                
C       KFLD   LASRCMBR            
C       KFLD   LASEQLINE            
C       KFLD   LASUBR            
C       KFLD   LALABEL            
C       KFLD   LATYPE            
C       KFLD   LAOPCODE            

202 ms | Contact | Information | Aibo-Bar © 2005-2024