Discussion :

[zoneaide]

Bonjour,

J'ai un tit problème. A savoir, comment acceder a un serveur de fichiers basé sur AS400. Sinon comment appeller un programme RPG x avec PHP ?

Quelqu'un pourrait-il m'aiclairer ?

[zoneaide]

Pour ceux que ca intéresse :


Connection odbc a l'as400
Création d'un alias
requete sur un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
 
	$db->odbcQuery("CREATE ALIAS MOI.A1 FOR bibliotheque.fichier(membre)");
 
$req_debut= "SELECT RRN ( a1 )                
	FROM a1 WHERE                                              
	   SUBSTR ( SRCDTA, 6, 1  ) =  'P' AND                     
	   SUBSTR ( SRCDTA, 7, 1  ) <> '*' AND                     
	   trim(SUBSTR ( SRCDTA, 7, 15 )) =  'ACHERCHER' AND                
	   SUBSTR ( SRCDTA, 24, 2 ) =  'B '";
	$res=$db->odbcQuery($req_debut);
	while (odbc_fetch_row($res)) {
		$debut = odbc_result($res, 1);
	}
	$req_fin= "SELECT RRN ( a1 )                
	FROM a1 WHERE                                              
	   SUBSTR ( SRCDTA, 6, 1  ) =  'P' AND                     
	   SUBSTR ( SRCDTA, 7, 1  ) <> '*' AND (             
	   trim(SUBSTR ( SRCDTA, 7, 15 )) =  'ACHERCHER' or                 
	   SUBSTR ( SRCDTA, 7, 15 ) =  ' '   )  AND                
	   SUBSTR ( SRCDTA, 24, 2 ) =  'E '
	   AND RRN(a1)>$debut
	   FETCH first row only";
	$res=$db->odbcQuery($req_fin);
	while (odbc_fetch_row($res)) {
		$fin = odbc_result($res, 1);
	}
	$req="select * from a1 where rrn(a1) between 
	(                 
	    $debut                 
	) and (                                                    
		$fin
	)";
 
	$result = @$db->odbcQuery($req);

puis je traite le résultat.

Voila