*PROCEDURAL COBOL SUB PROGRAM *********************************************** * Room Rental System * W. Price 6/18/96 ROOM02SU.CBL * * This subprogram contains data for one room. * Subprogram parameters are: * Input: Discount switch * Output: Standard configuration price * Special configuration price *********************************************** Identification Division. Program-id. Room02subprogram. * ROOM02SU.CBL Data Division. Working-Storage Section. 01 room-data. 10 room-number pic 9(03) value 100. 10 std-config-price pic 9(03) value 225. 10 spec-config-price pic 9(03) value 385. 10 room-discount pic v9(02) value .05. 10 room-capacity pic 9(02) value 38. 01 price-factor pic 9(01)v9(02). Linkage Section. 01 ls-apply-discount-sw pic x(01). 88 ls-apply-discount value "Y" "y". 01 ls-room-data. 10 ls-std-config-price pic 9(03). 10 ls-spec-config-price pic 9(03). Procedure Division using ls-apply-discount-sw ls-room-data. 100-return-data-set. Move std-config-price to ls-std-config-price Move spec-config-price to ls-spec-config-price Evaluate TRUE When ls-apply-discount Subtract room-discount from 1.0 giving price-factor Multiply price-factor by ls-std-config-price Multiply price-factor by ls-spec-config-price End-evaluate Exit program .