Technical data

MODIFY
DISPLAY "ENTER PART DESCRIPTION - X(50): "
WITHOUT ADVANCING.
ACCEPT PART_DESC.
.
.
.
MODIFY PART
ON ERROR DISPLAY "ERROR MODIFYING PARTS_RECORD . . . "
PERFORM 200-PARTS-RECORD-ERROR-ROUTINE.
GO TO 150-UPDATE-PARTS-RECORD.
2. In this example, PART_ID in the PART record is modified. PART_ID is a sort
key for the CLASS_PART set. This routine will retain the current position in
the CLASS_PART set after you modify the record.
300-FIX-ID-ROUTINE.
DISPLAY "ENTER PART ID TO BE CHANGED - X(8): "
WITHOUT ADVANCING.
ACCEPT PART_ID.
FIND FIRST PART WITHIN CLASS_PART USING PART_ID
ON ERROR DISPLAY "ERROR IN FIND PARTS_RECORD . . . "
PERFORM 200-PARTS-RECORD-ERROR-ROUTINE.
DISPLAY "ENTER NEW PART ID - X(8): "
WITHOUT ADVANCING.
ACCEPT PART_ID.
MODIFY PART_ID RETAINING CLASS_PART
ON ERROR DISPLAY "ERROR MODIFYING PARTS_RECORD . . . "
PERFORM 200-PARTS-RECORD-ERROR-ROUTINE.
4–48 Procedure Division