ÉèΪÊ×Ò³ ¼ÓÈëÊÕ²Ø

TOP

ÈÕÓïCOBOLÊÔÌâ
2014-10-19 00:10:16 À´Ô´: ×÷Õß: ¡¾´ó ÖРС¡¿ ä¯ÀÀ:34´Î
Tags£ºÈÕÓï COBOL ÊÔÌâ

1¡¢pic 9(3) comp-3¤ÏºÎ¥Ð¥¤¥È¤òÕ¼¤á¤Þ¤¹¤«£¿ £¨¡¡A¡¡£©


a¡¢2¥Ð¥¤¥È ¡¡¡¡ b¡¢3¥Ð¥¤¥È ¡¡¡¡ c¡¢6¥Ð¥¤¥È



2¡¢pic 9(2)v99¤ÏºÎ¥Ð¥¤¥È¤òÕ¼¤á¤Þ¤¹¤«£¿ £¨¡¡B¡¡£©


a¡¢2¥Ð¥¤¥È ¡¡¡¡ b¡¢4¥Ð¥¤¥È ¡¡¡¡ c¡¢5¥Ð¥¤¥È



3¡¢ÏÂÓ›¤Îí—Ä¿¤Î¶¨Áx¤ÏÕý¤·¤¤¤ÎÊý¤Ï¤É¤Î¤Ç¤¹¤«¡£ £¨¡¡A¡¡£©


¢Ù 01 na-2 pic x(8).


¢Ú 01 nb-2 pic v99.


¢Û 01 nc-2 pic s9(2).


¢Ü 01 nd-2 pic sx(4).


¢Ý 01 ne 2 pic p99.


a¡¢1,2,3 ¡¡ b¡¢1,2,5 ¡¡ c¡¢2,3,4 ¡¡



4¡¢a ** 2 * b / 2 + c ¨C 5¤ÎƒžÏÈ혷¬¤Ï¤É¤Î¤Ç¤¹¤«¡£ £¨¡¡¡¡£©


a¡¢(((A ** 2) * B) / 2) + c ¨C 5


B¡¢((A ** 2) * (B / 2)) + c ¨C 5


C¡¢((A ** (2 * B)) / 2) + c ¨C 5



5¡¢ÏÂÓ›¤Î¥Þ©`¥¯¤Ïcobol¤Ëʹ¤¨¤Þ¤»¤ó¡£ £¨¡¡B¡¡£©


a¡¢- ¡¡ b¡¢* C¡¢#



6¡¢¥¸¥ç¥Ö¤Ï¡¢¤¤¤¯¤Ä¤«¤Î¥í¥±©`¥·¥ç¥ó¥Ñ¥é¥á©`¥¿¤ò³Ö¤Ä¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ £¨¡¡¡¡£©


a¡¢1 b¡¢2 C¡¢3



7¡¢¥¸¥ç¥Ö¤Ï¡¢¤¤¤¯¤Ä¤«¤Î¥¸¥ç¥Ö¥¹¥Æ¥Ã¥×¤ò³Ö¤Ä¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ £¨¡¡¡¡£©


a¡¢225 b¡¢255 C¡¢15




¶þ¡¢½â´ð¤·¤Æ¤¯¤À¤µ¤¤¡££¨£±£·£ø£³·Ö£©


1¡¢cobol¤Î˜‹³É²¿·Ö(divisions)¤ÎÃûǰ¡£


IDENTIFICATION DIVISION


ENVIRONMENT DIVISION


DATA DIVISION


PROCEDURE DIVISION



2¡¢¥×¥í¥°¥é¥à¤Ëfile-control¤Ï¤É¤Î²¿·Ö¤Ë¶¨˜I¤µ¤ì¤ë¡£


ENVIRONMENT DIVISION



3¡¢¥Ç©`¥¿¶¨Áx¤¹¤ë•r¡¢aÐͤÈxÐͤÎÇø„e¡£


AÐͶ¨ÒåµÄÊý×ÖÐÍ


XÐͶ¨ÒåµÄÊÇ×ÖĸÐÍ



4¡¢if a NOT > 0 and b=2 ¤Î¥±©`¥¹¤ò•ø¤¤¤Æ¤¯¤À¤µ¤¤¡£




5¡¢cobol¤ÎÖФË66ëA¤¬¤É¤³¤«¤òʹ¤¤¤Þ¤¹¡£


ÖØ¶¨Òå²ã



6¡¢cobol¤ÎÖФË77ëA¤¬¤É¤³¤«¤òʹ¤¤¤Þ¤¹¡£


¶ÀÁ¢²ã



7¡¢cobol¤ÎÖФË88ëA¤¬¤É¤³¤«¤òʹ¤¤¤Þ¤¹¡£


Ìõ¼þ²ã



8¡¢3**2¤ÎÒâ椬¤É¤¦¤Ç¤¹¤«¡£


3*3*2£¿



9¡¢next sentence ¤Ècontinue¤ÎÇø„e¡£


È¡¾öÓÚÄǸö¾äµã£¬next sentence ÔÚÓöµ½¾äµãʱִÐÐÏÂÒ»¾ä¡­¡­



10¡¢¤É¤Î¤è¤¦¤Ëvsam¥Õ¥¡¥¤¥ë¤Î¥Ç©`¥¿¤ò¸üФ¹¤ë£¨ÊÖ혤À¤±£©¡£


