Nummer

Nummer

BARNUM (RPGLE)

X

*

NUMSTR

BEGSR

BARNUM

14

X

*

STRNUM

BEGSR

BARNUM

27

X

C

C

*COPYRIGHT JÜRGEN REULE 2010-2023

C

X

*

ARTTITEL

EXSR

BARART

X

*

LINKART$

EXSR

BARLINK

X

*

LINKARTREF

EXSR

BARLINK

X

*

LINKADDNEU#

EXSR

BARLINK

X

*

LISTEBARNEU

EXSR

BARLISTE

X

*

LISTEKAL3

EXSR

BARLISTE

X

*

LISTESRCS

EXSR

BARLISTE

X

*

LISTESRCS

EXSR

BARLISTE

X

*

REDIRECTARTPN2

EXSR

BARNEUED

X

*

REDIRECTAW2

EXSR

BARNEUED

X

*

REDIRECTAG2

EXSR

BARNEUED

X

*

SEITEARTX

EXSR

BARSEITE

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF

EXSR

BARSEND

X

*

SENDSTMF2

EXSR

BARSEND

X

*

TABLECOPY

EXSR

BARSEND

X

*

SRCRPGDEFS

EXSR

BARSRC

X

*

SRCRPGDEFSX

EXSR

BARSRC

X

*

LINKSRCSEQ

EXSR

BARSRC

X

*

LINKSRCSEQ

EXSR

BARSRC

X

*

LINKSRCUSE

EXSR

BARSRC

X

*

LINKSRCUSES

EXSR

BARSRC

X

*

COLSTARTALL

EXSR

BARTABLE

X

*

COLCOLOR

EXSR

BARTABLE

X

*

TEXTSMILYSAGN2

EXSR

BARTEXT

X

*

ZEILEART

EXSR

BARZEILE

X

*

ZEILEAW2

EXSR

BARZEILE

X

*

ZEILEAWFRA2

EXSR

BARZEILE

X

*

ZEILEAWINF

EXSR

BARZEILE

X

*

ZEILESRC2

EXSR

BARZEILE

X

*

ZEILEBESUCHE2

EXSR

BARZEILE

X

*

ZEILEANFRAGE2

EXSR

BARZEILE

X

*

ZEILEANFRAGE2

EXSR

BARZEILE

X

*

ZEILEANFRAGE2

EXSR

BARZEILE

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

BARDATEN

X

*

JAVASCRIPTS##

EXSR

BARSCRIPT

X

*

SEITEBESUCHE

EXSR

BARSEITE

X

*

SEITEART

EXSR

BARSEITE

X

*

SEITEAW

EXSR

BARSEITE

X

*

SENDRANGE2

EXSR

BARSEND

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

76 ms | Kontakt | Information | Aibo-Bar © 2005-2025