midrange.com code scratchpad
Name:
Duane Christen
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
05/30/2008 03:53:49 pm
IP:
Logged
Description:
PCML used to describe the NoteServce Web Services
Code:
  1. <pcml version="4.0">                                                                              
  2.    <!-- Service Program WBS0001-->                                                                
  3.                                                                                                   
  4.    <!-- RPG module: WBRM000199  -->                                                               
  5.    <!-- created: 2008-03-27-11.52.39 -->                                                          
  6.    <!-- source: DJCWEB2/QRPGSRC(WBRM000199) -->                                                   
  7.                                                                                                   
  8.    <!-- RPG module: WBRM000100  -->                                                               
  9.    <!-- created: 2008-03-26-12.38.04 -->                                                          
  10.    <!-- source: DJCWEB2/QSQLTEMP1(WBRM000100) -->                                                 
  11.                                                                                                   
  12.    <!-- RPG module: WBRM000101  -->                                                               
  13.    <!-- created: 2008-03-26-12.38.14 -->                                                          
  14.    <!-- source: DJCWEB2/QSQLTEMP1(WBRM000101) -->                                                 
  15.                                                                                                   
  16.    <struct name="noteResponseTemplate">                                                           
  17.       <data name="status" type="char" length="1" usage="inherit" />                               
  18.       <data name="details" type="char" length="80" usage="inherit" />                             
  19.    </struct>                                                                                      
  20.                                                                                                   
  21.    <struct name="addCustomerNoteRequestTemplate">                                                 
  22.       <data name="accountId" type="char" length="11" usage="inherit" />                           
  23.       <data name="text" type="char" length="2000" usage="inherit" />                              
  24.       <data name="createdBy" type="char" length="30" usage="inherit" />                           
  25.       <data name="redFlag" type="char" length="1" usage="inherit" />                              
  26.       <data name="commentType" type="char" length="80" usage="inherit" />                         
  27.       <data name="commentClass" type="char" length="50" usage="inherit" />                        
  28.    </struct>                                                                                      
  29.                                                                                                   
  30.    <struct name="addTroubleNoteRequestTemplate">                                                  
  31.       <data name="documentId" type="char" length="7" usage="inherit" />                           
  32.       <data name="text" type="char" length="2000" usage="inherit" />                              
  33.       <data name="createdBy" type="char" length="30" usage="inherit" />                           
  34.    </struct>                                                                                      
  35.                                                                                                   
  36.    <program entrypoint="NOTESERVICES" name="noteServices" returnvalue="integer"                   
  37.         path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">                                               
  38.    </program>                                                                                     
  39.                                                                                                   
  40.     <program entrypoint="CREATECUSTOMERNOTE" name="createCustomerNote"                            
  41.         parseorder="addNoteResponse" path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">                  
  42.         <data name="addNoteRequest" struct="addCustomerNoteRequestTemplate"                       
  43.             type="struct" usage="input"/>                                                         
  44.         <data name="addNoteResponse" struct="noteResponseTemplate" type="struct" usage="output"/> 
  45.     </program>                                                                                    
  46.                                                                                                   
  47.     <program entrypoint="CREATETROUBLENOTE" name="createTroubleNote"                              
  48.         parseorder="addNoteResponse" path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">                  
  49.         <data name="addNoteRequest" struct="addTroubleNoteRequestTemplate"                        
  50.             type="struct" usage="input"/>                                                         
  51.         <data name="addNoteResponse" struct="noteResponseTemplate" type="struct" usage="output"/> 
  52.     </program>                                                                                    
  53. </pcml>                                                                                           
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css