Anfrage aufzeichnen

Anfrage aufzeichnen

ANFRAGEN (RPGLE)

X

*

QCMDPARM

PLIST

ANFRAGEN

3

X

*

QRCVPARM

PLIST

ANFRAGEN

6

X

*

QSNDPARM

PLIST

ANFRAGEN

5

X

*

*ENTRY

PLIST

ANFRAGEN

3

X

H

H

*COPYRIGHT JÜRGEN REULE 2021-2023

H

H

DATFMT(*ISO) TIMFMT(*ISO)

H

DFTACTGRP(*NO) ACTGRP('QILE')

H

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

H

F

ANFRAGEP

U

F

A

E

K

DISK

USROPN

F

D

ANFRAGEDS

E

DS

INZ EXTNAME(ANFRAGEP)

D

D

DTAQDS

DS

D

DTAQ

10

A

D

DTAQLIB

10

A

D

D

ANFDSLEN

C

CONST(%SIZE(ANFRAGEDS))

D

ANFDSLENX

S

5

P

0

INZ

D

D

WAIT

C

CONST(20)

D

WAITX

S

5

P

0

INZ

D

D

HOUR

S

2

A

INZ

D

HOURX

S

2

A

D

D

CMD

S

32702

A

INZ

D

CMDLEN

S

15

P

5

INZ(%SIZE(CMD))

D

D

DATETIME

S

Z

INZ

D

D

QCMDEXC

C

CONST('QCMDEXC')

D

QRCVDTAQ

C

CONST('QRCVDTAQ')

D

QSNDDTAQ

C

CONST('QSNDDTAQ')

D

C

C

HOURX

IFGT

'23'

C

MOVEL(P)

'06'

HOURX

C

ENDIF

C

C

TIME

DATETIME

C

EXTRCT

DATETIME:*H

HOUR

C

SHTDN

77

—

—

C

C

*IN77

DOWEQ

*OFF

C

HOUR

ANDLT

HOURX

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

EVAL

CMD = 'DLYJOB +

C

DLY('+%CHAR(WAIT)+')'

C

CALL

QCMDEXC

QCMDPARM

—

77

—

C

TIME

DATETIME

C

EXTRCT

DATETIME:*H

HOUR

C

SHTDN

77

—

—

C

ENDDO

C

C

*IN77

IFEQ

*OFF

C

HOUR

ANDGE

HOURX

C

OPEN

ANFRAGEP

—

77

—

C

C

*IN77

DOWEQ

*OFF

C

HOUR

ANDGE

HOURX

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

CALL

QRCVDTAQ

QRCVPARM

—

77

—

C

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

*IN77

IFEQ

*OFF

C

ANFDSLEN

ANDEQ

ANFDSLENX

C

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

WRITE

ANFRAGEF

—

77

—

C

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

77

CALL

QSNDDTAQ

QSNDPARM

—

77

—

C

C

ENDIF

C

*

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

C

*

Anfrage aufzeichnen

C

*

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

C

TIME

DATETIME

C

EXTRCT

DATETIME:*H

HOUR

C

SHTDN

77

—

—

C

ENDDO

C

C

CLOSE

ANFRAGEP

—

77

—

C

ENDIF

C

C

SETON

—

LR

—

C

X

*

*MAIN*

CALL

ANFRAGEN

X

C

QCMDPARM

PLIST

C

PARM

CMD

C

PARM

CMDLEN

C

X

*

*MAIN*

CALL

ANFRAGEN

X

C

QRCVPARM

PLIST

C

PARM

DTAQ

C

PARM

DTAQLIB

C

PARM

ANFDSLEN

ANFDSLENX

C

PARM

ANFRAGEDS

C

PARM

WAIT

WAITX

C

X

*

*MAIN*

CALL

ANFRAGEN

X

C

QSNDPARM

PLIST

C

PARM

DTAQ

C

PARM

DTAQLIB

C

PARM

ANFDSLEN

ANFDSLENX

C

PARM

ANFRAGEDS

C

C

*ENTRY

PLIST

C

PARM

DTAQDS

C

PARM

HOURX

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