/*  PROGRESS Decompiler 2025.4, decompiled: 16.04.2025 22:43:44               */
/*  File: Original.r, 6408 bytes, 29.01.2014 21:50:40                         */
/*  Source: d:\Projekty\D\Popisane10\Progs\Original.p                         */
/*  Compiled: 29.01.2014 20:50:40, PROGRESS Version: 10 (1005)                */

/* ****************************  Used includes:  **************************** */
d:\Projekty\D\Popisane10\Progs\Original.p, CRC: 15038

/* ******************************  Databases:  ****************************** */
demo (PROGRESS)

/* **************************  Global variables:  *************************** */
/* table */ DEMO.CUSTOMER.
/* table */ DEMO.ORDER.
/* ***********************  Global NO-UNDO Variables  *********************** */
    DEF INPUT PARAMETER ipNUM AS INTEGER
    DEF INPUT PARAMETER ipNAME AS CHARACTER
    DEF INPUT PARAMETER ipABS AS DECIMAL
    DEF INPUT PARAMETER ipPRICE AS DECIMAL
    DEF INPUT PARAMETER ipDESC AS CHARACTER
    DEF INPUT PARAMETER ipDIS AS INTEGER

/* ****************************  Table Indexes:  **************************** */
cust-num (DEMO.CUSTOMER: Cust-num)
cust-order (DEMO.ORDER: Cust-num, Order-num)

