Dans les logs du serveur Web on trouve :
HRAccess system error [TYERRE='R',TYORDR='S',CDPROG='BHR',CDFONC='05',CDSFTC='GC',ZOERR1='PP20',ZOERR2='000000000000100 02000',ZOERR3='',ZOERR4='',ZOERR5='',MSG='Erreur sur dossier']
Le code SQL 100 signifie qu'une donnée technique n'a pas été trouvée.
La table concernée est la PP20 (objet Plateforme physique).
Dans le squelette de BHR on trouvera en fonction 05GC :
431100*Recherche du radical du.
431200*processus BP défini par défaut.
431300*dans la PP20 pour appel à BHT.
431400 MOVE W-WP00-CDPLPH TO H-CDPLPH.
431500 PERFORM F9SBA THRU F9SBA-FN.
431600 IF SQLCODE = W-WP00-NOTFND
431700 MOVE SPACE TO CO16
431800 MOVE "RSBHR05GC" TO CO16-GROUPE (1:9)
431900 MOVE SQLSTATE TO CO16-ZOERR2 (26 : 5)
432000 MOVE SQLCODE TO CO16-ZOER29
432100 MOVE SQLERRMC TO CO16-GROUPE (70:70)
432200 MOVE "PP20" TO CO16-ZOERR1
432300 IF SQLCODE < ZERO MOVE "-"
432400 TO CO16-ZOERR2 (1:1) END-IF
432500 MOVE "99" TO CO16-CDRET
432600 GO TO F79.
…
089500*********************************
089600*FONCTIONS DE RECHERCHE DE LIGNES
089700*DANS UNE TABLE
089800*********************************
089900*********************************
090000*N9SBA. NOTE *SELECT TABLE W-WP00-IDTABL *.
090100 F9SBA.
090200 MOVE ZERO TO SQLCODE.
…
092000*N9SGP. NOTE *SELECT TABLE PP20 *.
092100 F9SGP. IF W-WP00-IDTABL = "PP20"
092200 NEXT SENTENCE ELSE GO TO F9SGP-FN.
092400 EXEC SQL SELECT
092500 RDPROS
092600 INTO :H-RDPROS
092700 FROM PP20
092800 WHERE CDPLPH = :H-CDPLPH
092900 AND CDICON = 'GP_DEFAULT' END-EXEC.
093100 GO TO F9SBA-FN.
Le programme recherche un processus dont le champ CDICON vaut 'GP_DEFAULT'.
Effectivement, dans ma base de données, je ne retrouve pas mon environnement PPCLIINT :
Select * from PP20 where CDICON = 'GP_DEFAULT' ;
PPCLIDEV ANBHT GP_DEFAULT ANBHT TYBX Z00 ANBHTBHT 0 S 2011-04-12-11.55.28.000000
PPCLIPRD ANBHT GP_DEFAULT ANBHT TYBX Z00 ANBHTBHT 0 S 2012-01-24-14.14.17.000000
PPCLIREC ANBHT GP_DEFAULT ANBHT TYBX Z00 ANBHTBHT 0 S 2011-06-27-11.01.05.000000
PPCLIREF ANBHT GP_DEFAULT ANBHT TYBX Z00 ANBHTBHT 0 S 2011-03-15-18.23.43.000000
Ceci est lié à un dysfonctionnement de la chaine RB4 que j'ai utilisé pour rafraîchir l'objet plateforme ...
Pour corriger ma plateforme PPCLIINT :
update PP20 set CDICON = 'GP_DEFAULT' where cdexec='ANBHTBHT' and cdplph='PPCLIINT';
