חסימת ביטול חשבונית לפי מספר לקוח, ולפי משתמש

צריך להסיר ממסך החשבונית את ההפעלות הקיימות ולהחליף אותן בהפעלות חדשות שמורכבות מארבעה שלבים:
10 – SQLI
20 – GOTO
30 – END
40 – הפרוצדורה המקורית

בשלב הראשון, מתבצעת בדיקה לגבי המשתמש (האם הוא יכול לבטל חשבוניות לכולם?) וללקוח (האם בקבוצה הבעייתית). משתנה GO מקבל ערך 30 או 40 בהתאם – אם מותר למשתמש לבטל את החשבונית אזי יקבל ערך 40, אחרת 30.
שלב GOTO מקבל את ערך המשתנה GO ומפנה הלאה.

בשלב 40 רושמים שם ישות IVSTORNO עם פרמטר PAR – ההפעלה המקורית תופעל