IDENTIFICATION DIVISION.
PROGRAM-ID. MIS210-2.
WORKING-STORAGE SECTION.
01 CO-NAME PIC X(25).
01 Q1US PIC ZZZZZZZZVZZ.
01 Q2US PIC ZZZZZZZVZZ.
01 USP PIC ZZZZZZVZZ.
01 BUDGETED-SALES1 PIC ZZZZZZZ.ZZ.
01 BUDGETED-SALES2 PIC ZZZZZZZ.ZZ.
01 DEI-1 PIC 99999.
01 DEI-2 PIC 99999.
01 TOTAL-NEEDS PIC 999999.
01 END-INV-1 PIC 99999.
01 END-INV-2 PIC 99999.
01 UNITS-T2-PRODUCED PIC 999999.
01 DIRECT-LBR-HOURS PIC 9999V99.
01 VAR-OH-RATE PIC $$$$9.99.
01 BUDGT-VAR-OH-RATE PIC $$$$9.99.
01 BUDGT-FIX-OH PIC 9999.
01 BUDGET-SELECTION PIC 9.
PROCEDURE DIVISION.
DISPLAY 'Welcome! This program will be able to generate 3'
DISPLAY 'different budgets for you. The sales budget,'
DISPLAY 'production budget, overhead budget.'
DISPLAY ' '
DISPLAY 'First, we will need some information'
DISPLAY ' '
DISPLAY 'What is your company name?'
ACCEPT CO-NAME.
INSPECT CO-NAME CONVERTING
'abcdefghijklmnopqrstuvwxyz' TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
DISPLAY 'What are you sales in units for quarter 1?'
ACCEPT Q1US
DISPLAY 'What are you sales in units for quarter 2?'
ACCEPT Q2US
DISPLAY 'What is the unit selling price?'
ACCEPT USP
DISPLAY 'What is your desired ending inventory for quarter 1?'
ACCEPT DEI-1
DISPLAY 'What is your desired ending inventory for quarter 2?'
ACCEPT DEI-2
DISPLAY 'What was your ending inventory for quater 1?'
ACCEPT END-INV-1
DISPLAY 'What was your ending inventory for quater 2?'
ACCEPT END-INV-2
DISPLAY 'What is the budgeted direct labor hours?'
ACCEPT DIRECT-LBR-HOURS
DISPLAY 'What is your variable overhead rate?'
ACCEPT VAR-OH-RATE
MULTIPLY Q1US BY USP GIVING BUDGETED-SALES1
DISPLAY ' '
DISPLAY ' '
DISPLAY '*****************************************************'
DISPLAY '* 1. Sales Budget *'
Display '* 2. Production Budget *'
Display '* 3. Overhead Budget *'
DISPLAY '*****************************************************'
DISPLAY ' '
DISPLAY ' '
DISPLAY 'Which budget would you like to generate?'
ACCEPT BUDGET-SELECTION
DISPLAY ' '
IF BUDGET-SELECTION = 1
DISPLAY ' 'CO-NAME
DISPLAY ' SALES BUDGET. '
DISPLAY ' '
DISPLAY ' QUARTER'
DISPLAY ' 1 2'
DISPLAY 'UNITS 'Q1US' 'Q2US
DISPLAY 'SELLING PRICE ' USP ' ' USP
DISPLAY 'BUDGETED SALES'
END-IF
I get an error on this line..
MULTIPLY Q1US BY USP GIVING BUDGETED-SALES1
I do not see what im doing wrong. if anyone can help i would be very grateful
PROGRAM-ID. MIS210-2.
WORKING-STORAGE SECTION.
01 CO-NAME PIC X(25).
01 Q1US PIC ZZZZZZZZVZZ.
01 Q2US PIC ZZZZZZZVZZ.
01 USP PIC ZZZZZZVZZ.
01 BUDGETED-SALES1 PIC ZZZZZZZ.ZZ.
01 BUDGETED-SALES2 PIC ZZZZZZZ.ZZ.
01 DEI-1 PIC 99999.
01 DEI-2 PIC 99999.
01 TOTAL-NEEDS PIC 999999.
01 END-INV-1 PIC 99999.
01 END-INV-2 PIC 99999.
01 UNITS-T2-PRODUCED PIC 999999.
01 DIRECT-LBR-HOURS PIC 9999V99.
01 VAR-OH-RATE PIC $$$$9.99.
01 BUDGT-VAR-OH-RATE PIC $$$$9.99.
01 BUDGT-FIX-OH PIC 9999.
01 BUDGET-SELECTION PIC 9.
PROCEDURE DIVISION.
DISPLAY 'Welcome! This program will be able to generate 3'
DISPLAY 'different budgets for you. The sales budget,'
DISPLAY 'production budget, overhead budget.'
DISPLAY ' '
DISPLAY 'First, we will need some information'
DISPLAY ' '
DISPLAY 'What is your company name?'
ACCEPT CO-NAME.
INSPECT CO-NAME CONVERTING
'abcdefghijklmnopqrstuvwxyz' TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
DISPLAY 'What are you sales in units for quarter 1?'
ACCEPT Q1US
DISPLAY 'What are you sales in units for quarter 2?'
ACCEPT Q2US
DISPLAY 'What is the unit selling price?'
ACCEPT USP
DISPLAY 'What is your desired ending inventory for quarter 1?'
ACCEPT DEI-1
DISPLAY 'What is your desired ending inventory for quarter 2?'
ACCEPT DEI-2
DISPLAY 'What was your ending inventory for quater 1?'
ACCEPT END-INV-1
DISPLAY 'What was your ending inventory for quater 2?'
ACCEPT END-INV-2
DISPLAY 'What is the budgeted direct labor hours?'
ACCEPT DIRECT-LBR-HOURS
DISPLAY 'What is your variable overhead rate?'
ACCEPT VAR-OH-RATE
MULTIPLY Q1US BY USP GIVING BUDGETED-SALES1
DISPLAY ' '
DISPLAY ' '
DISPLAY '*****************************************************'
DISPLAY '* 1. Sales Budget *'
Display '* 2. Production Budget *'
Display '* 3. Overhead Budget *'
DISPLAY '*****************************************************'
DISPLAY ' '
DISPLAY ' '
DISPLAY 'Which budget would you like to generate?'
ACCEPT BUDGET-SELECTION
DISPLAY ' '
IF BUDGET-SELECTION = 1
DISPLAY ' 'CO-NAME
DISPLAY ' SALES BUDGET. '
DISPLAY ' '
DISPLAY ' QUARTER'
DISPLAY ' 1 2'
DISPLAY 'UNITS 'Q1US' 'Q2US
DISPLAY 'SELLING PRICE ' USP ' ' USP
DISPLAY 'BUDGETED SALES'
END-IF
I get an error on this line..
MULTIPLY Q1US BY USP GIVING BUDGETED-SALES1
I do not see what im doing wrong. if anyone can help i would be very grateful