E-Mail senden

E-Mail senden

MAILS2 (RPGLE)

X

X

*

*PSSR

BEGSR

MAILS2

2

X

X

*

*ENTRY

PLIST

MAILS2

2

H

H

*COPYRIGHT JÜRGEN REULE 2024-2026

H

H

DATFMT(*ISO) TIMFMT(*ISO)

H

DFTACTGRP(*NO) ACTGRP('QILE')

H

COPYRIGHT('COPYRIGHT JÜRGEN REULE 2024-2026')

H

D

POS

S

5

S

0

INZ

D

LONGMSG

S

5000

A

D

D

NN

C

CONST(':/N')

D

NNLEN

C

CONST(%SIZE(NN))

D

D

PP

C

CONST(':/P')

D

PPLEN

C

CONST(%SIZE(PP))

D

D

NNX

C

CONST(X'0D')

D

PPX

C

CONST(X'0D0D')

D

C

C

*

--------------------------------------

C

*

:/N im Text suchen und ersetzen

C

*

--------------------------------------

C

NN

SCAN

LONGMSG

POS

—

77

78

C

*IN78

DOWEQ

*ON

C

EVAL

LONGMSG = %REPLACE(NNX:LONGMSG:POS:NNLEN)

C

NN

SCAN

LONGMSG:POS

POS

—

77

78

C

ENDDO

C

*

--------------------------------------

C

*

:/P im Text suchen und ersetzen

C

*

--------------------------------------

C

PP

SCAN

LONGMSG

POS

—

77

78

C

*IN78

DOWEQ

*ON

C

EVAL

LONGMSG = %REPLACE(PPX:LONGMSG:POS:PPLEN)

C

PP

SCAN

LONGMSG:POS

POS

—

77

78

C

ENDDO

C

C

SETON

—

LR

—

C

C

*PSSR

BEGSR

C

ENDSR

'*CANCL'

C

C

*ENTRY

PLIST

C

PARM

LONGMSG

59 ms | Kontakt | Information | Aibo-Bar © 2005-2026