E-Mail senden

E-Mail senden

MAILS2 (RPGLE)

X

*

*PSSR

BEGSR

MAILS2

2

X

X

*

*ENTRY

PLIST

MAILS2

2

X

H

H

*COPYRIGHT JÜRGEN REULE 2024-2024

H

H

DATFMT(*ISO) TIMFMT(*ISO)

H

DFTACTGRP(*NO) ACTGRP('QILE')

H

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

H

D

POS

S

5

S

0

INZ

D

LONGMSG

S

5000

A

D

D

MAILN

C

CONST(':/N')

D

MAILNLEN

C

CONST(%SIZE(MAILN))

D

D

MAILP

C

CONST(':/P')

D

MAILPLEN

C

CONST(%SIZE(MAILP))

D

D

NN

C

CONST(X'0D')

D

PP

C

CONST(X'0D0D')

D

C

C

*

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

C

*

:/N im Text suchen und ersetzen

C

*

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

C

MAILN

SCAN

LONGMSG

POS

—

77

78

C

*IN78

DOWEQ

*ON

C

EVAL

LONGMSG = %REPLACE(NN:LONGMSG:POS:MAILNLEN)

C

MAILN

SCAN

LONGMSG:POS

POS

—

77

78

C

ENDDO

C

*

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

C

*

:/P im Text suchen und ersetzen

C

*

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

C

MAILP

SCAN

LONGMSG

POS

—

77

78

C

*IN78

DOWEQ

*ON

C

EVAL

LONGMSG = %REPLACE(PP:LONGMSG:POS:MAILPLEN)

C

MAILP

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

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