home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
library
/
cwindow
/
order.cob
< prev
next >
Wrap
Text File
|
1993-07-28
|
472b
|
18 lines
identification division.
program-id. test.
environment division.
data division.
working-storage section.
COPY UFCO03.
COPY order.
procedure division.
anf-section.
anf-001.
move 2 to FKZ.
move 0 to SM.
move "order " to FMT.
COPY orde1.
CALL "UNIF" using FKZ FMT product RET SM Daten.
anf-009.
stop run.