home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbbooks.zip
/
CHECK.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
2KB
|
86 lines
SET DEFA TO B
SET TALK OFF
SET INTE OFF
******************* Get date if necessary.
ERASE
IF VAL(DATE())=0
STORE " " TO T:DATE
@ 2,2 SAY " Enter today's date " GET T:DATE PICT "99/99/99"
READ
ELSE
STORE DATE() TO T:DATE
ENDIF (val(date())=0)
*********** Set up data files.
SELE PRIM
USE MASTER INDEX MASTER
SELE SECO
USE SALES
************************ Set up top portion of screen.
ERASE
STORE " " TO MCLERK,MCUST
STORE 0 TO TOT
@ 2,2 SAY T:DATE
@ 2,12 SAY "Clerk " GET MCLERK
@ 3,2 SAY "Customer " GET MCUST
@ 4,2 SAY "-------------------------------------------------------"
READ
STORE 6 TO ROW
STORE "X" TO PART:NO
DO WHILE ROW < 20 .AND. PART:NO <> " "
STORE " " TO PART:NO
STORE F TO OK
DO WHILE .NOT. OK
STORE " " TO PART:NO
@ ROW,2 GET PART:NO
READ
************** Check for existence of part number.
STORE !(TRIM(PART:NO)) TO PART:NO
STORE 0 TO QUANTY
STORE 0.00 TO SEL:PRICE
SELE PRIM
FIND &PART:NO
*********** Depending on user input, procede.
DO CASE
******** If blank entered, end of this receipt.
CASE PART:NO=" "
STORE T TO OK
********* If invalid part number, reject
CASE # = 0
@ ROW,10 SAY " NO SUCH PART!!"
STORE F TO OK
******** Otherwise, get rest of data.
CASE # > 0
@ ROW,10 SAY TITLE
@ ROW,25 GET QUANTY PICTURE "999"
@ ROW,30 GET SEL:PRICE PICTURE "999.99"
READ
@ ROW,40 SAY SEL:PRICE*QUANTY USING "$#,###.##"
STORE TOT+(SEL:PRICE*QUANTY) TO TOT
STORE T TO OK
***** Fill in the record on SALES file.
SELE SECO
APPEND BLANK
REPLACE DATE WITH T:DATE
REPLACE CLERK WITH MCLERK
REPLACE CUSTOMER WITH MCUST
REPLACE PART WITH PART:NO
REPLACE TITLE WITH TITLE
REPLACE QTY WITH QUANTY
REPLACE PRICE WITH SEL:PRICE
REPLACE POSTED WITH F
ENDCASE
ENDDO
STORE ROW+1 TO ROW
ENDDO
@ ROW+2,40 SAY TOT USING "$#,###.##"