github.com/moshix.mvs
1
0
Fork 0
mirror of https://github.com/moshix/mvs.git synced 2026-01-30 13:06:39 +00:00
Code Issues Releases Wiki Activity
Files
0fd4af72d2c3d64a032fca1d01833111b07fcb83
moshix.mvs/PC370_orig/Diskette/source/COGS.CPY

17 lines
938 B
COBOL
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
****************************************************************
* This is COGS.CPY - Cogsworth's Inventory Data *
* Usage: COPY COGS (with COPY in column 10) *
****************************************************************
IREC DS 0CL41 1-41 Inventory record
IDESC DS CL10 1-10 Product description
ICALIF DS CL3 11-13 Units sold in Calif
IILL DS CL3 14-16 Units sold in Illinois
IUTAH DS CL3 17-19 Units sold in Utah
IWISC DS CL3 20-22 Units sold in Wisconsin
IBEGIN DS CL3 23-25 Beginning inventory
IPURCH DS CL3 26-28 Purchases throughout year
IQOH DS CL3 29-31 Actual quantity on hand
ICOST DS CL4 32-35 Cost (each) 99V99
ISELL DS CL4 36-39 Sell for (each) 99V99
ICRLF DS CL2 40-41 PC/370 only - CR/LF

Reference in New Issue View Git Blame Copy Permalink