000100 Identification Division. 000200 Program-Id. AROMAOSF. 000300 Environment Division. 000400 Input-Output Section. 000500 File-Control. 000600 Select Oil-Stock-File Assign to OSFDD 000700 Organization is Relative 000800 Access mode is Dynamic 000900 Relative Key is Rel-Rec-Num 001000 File Status is Osf-Status 001100 . 001200 Select Osf-In Assign to OSFINDD 001300 Organization is Sequential 001400 . 001500 Data Division. 001600 File Section. 001700 001800 FD OSF-in. 001900 01 OSF-In-Rec. 002000 88 End-Of-OSF Value High-Value. 002100 05 Oil-Num-OSF-in. 002200 10 Rel-Rec-Num Pic 9(03). 002300 10 Pic 9(01). 002400 05 Qty-In-Stock-OSF-In Pic 9(05). 002500 05 Pic X(71). 002600 002700 FD Oil-Stock-File. 002800 01 OSF-Rec. 002900 05 Oil-Num-OSF Pic 9(04). 003000 05 Qty-In-Stock-OSF Pic 9(05). 003100 05 Pic X(01). 003200 003300 Working-Storage Section. 003400 01 Status-Codes. 003500 02 OSF-Status Pic X(02). 003600 003700 Procedure Division. 003800 Open Output Oil-Stock-File 003900 Open Input OSF-in 004000 004100 Perform Until End-Of-Osf 004200 Read OSF-in 004300 At End 004400 Set End-Of-OSF to True 004500 Not At End 004600 Write OSF-Rec 004700 From OSF-in-Rec 004800 Invalid Key 004900 Display 'Problem with OSF write FS = ' 005000 OSF-Status 005100 Display 'OSF-Rec = ' 005200 OSF-In-Rec 005300 End-Write 005400 If OSF-Status Not = '00' 005500 Display '***OSF-STtaus: ' OSF-STatus 005600 Move 99 to Return-code 005700 GoBack 005800 End-If 005900 End-Read 006000 End-Perform 006100 006200 Close Oil-Stock-File 006300 Close Osf-in 006400 GoBack 006500 .