INPUT-OUTPUT SECTION. file-control. select file1 assign to "file1" organization is indexed access mode is dynamic record key is f-cod file status is f-status. data division. file section. fd file1. 01 f-rec. 03 f-cod pic 9(3). 03 f-firstname pic x(20). 03 f-secname pic x(20). 03 f-address pic x(20). $EFD DATE=YYYYMMDD 03 f-birthday pic 9(8). |