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·Ö£©