Hier ist der Quellcode nur auf Parameter reduziert.

h nomain
// Activationgroup: Definitionen
h* dftactgrp(*NO)
h* actgrp(*new)


h option(*nodebugio:*srcstmt:*nounref)
**
** erstellt PCML-Dokument und speichert PCML in *MODULE
**
h pgminfo(*pcml:*MODULE)


************************************************** **********
** Datei definition
************************************************** **********
F**ORDER00P IF A E DISK RENAME(ORDER00PR:ORDER0PR) USROPN
************************************************** **********
** DS Definition
************************************************** **********
d tmplHead DS qualified template
d CompanyId 2S 0
d StoreId 2S 0
d User 128A varying
d Password 128A varying
d OrderIdExternal...
d 9s 0
d OrderIdShop 10A
d OrderDate D
d OrderTotal 9s 2
d Currency 3A
d PricesInclVat 1A
d ShippingTotal 9S 2
d**CashOnDeliverySurcharge...
d** 9S 2
d Salutation 10A
d FirstName 20A
d LastName 30A
d Company 105A
d CustomerIdShop...
d 20A
d DateOfBirth D
d CustomerType 10A
d Email 60A
d Phone 20A
d Street 35A
d HouseNumber 35A
d StreetAdditional...
d 60A
d City 35A
d PostCode 10A
d CountryCode 3A
d MethodIdentifier...
d 10A
d TransactionAmount...
d 9S 2
d TransactionCurrency...
d 3A
d**TransactionIdInternal...
d** 32A
d**TransactionIdExternal...
d** 32A
d CreditCardType...
d 20A
d Code 256A
d Description 1A
d Reason 4S 0
d Value 9S 2
d DiscountApplied...
d 9S 2
d DiscountType 20A
d AppliedToShipping...
d 1A
d FreeShipping 1A
d ItemNo 13A
d Name 513A
d ShippingAgentCode...
d 10A
d ShippingServiceType...
d 30A
d PriceCharged 9S 2
d PriceRegular 9S 2
d Qty 9S 2
d QtyUom 3A
d ServiceCharge 9S 2
d**AdditionalServiceType...
d** 30A
d**RequestedDeliveryDate...
d** D
**
**
**
d tmplResponse DS qualified template
d Head likeds(tmplHead) dim(500)
** -----------------------
** Variablen definition
** -----------------------
D $Z s 3 0
d*Response DS likeds(tmplResponse)
************************************************** **********
** Prototyp-definition
************************************************** **********
d get_order PR
D out_Response likeds(tmplResponse)
************************************************** ******************
** Start Procedur
************************************************** ******************
**
P get_ORDER B export
D PI
D out_Response likeds(tmplResponse)
**
**-------------------------------------------------------------------
**
C TIME #dat
/free




*inlr = *on;


/end-free
**------------------------------------------------------------------
**
P E
**