Nummer

BAR$NUM (RPGLE)



  X * NUMSTR BEGSR BAR$NUM 14  
  X * STRNUM BEGSR BAR$NUM 27  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * ARTTITEL EXSR BAR$ART    
  X * LINKART$ EXSR BAR$LINK    
  X * LINKARTREF EXSR BAR$LINK    
  X * LINKADDNEU# EXSR BAR$LINK    
  X * LISTEBARNEU EXSR BAR$LISTE    
  X * LISTEKAL3 EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * LISTESRCS EXSR BAR$LISTE    
  X * REDIRECTARTPN2 EXSR BAR$NEUED    
  X * REDIRECTAW2 EXSR BAR$NEUED    
  X * REDIRECTAG2 EXSR BAR$NEUED    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF2 EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * LINKSRCSEQ EXSR BAR$SRC    
  X * LINKSRCSEQ EXSR BAR$SRC    
  X * LINKSRCUSE EXSR BAR$SRC    
  X * LINKSRCUSES EXSR BAR$SRC    
  X * COLSTARTALL EXSR BAR$TABLE    
  X * COLCOLOR EXSR BAR$TABLE    
  X * TEXTSMILYSAGN2 EXSR BAR$TEXT    
  X * ZEILEART EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWINF EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     NUMSTR BEGSR                
C *     --------------------------------------
C *     Zahl in Text umwandeln
C *     --------------------------------------
C     *ZERO COMP NUM       70 — —  
C   70 *ZERO SUB NUM NUM            
C   70   MOVEL(P) '-' STRPM            
C   N70   CLEAR   STRPM            
C       MOVEL(P) NUM STR            
C     '0 ' CHECK STR POSX     — — 70  
C   70   SUBST(P) STR:POSX STR            
C   N70   MOVEL(P) '0' STR            
C     STRPM CAT STR:0 STR            
C       ENDSR                
C          
  X * GETCONTENT EXSR BAR$DATEN    
  X * JAVASCRIPT#2 EXSR BAR$SCRIPT    
  X * SEITEBESUCHE EXSR BAR$SEITE    
  X * SEITEART EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SENDRANGE2 EXSR BAR$SEND    
  X  
C     STRNUM BEGSR                
C       SETON         70 — —  
C       CLEAR   NUM            
C *     --------------------------------------
C *     Text in Zahl umwandeln
C *     --------------------------------------
C     1 SUBST(P) STR STRPM            
C     '-' IFEQ STRPM              
C       SUBST(P) STR:2 STR            
C       ENDIF                
C     1 SUBST(P) STR STRX            
C     '0' IFNE STRX              
C     ' ' CHECKR STR POSX            
C       MOVEL(P) *ALL'0' STRX            
C     STRXLEN IFGE POSX              
C     STRXLEN SUB POSX POSX     78 — —  
C   78 POSX SUBST(P) STRX STRX            
C   N78   CLEAR   STRX            
C       CAT STR:0 STRX            
C       ENDIF                
C     '0123456789' CHECK STRX       — 70 70  
C   N70   MOVE (P) STRX NUM            
C       ENDIF                
C     '-' IFEQ STRPM              
C     *ZERO SUB NUM NUM            
C       ENDIF                
C       ENDSR                

149 ms | Kontakt | Information | Aibo-Bar © 2005-2024