Parfait c'est mieux mais j'ai toujours des erreurs 30
[code]
1 h debug(*yes) h deb 110411 000100
2 FDSPLOGPF IPE F 135 DISK FLSTD 110411 000200
3 FLOGBDDPF O E DISK FLSTD 110411 000300
*--------------------------------------------------------------------------------------------*
* Nom RPG Nom externe *
* Nom de fichier . . . . . . : LOGBDDPF BIBTEMP/LOGBDDPF *
* Format(s) d'enregistrement : LOGBDD LOGBDD *
*--------------------------------------------------------------------------------------------*
4 IDSPLOGPF NS 11 11 C0 110411 000400
5 I 1 7 WIDMSG 110411 000500
6 I 10 11 WGRV 110411 000600
7 I 14 24 WTYPE 110411 000700
8 I 27 131 WMSG 110411 000800
9 IDSPLOGPF NS 12 10 C 11 C 110411 000900
10 I 23 32 WJOBA 110411 001000
11 I 34 43 WUSER 110411 001100
12 I 45 50 WNMJOB 110411 001200
13 I 70 77 WDATE 110411 001300
14 I 79 86 WHEURE 110411 001400
15 IDSPLOGPF NS 13 110411 001500
16 C****************************************************** 110411 001600
17 C* DEBUT DU PROGRAMME 110411 001700
18 C****************************************************** 110411 001800
Num{ro <--------------------- Sp{cifications source ----------------------------------------------><-- Commentaires --> ID Num{ro
ligne ....1....+....2....+<-------- 26 - 35 -------->....4....+....5....+....6....+....7....+....8....+....9....+...10 src seq
19 C DEBUT TAG 001900
20 C****************************************************** 002000
21 C 13 GOTO FIN 002100
22 C *IN11 IFEQ *ON 002200
23 C |MOVEL WIDMSG IDMSG 002300
24 C |MOVEL WGRV GRV 002400
25 C |MOVEL WTYPE TYPE 002500
26 C |MOVEL WMSG MSG 002600
27 C ENDIF 002700
28 C *IN12 IFEQ *ON 002800
29 C |MOVEL WJOBA JOBAG 002900
30 C |MOVEL WUSER USER 003000
31 C |MOVEL WNMJOB NMJOB 003100
32 C |MOVEL WDATE DATE 003200
33 C |MOVEL WHEURE HEURE 003300
34 C |WRITE LOGBDD 003400
35 C ENDIF 003500
36 C****************************************************** 003600
37 C* FIN DU PROGRAMME 003700
38 C****************************************************** 003800
39 C FIN TAG 003900
40 C****************************************************** 004000
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 3
Num{ro <--------------------- Sp{cifications source ----------------------------------------------><-- Commentaires --> ID Num{ro
ligne ....1....+....2....+<-------- 26 - 35 -------->....4....+....5....+....6....+....7....+....8....+....9....+...10 src seq
Num{ro <---------------------- Sp{cifications source ----------------------------><-- Commentaires --> N¢ Page Date ID Num{ro
ligne ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 N¢ Lign modif src seq
41=OLOGBDD 1000001
*--------------------------------------------------------------------------------------------* 1
* Format d'enregistrement RPG: LOGBDD * 1
* Format externe . . . . . . : LOGBDD : BIBTEMP/LOGBDDPF * 1
*--------------------------------------------------------------------------------------------* 1
42=O JOBA 11A CHAR 11 NOM TRAVAIL 1000002
43=O USER 22A CHAR 11 UTILISATEUR 1000003
44=O NUMJOB 29A CHAR 7 NUM TRAVAIL 1000004
45=O ZDATE 38A CHAR 9 DATE 1000005
46=O ZHEURE 47A CHAR 9 HEURE 1000006
47=O IDMSG 55A CHAR 8 NUM MESSAGE 1000007
48=O GRV 58A CHAR 3 GRAVITE 1000008
49=O TYPE 71A CHAR 13 TYPE MESSAGE 1000009
50=O MSG 176A CHAR 105 MESSAGE 1000010
* * * * * F I N D E S O U R C E * * * * *
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 4
M e s s a g e s d e d i a g n o s t i c s u p p l { m e n t a i r e s
ID msg Gr Ligne N¢ seq Texte message
*RNF7030 30 32 003200 Le nom ou l'indicateur DATE n'est pas d{fini.
*RNF7030 30 33 003300 Le nom ou l'indicateur HEURE n'est pas d{fini.
*RNF7030 30 29 002900 Le nom ou l'indicateur JOBAG n'est pas d{fini.
*RNF7030 30 31 003100 Le nom ou l'indicateur NMJOB n'est pas d{fini.
*RNF7515 30 29 002900 Les op{randes de d{placement WJOBA et JOBAG sont
incompatibles.
*RNF7515 30 31 003100 Les op{randes de d{placement WNMJOB et NMJOB sont
incompatibles.
*RNF7515 30 32 003200 Les op{randes de d{placement WDATE et DATE sont
incompatibles.
*RNF7515 30 33 003300 Les op{randes de d{placement WHEURE et HEURE sont
incompatibles.
*RNF7086 00 2 000200 RPG traite les groupages du fichier DSPLOGPF. INFDS mis @
jour uniquement lorsque les blocs de donn{es sont
transf{r{s.
*RNF7086 00 3 000300 RPG traite les groupages du fichier LOGBDDPF. INFDS mis @
jour uniquement lorsque les blocs de donn{es sont
transf{r{s.
* * * * * F I N D E S M E S S A G E S D E D I A G N O S T I C S U P P L E M E N T A I R E S * * * * *
P o s i t i o n s d e t a m p o n d e s o r t i e
Num{ro Pos Pos Zone ou constante
ligne d{but fin
42 1 11 JOBA
43 12 22 USER
44 23 29 NUMJOB
45 30 38 ZDATE
46 39 47 ZHEURE
47 48 55 IDMSG
48 56 58 GRV
49 59 71 TYPE
50 72 176 MSG
* * * * * F I N D E S P O S I T I O N S D E T A M P O N D E S O R T I E * * * * *
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 5
R { f { r e n c e s c r o i s { e s
R{f{rences de fichier et d'enregistrement :
Enregis Unit{ R{f{rences (D=D{fini)
fichier
DSPLOGPF DISK 2D 4 9 15
LOGBDDPF DISK 3D
LOGBDD 3D 34 41
R{f{rences de zone globales :
Zone Attributs R{f{rences (D=D{fini M=Modifi{)
*IN11 N(1) 22
*IN12 N(1) 28
*RNF7030 DATE **INDEF** 32M
*RNF7031 DEBUT TAG 19D
FIN TAG 21 39D
GRV A(3) 24M 48
*RNF7030 HEURE **INDEF** 33M
IDMSG A(
23M 47
JOBA A(11) 42
*RNF7030 JOBAG **INDEF** 29M
MSG A(105) 26M 50
*RNF7030 NMJOB **INDEF** 31M
NUMJOB A(7) 44
TYPE A(13) 25M 49
USER A(11) 30M 43
WDATE A(
13D 32
WGRV A(2) 6D 24
WHEURE A(
14D 33
WIDMSG A(7) 5D 23
WJOBA A(10) 10D 29
WMSG A(105) 8D 26
WNMJOB A(6) 12D 31
WTYPE A(11) 7D 25
WUSER A(10) 11D 30
ZDATE A(9) 45
ZHEURE A(9) 46
R{f{rences d'indicateur :
Indicateur R{f{rences (D=D{fini M=Modifi{)
11 4D 22
12 9D 28
13 15D 21
* * * * * F I N D E S R E F E R E N C E S C R O I S E E S * * * * *
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 6
R { f { r e n c e s e x t e r n e s
Proc{dures li{es statiquement :
Proc{dure R{f{rences
Aucune r{f{rence dans le source.
Zones import{es :
Zone Attributs D{finie
Aucune r{f{rence dans le source.
Zones export{es :
Zone Attributs D{finie
Aucune r{f{rence dans le source.
* * * * * F I N D E S R E F E R E N C E S E X T E R N E S * * * * *
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 7
R { c a p i t u l a t i f d e s m e s s a g e s
ID msg Gr Num{ro Texte message
*RNF7031 00 1 Le nom ou l'indicateur n'est pas utilis{.
*RNF7086 00 2 Facteur de groupage d{fini par RPG. INFDS mise @ jour
uniquement lors du transfert d'un groupe de donn{es.
*RNF7030 30 4 Le nom ou l'indicateur n'est pas d{fini.
*RNF7515 30 4 L'op{ration de d{placement comporte des op{randes
incompatibles.
* * * * * F I N D U R E C A P I T U L A T I F D E S M E S S A G E S * * * * *
5761WDS V6R1M0 080215 RN IBM ILE RPG BIBRPG/LOGBDD DEV 04/11/11 16:54:55 Page 8
R { c a p i t u l a t i f f i n a l
Nombre total de messages :
Information (00) . . . . . . . : 3
Avertissement (10) . . . . . . : 0
Erreur (20) . . . . . . . : 0
Erreur grave (30+) . . . . . . : 8
--------------------------------- -------
Total . . . . . . . . . . . . . : 11
Nombre total d'enregistrements source :
Enregistrements . . . . . . . . : 50
Sp{cifications . . . . . . . . : 42
Enregistrements de donn{es . . : 0
Commentaires . . . . . . . . . : 8
* * * * * F I N D U R E C A P I T U L A T I F F I N A L * * * * *
Arrêt de la compilation. Erreurs de gravit{ 30 d{tect{es dans le programme.
* * * * * E N D O F C O M P I L A T I O N * * * * *
