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:
- <pcml version="4.0">
- <!-- Service Program WBS0001-->
-
- <!-- RPG module: WBRM000199 -->
- <!-- created: 2008-03-27-11.52.39 -->
- <!-- source: DJCWEB2/QRPGSRC(WBRM000199) -->
-
- <!-- RPG module: WBRM000100 -->
- <!-- created: 2008-03-26-12.38.04 -->
- <!-- source: DJCWEB2/QSQLTEMP1(WBRM000100) -->
-
- <!-- RPG module: WBRM000101 -->
- <!-- created: 2008-03-26-12.38.14 -->
- <!-- source: DJCWEB2/QSQLTEMP1(WBRM000101) -->
-
- <struct name="noteResponseTemplate">
- <data name="status" type="char" length="1" usage="inherit" />
- <data name="details" type="char" length="80" usage="inherit" />
- </struct>
-
- <struct name="addCustomerNoteRequestTemplate">
- <data name="accountId" type="char" length="11" usage="inherit" />
- <data name="text" type="char" length="2000" usage="inherit" />
- <data name="createdBy" type="char" length="30" usage="inherit" />
- <data name="redFlag" type="char" length="1" usage="inherit" />
- <data name="commentType" type="char" length="80" usage="inherit" />
- <data name="commentClass" type="char" length="50" usage="inherit" />
- </struct>
-
- <struct name="addTroubleNoteRequestTemplate">
- <data name="documentId" type="char" length="7" usage="inherit" />
- <data name="text" type="char" length="2000" usage="inherit" />
- <data name="createdBy" type="char" length="30" usage="inherit" />
- </struct>
-
- <program entrypoint="NOTESERVICES" name="noteServices" returnvalue="integer"
- path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">
- </program>
-
- <program entrypoint="CREATECUSTOMERNOTE" name="createCustomerNote"
- parseorder="addNoteResponse" path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">
- <data name="addNoteRequest" struct="addCustomerNoteRequestTemplate"
- type="struct" usage="input"/>
- <data name="addNoteResponse" struct="noteResponseTemplate" type="struct" usage="output"/>
- </program>
-
- <program entrypoint="CREATETROUBLENOTE" name="createTroubleNote"
- parseorder="addNoteResponse" path="/QSYS.LIB/%LIBL%.LIB/WBS0001.SRVPGM">
- <data name="addNoteRequest" struct="addTroubleNoteRequestTemplate"
- type="struct" usage="input"/>
- <data name="addNoteResponse" struct="noteResponseTemplate" type="struct" usage="output"/>
- </program>
- </pcml>
|
|
|