BOM.GRS
$$ PROGRAM: BOM.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT: This program adds or edits a bill of material title block
$$ in an active part. Creates bill of material (parts list)
$$ title blocks. Items may be added, edited, copied, deleted,
$$ listed, and text replaced. Fields include: sequence
$$ number, item part number, description, and quantity.
$$ attributes are used to allow repeated editing and a text
$$ file may be written to or read from allowing transfer of
$$ information between parts or other departments.
$$
$$ RELEASE HISTORY:
$$ 12-AUG-85 INITIAL RELEASE
$$
$$ Required Subroutines:
$$ _bom_sr01.grs
$$ _bom_sr02.grs
$$ _bom_sr03.grs
$$ _mm_messg.grs
$$
$$ AUTHOR: Michael Novick/Richard Hillow
$$ TITLE:
$$ COMPANY: Harris Graphics
$$ Newspaper Press Division, Dover, NH
$$ 121 Broadway
$$ Dover, NH 03820
$$ (603) 749-1922
$$
$$ SYSTEM TYPE: DATA GENERAL MV10000 / AOS-VS
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$ INPUT: INTERACTIVE WITH USER $$
$$ OUTPUT: BILL OF MATERIAL TITLE BLOCK $$
$$ SUBROUTINES: BOM.SR01 - ADDS/EDIT BOM ITEM $$
$$ BOM.SR02 - READ TEXT FILE $$
$$ BOM.SR03 - ADD BOM TO FORMAT $$
$$ #MM.MESSG - SEND MESSAGE ANYWHERE $$
$$ ON MONITOR $$
$$ DATA FILES: NONE $$
$$ PARTS/SYMBOLS: NONE $$
$$ $$
$$ VARIABLES: $$
$$ NAME TYPE DESCRIPTION $$
$$ ------ ------ -------------------------------------------- $$
$$ ADDX N CONSTANT: SIGNALS ADD MODE $$
$$ CALLNO N CURRENT ITEM NUMBER $$
$$ CND N COPYING LINES; END NUMBER $$
$$ CQTY N COPYING LINES; QUANTITY $$
$$ CST N COPYING LINES; START NUMBER $$
$$ CTO N COPYING LINES; DESTINATION NUMBER $$
$$ DELND N DELETE LINE; END NUMBER $$
$$ DELQTY N DELETE LINE; QUANTITY $$
$$ DELST N DELETE LINE; START NUMBER $$
$$ DESC1 S(100,18) ITEM DESCRIPTION LINE ONE (1) $$
$$ DESC2 S(100,18) ITEM DESCRIPTION LINE TWO (2) $$
$$ EDITX N CONSTANT; SIGNALS EDIT MODE $$
$$ ENT E GENERAL ENTITY VARIABLE $$
$$ FRMT1 S(99) PRINT ITEM FORMAT IMAGE STRING $$
$$ I N COUNTER $$
$$ INPUTL S(4) INPUT ITEM LINE MODE (SINGLE OR DOUBLE) $$
$$ ITEMNO S(100,7) BILL ITEM NUMBERS $$
$$ LEFTLN E LEFT LINE OF TITLE BLOCK $$
$$ MCOL N COLUMN FOR SUBROUTINE TO PRINT MESSAGE $$
$$ MROW N ROW FOR SUBROUTINE TO PRINT MESSAGE $$
$$ MSTR S(60) MESSAGE STRING FOR SUBROUTINE $$
$$ MODE N FLAG INDICATING ADD OR EDIT MODE $$
$$ NO N CONSTANT; SIGNALS NEGATIVE $$
$$ NOSTR S(3) CALL NUMER AS A STRING $$
$$ QTY S(100,3) ITEM QUANTITIES ARRAY $$
$$ RESP N VALUE RETURNED FROM INTERACTIVE QUESTIONS $$
$$ SAVCFT N SAVES CURRENT CHARACTER FONT $$
$$ SAVCLR N SAVES CURRENT ENTITY COLOR $$
$$ SAVCRT N SAVES CURRENT LINES PER CRT SCREEN $$
$$ SAVDEN N SAVES CURRENT LINE DENSITY $$
$$ SAVLFT N SAVES CURRENT LINE FONT $$
$$ SAVLYR N SAVES CURRENT WORK LAYER $$
$$ SAVMOD N SAVES CURRENT ENTITY CREATION MODE $$
$$ SAVSIT N SAVES CURRENT ENTITY SITE $$
$$ SAVSIZ N SAVES CURRENT CHARACTER SIZE $$
$$ SAVTDN N SAVES CURRENT TEXT DENSITY $$
$$ SRESP N RETURN STATUS FROM SUBROUTINES $$
$$ SUBD1 S(18) BILL DESCRIPTION (LINE 1) PASSED TO SUB $$
$$ SUBD2 S(18) BILL DESCRIPTION (LINE 2) PASSED TO SUB $$
$$ SUBINO S(7) BILL ITEM NUMBER PASSED TO SUBROUTINES $$
$$ SUBQTY S(3) BILL QUANTITY PASSED TO SUBROUTINES $$
$$ T5FILE S(2) FILE SIZE & TYPE STRING $$
$$ TLMODE S(4) TOTAL LINE QUANTITY SET MODE $$
$$ TOPLN E TOP LINE OF TITLE BLOCK $$
$$ TOTAL N TOTAL BILL ITEM COUNT $$
$$ TSIZE S(1) TITLE BLOCK SIZE: 1 THUR 9 = A THRU R SIZES $$
$$ (4 R-SIZES: 55,66,77 & 88 LONG) $$
$$ TTYPE S(1) TITLE BLOCK TYPE: 1 = TITLE $$
$$ 2 = TITLE & TOL $$
$$ 3 = TITLE & BOM $$
$$ 4 = TITLE & MLIST $$
$$ 5 = TITLE & TOL & BOM $$
$$ 6 = TITLE & TOL & MLIST $$
$$ 7 = TITLE & TOL & GEAR $$
$$ TXFILE S(60) READ/WRITE TEXT FILE NAME $$
$$ TXREAD N FLAG INDICATING BILL HAS BEEN READ $$
$$ XB20 N DEFAULT ITEM NUMBER FOR EDIT MENU B20: $$
$$ XZ10 N DEFAULT ITEM NUMBER FOR EXIT MENU Z10: $$
$$ YES N CONSTANT; SIGNALS AFFIRMATIVE $$
$$ $$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$