WRITE A PROGRAM FOR GENERATING JULIAN DATE.
IDENTIFICATION DIVISION. PROGRAM-ID. DATE2. ENVIRONMENT DIVISION. CONFIGURATION SECTION. WORKING-STORAGE SECTION. 01 JUL PIC 9(7). PROCEDURE DIVISION. ACCEPT JUL FROM DATE. DISPLAY JUL. STOP RUN. ******* OUTPUT: ******* 0041217