FSODAP IF E DISK
FSODAREP O E 10 PRINTER
*****************************************************************
*INDICATORS
*45 END OF FILE
************************************************************
E ITM# 1 11 3 DESC 15 COMPILE TIME
E COST 11 11 2 2 COMPILE TIME
************************************************************
C WRITEHEADR1
C WRITECOLHD1
C READ SODAP 45
C *IN45 DOWEQ'0'
C Z-ADD1 X 20 INIT. INDEX
C ITEMMO LOKUPITM#,X 50FIND ITEM
C *IN50 IFEQ *ON ITEM# FOUND?
C QTY MULT COST,X AMT 72 TOTAL $ AMOU
C MOVELDESC,X DISCRP
C Z-ADDCOST,X CANCST
C MOVE AMT EURO
C WRITEDETAIL
C ELSE
C WRITEERROR
C ENDIF
C READ SODAP 45
C ENDDO
C* WRITEFINISH
C SETON LR
** TABEL/ARRAY..........ITM#
100COCA COLA
110PEPSI COLA
1207-UP
130SPRITE
140TAB
150PEPSI LITE
160DIET COKE
170SLICE APPLE
180SLICE
190DR PEPPER
200HIRES ROOT BEER
** TABEL/ARRAY...........COST
4547414951504448436356