Besucher

Besucher

BESUCHERQ (RPGLE)

X

*

*PSSR

BEGSR

BESUCHERQ

2

X

X

*

*ENTRY

PLIST

BESUCHERQ

9

X

*

BESUCHERPARM

PLIST

BESUCHERQ

7

X

H

H

*COPYRIGHT JÜRGEN REULE 2018-2023

H

H

DATFMT(*ISO) TIMFMT(*ISO)

H

DFTACTGRP(*NO) ACTGRP(*CALLER)

H

COPYRIGHT('COPYRIGHT JÜRGEN REULE 2018-2023')

H

D

ISNULL

C

CONST(-1)

D

D

POS

S

10

I

0

INZ

D

LEN

S

INZ LIKE(POS)

D

D

ROBOT

S

1

A

INZ

D

TEXTBROWSER

S

1

N

INZ

D

D

AGENT

S

32767

A

VARYING

D

BESUCHER

S

500

A

VARYING

D

AGENTNULL

S

5

I

0

D

BESUCHERNULL

S

5

I

0

D

SQLSTATE

S

5

A

D

FUNCTIONNAME

S

517

A

VARYING

D

SPECIFICNAME

S

128

A

VARYING

D

MSGTEXT

S

1000

A

VARYING

D

C

*ENTRY

PLIST

C

PARM

AGENT

C

PARM

BESUCHER

C

PARM

AGENTNULL

C

PARM

BESUCHERNULL

C

PARM

SQLSTATE

C

PARM

FUNCTIONNAME

C

PARM

SPECIFICNAME

C

PARM

MSGTEXT

C

C

CLEAR

BESUCHER

C

*ZERO

ADD

ISNULL

BESUCHERNULL

C

AGENTNULL

IFNE

ISNULL

C

CALL

'BESUCHER'

BESUCHERPARM

—

77

—

C

CLEAR

BESUCHERNULL

C

ENDIF

C

SETON

—

LR

—

C

X

*

*MAIN*

CALL

BESUCHERQ

X

C

BESUCHERPARM

PLIST

C

PARM

*ZERO

POS

C

PARM

*ZERO

LEN

C

PARM

*BLANKS

ROBOT

C

PARM

AGENT

C

PARM

*BLANKS

BESUCHER

C

PARM

*OFF

TEXTBROWSER

C

C

*PSSR

BEGSR

C

ENDSR

'*CANCL'

C

C

*

DROP FUNCTION BESUCHER

C

*

(VARCHAR(2000))

C

C

*

CREATE FUNCTION BESUCHER

C

*

(VARCHAR(2000))

C

*

RETURNS VARCHAR(500)

C

*

RETURNS NULL ON NULL INPUT

C

*

EXTERNAL NAME BESUCHERQ

C

*

PARAMETER STYLE SQL

C

*

LANGUAGE RPGLE

C

*

DETERMINISTIC

C

*

NO SQL

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