Ê¿À®£¹Ç¯ÅÙ ½Õ´ü ÂèÆó¼ï ¸á¸å Ìä12

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Î¹¹¿·Æü¡Ï1997.05.30
Ìä12 ¼¡¤ÎCOBOL¥×¥í¥°¥é¥à¤ÎÀâÌÀµÚ¤Ó¥×¥í¥°¥é¥à¤òÆɤó¤Ç¡¤ÀßÌä¤ËÅú¤¨¤è¡£ ¡Ì¥×¥í¥°¥é¥à¤ÎÀâÌÀ¡Í ¿Þ½ñ¤ÎÂ߽е­Ï¿¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤ó¤Ç¡¤ÊÖµÑͽÄêǯ·îÆü¤«¤é7Æü°Ê¾å¤¿¤Ã¤Æ¤¤¤ë¤Ë ¤â¤«¤«¤ï¤é¤ºÊֵѤµ¤ì¤Æ¤¤¤Ê¤¤¿Þ½ñ¤Î¥ì¥³¡¼¥É¡Ê̤Êֵѥ쥳¡¼¥É¡Ë¤òÃê½Ð¤·¡¤ÊÖµÑÆÄ Â¥¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¤Ç¤¢¤ë¡£Î㤨¤Ð¡¤¤³¤Î¥×¥í¥°¥é¥à¤Î¼Â¹Ôǯ·îÆü¤¬ 1997ǯ4·î20Æü¤Î¾ì¹ç¡¤ÊÖµÑͽÄêǯ·îÆü¤¬l997ǯ4·î13Æü°ÊÁ°¤Î̤Êֵѥ쥳¡¼¥É¤ò ÊÖµÑÆÄÂ¥¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ë¡£ ¡Ê1¡ËÂ߽е­Ï¿¥Õ¥¡¥¤¥ëKIROKU-FILE¤Î¥ì¥³¡¼¥ÉÍͼ°¤Ï¡¤¼¡¤Î¤È¤ª¤ê¤Ç¤¢¤ë¡£ ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¤ ¨¢ ¿Þ½ñ¥³¡¼¥É ¨¢ ÍøÍÑ¼Ô ¨¢ Âß½Ðǯ·îÆü ¨¢ ÊÖµÑͽÄê ¨¢ÊÖµÑǯ·îÆü¨¢ ¨¢ ¨¢ ¥³¡¼¥É ¨¢ ¨¢ ǯ·îÆü ¨¢ ¨¢ ¨¢ 12¤±¤¿ ¨¢ 4¤±¤¿ ¨¢ 6¤±¤¿ ¨¢ 6¤±¤¿ ¨¢ 6¤±¤¿ ¨¢ ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨¥ 1.Âß½Ðǯ·îÆü¡¤ÊÖµÑͽÄêǯ·îÆüµÚ¤ÓÊÖµÑǯ·îÆü¤Ï¡¤¤¤¤º¤ì¤âÀ¾Îñǯ²¼2¤±¤¿¡¤ ·î2¤±¤¿µÚ¤ÓÆü2¤±¤¿¤«¤é¤Ê¤ë¡£ 2.̤Êֵѥ쥳¡¼¥É¤ÎÊÖµÑǯ·îÆü¤Ë¤Ï¡¤¤¹¤Ù¤Æ0¤¬³ÊǼ¤µ¤ì¤Æ¤¤¤ë¡£ ¡Ê2¡ËÊÖµÑÆÄÂ¥¥Õ¥¡¥¤¥ëTOKUSOKU-FILE¤Î¥ì¥³¡¼¥ÉÍͼ°¤Ï¡¤¼¡¤Î¤È¤ª¤ê¤Ç¤¢¤ë¡£ ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¡¨¨¨¡¨¡¨¡¨¡¨¡¨¡¨¤ ¨¢ ¿Þ½ñ¥³¡¼¥É ¨¢ ÍøÍÑ¼Ô ¨¢ Âß½Ðǯ·îÆü ¨¢ ÊÖµÑͽÄê ¨¢ ¨¢ ¨¢ ¥³¡¼¥É ¨¢ ¨¢ ǯ·îÆü ¨¢ ¨¢ 12¤±¤¿ ¨¢ 4¤±¤¿ ¨¢ 6¤±¤¿ ¨¢ 6¤±¤¿ ¨¢ ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨¡¨ª¨¡¨¡¨¡¨¡¨¡¨¡¨¥ ¡Ì¥×¥í¥°¥é¥à¡Í ¡Ê¹ÔÈÖ¹æ¡Ë 01 DATA DIVISION. 02 FILE SECTION. 03 FD KIROKU-FILE. 04 01 KIROKU-REC. 05 03 TOSYO-CODE PIC X(12). 06 03 RIYOUSYA-CODE PIC X(4). 07 03 KASIDASI-BI PIC 9(6). 08 03 YOTEI-BI PIC 9(6). 09 03 HENKYAKU-BI PIC 9(6). 10 FD TOKUSOKU-FILE. 11 01 TOKUSOKU-REC PIC X(28). 12 WORKING-STORAGE SECTION. 13 0l EOF-FLAG PIC X(l) VALUE SPACE. 14 0l GETUMATU PIC 9(2). 15 01 X PIC 9(3). 16 01 KYOU PIC 9(6). 17 01 YUUYO-BI. 18 03 YUUYO-NEN PIC 9(2). 19 03 YUUYO-TUKI PIC 9(2). 20 03 YUUYO-HI PIC 9(2). 21 PROCEDURE DIVISION. 22 HAZIME. 23 ACCEPT KYOU FROM DATE. 24 OPEN INPUT KIROKU-FILE OUTPUT TOKUSOKU-FILE. 25 READ KIROKU-FILE AT END MOVE "E" TO EOF-FLAG. 26 PERFORM UNTIL EOF-FLAG = "E" 27 IF HENKYAKU-BI = ZERO THEN 28 PERFORM KEISAN 29 IF YUUYO-BI <= KYOU THEN 30 MOVE KIROKU-REC TO TOKUSOKU-REC 31 WRITE TOKUSOKU-REC 32 END-IF 33 END-IF 34 READ KIROKU-FILE AT END MOVE "E" TO EOF-FLAG 35 END-READ 36 END-PERFORM. 37 CLOSE KIROKU-FILE TOKUSOKU-FILE. 38 STOP RUN. 39 KEISAN. 40 MOVE YOTEI-BI TO YUUYO-BI. 41 IF YUUYO-TUKI = 2 THEN 42 PERFORM URUU-KENSA 43 ELSE 44 IF YUUYO-TUKI = 4 OR YUUYO-TUKI = 6 OR 45 YUUYO-TUKI = 9 OR YUUYO-TUKI = 1l THEN 46 MOVE 30 TO GETUMATU 47 ELSE 48 MOVE 3l TO GETUMATU 49 END-IF 50 END-IF. 51 IF GETUMATU < YUUYO-HI + 7 THEN 52 COMPUTE YUUYO-HI = YUUYO-HI + 7 - GETUMATU 53 IF YUUYO-TUKI < 12 THEN 54 COMPUTE YUUYO-TUKI = YUUYO-TUKI + 1 55 ELSE 56 MOVE 1 TO YUUYO-TUKI 57 COMPUTE YUUYO-NEN = YUUYO-NEN + 1 58 END-IF 59 ELSE 60 COMPUTE YUUYO-HI = YUUYO-HI + 7 61 END-IF. 62 URUU-KENSA. 63 COMPUTE X = YUUYO-NEN / 4. 64 COMPUTE X = YUUYO-NEN - X * 4. 65 IF X = 0 THEN 66 MOVE 29 TO GETUMATU 67 ELSE 68 MOVE 28 TO GETUMATU 69 END-IF. ÀßÌä ¼¡¤Îµ­½ÒÃæ¤Î[ ]¤ËÆþ¤ì¤ëÀµ¤·¤¤Åú¤¨¤ò¡¤²òÅú·²¤ÎÃ椫¤éÁª¤Ù¡£ (1) ¤³¤Î¥×¥í¥°¥é¥à¤Ï¡¤ÊÖµÑͽÄêǯ·îÆü¤¬¡¤¤¢¤ëÆüÉհʹߤΥ쥳¡¼¥É¤ò½èÍý¤·¤¿¾ì ¹ç¤Ë¡¤¤±¤¿¤¢¤Õ¤ì¡Ê¥ª¡¼¥Ð¥Õ¥í¡¼¡Ë¤òµ¯¤³¤·¤ÆÀµ¤·¤¯½èÍý¤Ç¤­¤Ê¤¤¤³¤È¤¬Ê¬¤«¤Ã ¤¿¡£Àµ¤·¤¯½èÍý¤Ç¤­¤Ê¤¤ÊÖµÑͽÄêǯ·îÆü¤ÎºÇ¤âÁᤤÆüÉÕ¤Ï[ a ]¤Ç¤¢¤ê¡¤ ¥ª¡¼¥Ð¥Õ¥í¡¼¤Ï[ b ]¹ÔÌܤǵ¯¤³¤ë¡£ (2) À¾Îñǯ¤ò4¤±¤¿¤Ç°·¤¦¤è¤¦¥×¥í¥°¥é¥à¤ò½¤Àµ¤¹¤ë¡£½¤Àµ¤¹¤ëÆâÍƤϡ¤¼¡¤Î¤È¤ª ¤ê¤Ç¤¢¤ë¡£ 1. DATA DIVISION¤Î³ºÅö¤¹¤ë¹àÌܤΤ±¤¿¿ô¤òÁý¤ä¤¹¡£ 2. 23¹ÔÌܤÎACCEPTʸ¤ò½¤Àµ¤¹¤ë¡£ACCEPT FROM DATE¤Ç¤Ï¡¤À¾Îñǯ¤Î²¼2 ¤±¤¿¤·¤«¼èÆÀ¤Ç¤­¤Ê¤¤¤«¤é¤Ç¤¢¤ë¡£¤½¤³¤Ç¡¤4¤±¤¿¤ÎÀ¾Îñǯ¡¤2¤±¤¿¤Î·î¡¤2¤± ¤¿¤ÎÆü¤ò¼èÆÀ¤Ç¤­¤ëÉû¥×¥í¥°¥é¥à¡ÈACCEPTDATE¡É¤òÍøÍѤ·¡¤·ë²Ì¤òKYOU¤Ë ³ÊǼ¤¹¤ë¤è¤¦23¹ÔÌܤò¡¤[ c ] ¤ËÊѹ¹¤¹¤ë¡£©£ 3. 62¹ÔÌÜ¡Á69¹ÔÌܤΤ¦¤ë¤¦Ç¯¤Î¸¡ºº¤¬Àµ¤·¤¯¤Ç¤­¤ë¤è¤¦¤Ë¤¹¤ë¤¿¤á¡¤¼¡¤Î¤è¤¦ ¤Ë½¤Àµ¤¹¤ë¡£ ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤ ¨¢62 URUU-KENSA. ¨¢ ¨¢63 COMPUTE X = YUUYO-NEN / 4. ¨¢ ¨¢64 COMPUTE X = YUUYO-NEN - X * 4. ¨¢ ¨¢65 IF X NOT = 0 THEN ¨¢ ¨¢66 MOVE 28 TO GETUMATU ¨¢ ¨¢67 ELSE ¨¢ ¨¢68 COMPUTE X = YUUYO-NEN / 100 ¨¢ ¨¢69 COMPUTE X = YUUYO-NEN - X * 100 ¨¢ ¨¢70 IF X NOT = 0 THEN ¨¢ ¨¢71 MOVE 29 TO GETUMATU ¨¢ ¨¢72 ELSE ¨¢ ¨¢73 COMPUTE X = YUUYO-NEN / 400 ¨¢ ¨¢74 COMPUTE X = YUUYO-NEN - X * 400 ¨¢ ¨¢75 IF X NOT = 0 THEN ¨¢ ¨¢76 MOVE 28 TO GETUMATU ¨¢ ¨¢77 ELSE ¨¢ ¨¢78 MOVE 29 TO GETUMATU ¨¢ ¨¢79 END-IF ¨¢ ¨¢80 END-IF ¨¢ ¨¢81 END-IF. ¨¢ ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥ ¤³¤Î¤è¤¦¤Ë½¤Àµ¤·¤¿¾ì¹ç¡¤YUUYO-NEN¤ÎÃͤ¬[ d ]¤È[ e ]¤Î ¤È¤­¤ËGETUMATU¤ÎÃͤÏ29¤Ë¤Ê¤ë¡£ a¤Ë´Ø¤¹¤ë²òÅú·² ¥¢ 1999ǯ2·î1Æü ¥¤ 1999ǯ2·î28Æü ¥¦ l999ǯ12·î1Æü ¥¨ 1999ǯ12·î24Æü ¥ª 1999ǯ12·î25Æü ¥« 1999ǯ12·î31Æü ¥­ 2000ǯ1·î1Æü ¥¯ 2000ǯ1·î7Æü ¥± 2000ǯ1·î8Æü b¤Ë´Ø¤¹¤ë²òÅú·² ¥¢ 23 ¥¤ 25 ¥¦ 30 ¥¨ 34 ¥ª 52 ¥« 54 ¥­ 57 ¥¯ 60 ¥± 63 ¥³ 64 c¤Ë´Ø¤¹¤ë²òÅú·² ¥¢ ACCEPT "ACCEPTDATE" FROM KYOU. ¥¤ ACCEPT KYOU FROM "ACCEPTDATE". ¥¦ CALL "ACCEPTDATE" GIVING KYOU. ¥¨ CALL "ACCEPTDATE" INTO KYOU. ¥ª CALL "ACCEPTDATE" USING KYOU. ¥« PERFORM "ACCEPTDATE" GIVING KYOU. ¥­ PERFORM "ACCEPTDATE" INTO KYOU. ¥¯ PERFORM "ACCEPTDATE" USING KYOU. d¡¤e¤Ë´Ø¤¹¤ë²òÅú·² ¥¢ 2000 ¥¤ 2001 ¥¦ 20l0 ¥¨ 2100 ¥ª 2110 ¥« 2120 ¥­ 2200 ¥¯ 240l ¥± 2410 ¥³ 2500

Ìá¤ë ¡¡Á°ÊÇ¡§Ìä11 ¡¡¼¡ÊÇ¡§Ìä13