| Michael Tierney <miketinternet@xxxxxxxxx>
07/12/2005 11:31 AM |
|
ÿþ
1 0 0 h D F T A C T G R P ( * N O ) A C T G R P ( * N E W ) B N D D I R ( ' L I B H T T P / H T T P A P I ' )
2 0 0
3 0 0 d / c o p y l i b h t t p / q r p g l e s r c , h t t p a p i _ h
4 0 0
5 0 0 d r c s 1 0 I 0
6 0 0 d m s g s 5 2 A
7 0 0
8 0 0 d A d d E l e m e n t P R 2 0 5 6 a
9 0 0 d t a g 2 5 6 a v a l u e
1 0 0 0 d s t r i n g 1 0 2 4 a
1 1 0 0
1 2 0 0 d S t a r t O f E l e m e n t P R
1 3 0 0 d r l i k e d s ( R e s p o n s e )
1 4 0 0 d d e p t h 1 0 I 0 v a l u e
1 5 0 0 d n a m e 1 0 2 4 A v a r y i n g c o n s t
1 6 0 0 d p a t h 2 4 5 7 6 A v a r y i n g c o n s t
1 7 0 0 d a t t r s * d i m ( 3 2 7 6 7 )
1 8 0 0 d c o n s t o p t i o n s ( * v a r s i z e )
1 9 0 0
2 0 0 0 d E n d O f E l e m e n t P R
2 1 0 0 d r l i k e d s ( R e s p o n s e )
2 2 0 0 d d e p t h 1 0 I 0 v a l u e
2 3 0 0 d n a m e 1 0 2 4 A v a r y i n g c o n s t
2 4 0 0 d p a t h 2 4 5 7 6 A v a r y i n g c o n s t
2 5 0 0 d v a l u e 3 2 7 6 7 A v a r y i n g c o n s t
2 6 0 0 d a t t r s * d i m ( 3 2 7 6 7 )
2 7 0 0 d c o n s t o p t i o n s ( * v a r s i z e )
2 8 0 0
2 9 0 0 d R e s p o n s e d s q u a l i f i e d
3 0 0 0 d R e s C o d e 2 5 6 A
3 1 0 0
3 2 0 0 d r e s p d s l i k e d s ( R e s p o n s e )
3 3 0 0
3 4 0 0 * F i e l d D e f i n i t i o n s
3 5 0 0 d N a m e P a r m s 1 0 0 6 / 2 4 / 0 5
3 6 0 0
3 7 0 0 d c u s t i n f o s 1 0 2 4 0 6 / 2 4 / 0 5
6 6 0 0
6 8 0 0 d a d d t a s k s t r i n g s 2 4 5 7 6
6 9 0 0 d r e q u e s t s t r i n g s 2 4 5 7 6
7 0 0 0 d s o a p a c t i o n s 2 5 6
7 1 0 0 d s o a p h e a d e r s 1 0 2 4
7 2 0 0 d s o a p t r a i l e r s 1 0 2 4
7 3 0 0 d l e n g t h s s 1 0 0
7 4 0 0
7 5 0 0 d u r l c ' h t t p : -
7 6 0 0 d / / b o s p c s h a n t a n u . g c t . c o m - 0 6 / 2 4 / 0 5
7 7 0 0 d / M i k e T e s t / M i k e T e s t . a s m x ' 0 6 / 2 4 / 0 5
7 8 0 0
7 9 0 0 c * e n t r y p l i s t
8 0 0 0 c p a r m N a m e P a r m 0 6 / 2 4 / 0 5
8 1 0 0
8 2 0 0 * G e t t h e s t r i n g v a l u e s n e e d e d f o r t h e t a g s
8 3 0 0 c e x s r g e t V a l u e s
8 4 0 0
8 5 0 0 * B u i l d t h e s t r i n g n e e d e d f o r t h e S O A P c a l l
8 6 0 0 c e x s r b u i l d S t r i n g
8 7 0 0
8 8 0 0 * s e n d t h e t h e w e b s e r v i c e s t r i n g
8 9 0 0 c e v a l l e n g t h s = % l e n ( % t r i m ( r e q u e s t S t r i n g ) ) + 1 0 0 0
9 0 0 0 c e v a l r c = h t t p _ u r l _ p o s t _ x m l (
9 1 0 0 c u r l :
9 2 0 0 c % a d d r ( r e q u e s t s t r i n g ) : 0 6 / 2 4 / 0 5
9 3 0 0 c % l e n ( % t r i m ( r e q u e s t S t r i n g ) ) :
9 4 0 0 c % p a d d r ( S t a r t O f E l e m e n t ) :
9 5 0 0 c % p a d d r ( E n d O f E l e m e n t ) :
9 6 0 0 c % a d d r ( r e s p ) ) 0 6 / 2 4 / 0 5
1 0 1 0 0 c i f r c < > 1
1 0 2 0 0 c e v a l m s g = h t t p _ e r r o r
1 0 3 0 0 c d s p l y m s g
1 0 4 0 0 c e n d i f
1 0 5 0 0
1 0 6 0 0 c e v a l * i n l r = * o n
1 0 7 0 0 c r e t u r n
1 0 8 0 0
1 0 9 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 1 0 0 0 * I n i t i a l i z e S O A P d o c u m e n t :
1 1 1 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 1 2 0 0 c * i n z s r b e g s r
1 1 3 0 0
1 1 4 0 0 / f r e e
1 1 5 0 0 / / S e t u p t h e S O A P H e a d e r
1 1 6 0 0 s o a p h e a d e r =
1 1 7 0 0 ' < ? x m l v e r s i o n = " 1 . 0 " e n c o d i n g = " U T F - 8 " ? > ' +
1 1 8 0 0 ' < s o a p : E n v e l o p e ' +
1 1 9 0 0 ' x m l n s : x s i = " h t t p : / / w w w . w 3 . o r g / 2 0 0 1 / X M L S c h e m a - i n s t a n c e " ' +
1 2 0 0 0 ' x m l n s : x s d = " h t t p : / / w w w . w 3 . o r g / 2 0 0 1 / X M L S c h e m a " ' +
1 2 1 0 0 ' x m l n s : s o a p = " h t t p : / / s c h e m a s . x m l s o a p . o r g / s o a p / e n v e l o p e / " > ' +
1 2 2 0 0 ' < s o a p : B o d y > ' ;
1 2 3 0 0
1 2 4 0 0 / / S e t u p t h e S O A P T r a i l e r
1 2 5 0 0 s o a p t r a i l e r =
1 2 6 0 0 ' < / s o a p : B o d y > ' +
1 2 7 0 0 ' < / s o a p : E n v e l o p e > ' ;
1 2 8 0 0 / e n d - f r e e
1 2 9 0 0
1 3 0 0 0 c e n d s r
1 3 1 0 0
1 3 2 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 3 3 0 0 * g e t V a l u e s - f i l l t h e v a l u e s n e e d e d f o r t h e S o a p c a l l
1 3 4 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 3 5 0 0 c g e t V a l u e s b e g s r
1 3 6 0 0
1 3 8 0 0 c M o v e l N a m e P a r m C u s t I n f o 0 6 / 2 4 / 0 5
1 6 7 0 0 c e n d s r
1 6 8 0 0
1 6 9 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 7 0 0 0 * b u i l d S t r i n g - b u i l d s t r i n g s n e e d e d f o r S o a p c a l l
1 7 1 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1 7 2 0 0 c b u i l d S t r i n g b e g s r
1 7 3 0 0
1 7 4 0 0 / f r e e
1 7 5 0 0
1 7 6 0 0 / / S e t u p t h e U R L
1 7 7 0 0 / / u r l = ' h t t p : / / i d m w e b d e v / i d m w s / w e b s e r v i c e 2 / a d d t a s k ' +
1 7 8 0 0 / / ' / a d d t a s k . a s m x ' ;
1 7 9 0 0
1 8 0 0 0 / / S e t u p t h e t a s k s t r i n g p o r t i o n o f t h e S O A P r e q u e s t
1 8 1 0 0 a d d t a s k s t r i n g =
1 8 2 0 0 ' < A d d T a s k x m l n s = " h t t p : / / t e m p u r i . o r g / M i k e T e s t / S e r v i c e 1 " > ' ; 0 6 / 2 4 / 0 5
1 8 3 0 0 a d d t a s k s t r i n g = % t r i m ( a d d T a s k S t r i n g )
1 8 4 0 0 + a d d E l e m e n t ( ' C u s t I n f o ' : C u s t I n f o ) ; 0 6 / 2 4 / 0 5
2 4 1 0 0 a d d t a s k s t r i n g = % t r i m ( a d d T a s k S t r i n g )
2 4 2 0 0 + ' < / A d d T a s k > ' ;
2 4 3 0 0
2 4 4 0 0 / / S e t u p t h e r e q u e s t s t r i n g
2 4 5 0 0 r e q u e s t s t r i n g = % t r i m ( S o a p H e a d e r ) +
2 4 6 0 0 % t r i m ( a d d t a s k s t r i n g ) +
2 4 7 0 0 % t r i m ( S o a p T r a i l e r ) ;
2 4 8 0 0
2 4 9 0 0 / / S e t u p t h e S o a p A c t i o n
2 5 0 0 0 s o a p A c t i o n = ' h t t p : / / t e m p u r i . o r g / M i k e T e s t / S e r v i c e 1 / A s 4 0 0 C a l l ' ; 0 6 / 2 4 / 0 5
2 5 1 0 0 0 6 / 2 4 / 0 5
2 5 2 0 0 / e n d - f r e e
2 5 3 0 0
2 5 4 0 0 c e n d s r
2 5 5 0 0
2 5 6 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 5 7 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 5 8 0 0 p S t a r t O f E l e m e n t B
2 5 9 0 0 d S t a r t O f E l e m e n t P I
2 6 0 0 0 d r l i k e d s ( R e s p o n s e )
2 6 1 0 0 d d e p t h 1 0 I 0 v a l u e
2 6 2 0 0 d n a m e 1 0 2 4 A v a r y i n g c o n s t
2 6 3 0 0 d p a t h 2 4 5 7 6 A v a r y i n g c o n s t
2 6 4 0 0 d a t t r s * d i m ( 3 2 7 6 7 )
2 6 5 0 0 d c o n s t o p t i o n s ( * v a r s i z e )
2 6 6 0 0 / f r e e
2 6 7 0 0
2 6 8 0 0 / e n d - f r e e
2 6 9 0 0 p E
2 7 0 0 0
2 7 1 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 7 2 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 7 3 0 0 p E n d O f E l e m e n t B
2 7 4 0 0 d E n d O f E l e m e n t P I
2 7 5 0 0 d r l i k e d s ( R e s p o n s e )
2 7 6 0 0 d d e p t h 1 0 I 0 v a l u e
2 7 7 0 0 d n a m e 1 0 2 4 A v a r y i n g c o n s t
2 7 8 0 0 d p a t h 2 4 5 7 6 A v a r y i n g c o n s t
2 7 9 0 0 d v a l u e 3 2 7 6 7 A v a r y i n g c o n s t
2 8 0 0 0 d a t t r s * d i m ( 3 2 7 6 7 )
2 8 1 0 0 d c o n s t o p t i o n s ( * v a r s i z e )
2 8 2 0 0
2 8 3 0 0 / f r e e
2 8 4 0 0 s e l e c t ;
2 8 5 0 0 w h e n p a t h = ' / s o a p : E n v e l o p e / s o a p : B o d y / A d d T a s k R e s p o n s e ' a n d
2 8 6 0 0 n a m e = ' A d d T a s k R e s u l t ' ;
2 8 7 0 0 m s g = v a l u e ;
2 8 8 0 0 d s p l y m s g ;
2 8 9 0 0 e n d s l ;
2 9 0 0 0 / e n d - f r e e
2 9 1 0 0 p E
2 9 2 0 0
2 9 3 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 9 4 0 0 * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 9 5 0 0 p A d d E l e m e n t B
2 9 6 0 0 d A d d E l e m e n t P I 2 0 5 6 a
2 9 7 0 0 d t a g 2 5 6 a v a l u e
2 9 8 0 0 d s t r i n g 1 0 2 4 a
2 9 9 0 0
3 0 0 0 0 d t a g s t r i n g s 2 0 5 6
3 0 1 0 0
3 0 2 0 0 / f r e e
3 0 3 0 0 t a g s t r i n g = ' < ' + % t r i m ( t a g ) + ' > ' +
3 0 4 0 0 % t r i m ( s t r i n g ) + ' < / ' + % t r i m ( t a g ) + ' > ' ;
3 0 5 0 0 r e t u r n t a g s t r i n g ;
3 0 6 0 0 / e n d - f r e e
3 0 7 0 0 p E
* * * * E N D O F S O U R C E * * * *
=