-
Notifications
You must be signed in to change notification settings - Fork 0
/
T_TRANSCO.CLLE
30 lines (24 loc) · 1.33 KB
/
T_TRANSCO.CLLE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
PGM
/* déclaration des variables */
DCL VAR(&LIBTUADH) TYPE(*CHAR) LEN(10) VALUE('ADHTU')
/* suppression des modules */
DLTMOD MODULE(&LIBTUADH/SUTransco)
MONMSG CPF2105
DLTMOD MODULE(&LIBTUADH/TranscoTU)
MONMSG CPF2105
DLTMOD MODULE(&LIBTUADH/TDTransco)
MONMSG CPF2105
/* création des modules */
CRTSQLRPGI OBJ(&LIBTUADH/SUTransco) SRCFILE(&LIBTUADH/QRPGSRC) OBJTYPE(*MODULE) +
DBGVIEW(*SOURCE)
CRTSQLRPGI OBJ(&LIBTUADH/TranscoTU) SRCFILE(&LIBTUADH/QRPGSRC) OBJTYPE(*MODULE) +
DBGVIEW(*SOURCE)
CRTSQLRPGI OBJ(&LIBTUADH/TDTransco) SRCFILE(&LIBTUADH/QRPGSRC) OBJTYPE(*MODULE) +
DBGVIEW(*SOURCE)
/* création programme de service TU */
CRTSRVPGM SRVPGM(&LIBTUADH/T_Transco) MODULE(&LIBTUADH/SUTransco +
&LIBTUADH/TranscoTU &LIBTUADH/TDTransco) EXPORT(*ALL) TEXT('TU - +
module Transco') BNDDIR(RPGUNIT/RPGUNIT QC2LE) ACTGRP(*CALLER)
/*envoi vers l'integration */
SAVRSTOBJ OBJ(T_Transco) LIB(ADHTU) RMTLOCNAME(SRV0803) OBJTYPE(*SRVPGM)
ENDPGM