¼ÓÔØ¡­¡­



11¡¢jcl¤ÎÖФˡ¢region¤ÎÒâζ¤òÕhÃ÷¤·¤Æ¤¯¤À¤µ¤¤¡£


ȡֵ·¶Î§



12¡¢jcl¤ÎÖФˡ¢joblib¤Èsteplib¤ÎÇø„e¡£


JOBLIB °üÀ¨Õû¸öLIBÖеĿɷÅÔÚ±àÄ¿¹ý³ÌÖÐ
µ«ÊÇSTEPLIBÖÐÖ»ÄÜÔÚSTEPÖв»ÄÜ·ÅÔÚ±àÄ¿ÖÐ



13¡¢jcl¤ÎÖФˡ¢disp = mod¤Èdisp = old¤ÎÇø„e¡£


MODÖ¸Ã÷Èç¹ûûÓÐÖ¸¶¨ÎļþµÄʱºòÔò´´½¨£¬ÓеϰÔò¸üУ¬ OLDÊÇ˵ÔÚÒÑ´æÔÚµÄʱºòÓÃÕâ¸ö



14¡¢jcl¤ÎÖФˡ¢disp=(new,catlg,delete)¤ÎÒâ椬ÕhÃ÷¤·¤Æ¤¯¤À¤µ¤¤¡£


´´½¨Ò»¸öеģ¬ÔÚ±àÄ¿½áÊøÕý³£µÄÒÔºóɾ³ý¡­¡­



15¡¢cobol¤Ç¡¢¥½©`¥È¤Î²Ù×÷¤¬¤É¤¦¤¹¤ë¤«¡£




16¡¢online¤Î²Ù×÷¤¹¤ë•r¡¢newcopy¤Î×÷Óã¿




17¡¢PGM¤ò¥Æ¥¹¥È¤¹¤ë•r¡¢¤¤¤¯¤Ä¤«DEBUG·½·¨¤ò’¤¤²¤Æ¤¯¤À¤µ¤¤¡£




Èý¡¢ÏÂÓ›¤ÎÒªÇó¤Îͨ¤ê¡¢cobol¤Çº†…g¤Ê¥³©`¥Ç¥£¥ó¥°¤·¤Æ¤¯¤À¤µ¤¤¡£


1¡¢a*b => c£¨£²·Ö£©




2¡¢ÏÂÓ›¤Îcode¤ò·ÖÎö¤·¤Æ¡¢„IÀí½Y¹û¤ò•ø¤¤¤Æ¤¯¤À¤µ¤¤¡££¨£´·Ö£©


DATA DIVISION.


WORKING-STORAGE SECTION.


01 WK-1 PIC 9999.


01 WK-2 PIC $$$$99.


01 WK-3 PIC $$99.


01 wk-4 pic $9999cr.


*


PROCEDURE DIVISION.


MOVE 1234 TO WK-1


WK-2


WK-3.


MOVE -1234 TO wk-4.


wk-1 = _1234_______ wk-2 = _____12___


wk-3 = __$34______ wk-4 = __$1234CR____



3¡¢¤É¤Î¤è¤¦¤Ë¥Æ©`¥Ö¥ë(ϱê±í)¤ò¶¨Áx¤¹¤ë¡££¨4·Ö£©






4¡¢perform¤Çº†…g¤ÊÑ­­h¤Î²Ù×÷¤¬¤É¤¦¤¹¤ë¤«[1+1¡­+1=5]¡££¨4·Ö£©






5¡¢¢Ùa > 2ÇÒ¤Ä b > 3¤Î•r¡¢a + b => c


¡¡c > 8¤Î•r¡¢c => d¡¢ÒÔÍâ¤ÎˆöºÏc => e;


¢ÚÒÔÍâ¤ÎˆöºÏ¡¢b ¨C a => c. £¨£µ·Ö£©







6¡¢01 x pic 9(5) value ¡® 12345¡ä.


ÒªÇ󣺢٠string¤Èinspect¤Ç¡¢


¢ÚÓèÏë½Y¹ûz = ¡¯12*4 a_cd_¡¯ £¨£¶·Ö£©












7¡¢Ð¤·¤¤¥¸¥ç¥Ö¤òÐÂÒŽ¤¹¤ë£¨dcb=(recfm=¶¨éL,lrecl=xxxx,blksize=xxxxx,·ÖÇø¥Ç©`¥¿¥»¥Ã¥È)£©¡££¨10·Ö£©










¡¾´ó ÖРС¡¿¡¾´òÓ¡¡¿ ¡¾·±Ìå¡¿¡¾Í¶¸å¡¿¡¾Êղء¿ ¡¾ÍƼö¡¿¡¾¾Ù±¨¡¿¡¾ÆÀÂÛ¡¿ ¡¾¹Ø±Õ¡¿ ¡¾·µ»Ø¶¥²¿¡¿
·ÖÏíµ½: 
ÉÏһƪ£ºJAVA¿ª·¢ÇóÖ° ÏÂһƪ£º20¸ö³£¼ûµÄÈí¼þÏîÄ¿¾­ÀíÃæÊÔÎÊÌâ

ÆÀÂÛ

ÕÊ¡¡¡¡ºÅ: ÃÜÂë: (ÐÂÓû§×¢²á)
Ñé Ö¤ Âë:
±í¡¡¡¡Çé:
ÄÚ¡¡¡¡ÈÝ: