1
Download HP BASIC for OpenVMS User Manual
Transcript
WHEN ERROR USE eof_handler DECLARE INTEGER CONSTANT EOF = 11 MAP (PAYROL) STRING emp_name, LONG wage_class, & STRING sal_rev_date, SINGLE tax_ytd OPEN "payroll.dat" FOR INPUT AS FILE #4% ,ORGANIZATION SEQUENTIAL ,ACCESS READ ,MAP PAYROL & & & OPEN "payrol.new" FOR OUTPUT AS FILE #5% ,ORGANIZATION SEQUENTIAL ,ACCESS WRITE ,MAP payrol & & & PRINT "PAYROLL VERIFICATION" get_loop: WHILE 1% = 1% GET #4 PRINT emp_name, wage_class, sal_rev_date, tax_ytd PRINT "YOU CAN CHANGE:" PRINT "1. EMPLOYEE NAME" PRINT "2. WAGE CLASS" PRINT "3. REVIEW DATE" PRINT "4. TAX YEAR-TO-DATE" PRINT "5. DONE" read_loop: WHILE 1% = 1% INPUT "CHANGES? ANSWER WITH YES OR NO" ; chng$ IF chng$ = "NO" THEN ITERATE get_loop ELSE INPUT "NUMBER" ;number% END IF Data Definition 7–7
