03 FILLER PIC X(2B) . 



03 DYNAMIC-DEPTH PIC S9V999. 



03 FILLER PIC X(16) . 



03 STANDARD-DEPTH-FLAG PIC 9. 



FD STANOARD-DEPTH-FILE LABEL RECORDS STANDARD 



RECORD CONTAINS 18 CHARACTERS 



BLOCK CONTAINS 354 RECORDS. 

 01 STANDAPD-DEPTH-REC USAGE COMP-3. 



03 ST-STANDARD-DFPTH PIC 9(5). 



03 ST-JULIAN-DAY PIC 9(3). 



03 ST-YEAR PIC 9(2) . 



03 ST-LATITUDE PIC 999V999, 



03 ST-LONGITUDE PIC 999V999. 



03 ST-DYNAMIC-DEPTH PIC 599V999. 



WORKING-STORAGE SECTION, 



77 EOF-FLAG PIC 9 USAGE COMP SYNC. 



77 MINUTES PIC 99 USAGE COwp SYNC. 



77 REC-COUNT PIC 9(R) VALUE USAGE COMP SYNC, 



77 READ-COUNT PIC 9(8) VALUE USAGE COMP SYNC, 



77 WS-YEAR PIC 9(8) USAGE COMP SYNC. 



77 WS-LATITUDE PIC S999V999. 



77 WS-LONGITUDE PIC S999V999. 



77 REAL-1 USAGE COMP-1 SYNC. 



77 REAL-2 USAGE COMP-1 SYNC. 



77 REAL-3 USAGE COMP-1 SYNC. 



77 INTEGER-1 PIC 9(8) USAGE COMP SYNC. 



77 INTE6ER-2 PIC 9(8) USAGE COMP SYNC. 



77 INTEGER-3 PIC 9(8) USAGE COMP SYNC. 



77 JAN-1-FACTOR PIC 59(8) USAGE COMP SYNC. 



77 FACTOR PIC S9(8) USAGE COMP SYNC. 



PROCEDURE DIVISION. 

 * THIS MODULE IS THE SUPERVISOR. HOUSEKEEPING IS DONE HERE. 

 OPEN INPUT STO-DATA-FILE 



OUTPUT STANDARD-DEPTH-FILE. 

 PERFORM READ-REC 

 PERFORM MAIN-PROCESS THRU MAIN-PROCESS-EXIT 



UNTIL EOF-FLAG = 1. 

 DISPLAY 'END OF PROCESSING BY XTRACT •♦ READ-COUNT* 



• RECORDS READ »♦ REC-COUNT, • RECORDS WRITTEN.'. 

 CLOSE STD-DATA-FILE 



STANDARD-DEPTH-FILE. 

 STOP RUN. 



MAIN-PROCESS. 

 « THIS MODULE MAKES SURE THE DATA IS A STANDARD DEPTH. 

 * AND CONVERTS THE LATITUDE AND LONGITUDE TO THE PROPER FORM. 

 ADD 1 TO READ-COUNT. 



EDIT-CHECK-THE-DATA. 



IF LAT-OEGREES IS NOT NUMERIC 



