COBOL¤Î¥¢¥É¥ì¥¹¡©

1:COBOL¤Î¥¢¥É¥ì¥¹¡©
¤Ñ¤×¤¢ 03/24 09:26
¤¤¤Ä¤â»²¹Í¤Ë¤µ¤»¤Æ夤¤Æ¤ª¤ê¤Þ¤¹¡£
ÁᮼÁÌ䤵¤»¤Æ¤¯¤À¤µ¤¤¡£

COBOL85¤ÇºîÀ®¤·¤¿¥×¥í¥°¥é¥à¤Ç¡ÖÉÔÀµ½½¿Ê¥¨¥é¡¼¡×¤¬¤Ç¤Þ¤·¤¿¡£
¤³¤Î¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤Ë¤Ï¡ÖADRS¡á¡×¤¬É½¼¨¤µ¤ì¤Þ¤¹¤¬
¤³¤Î¥¢¥É¥ì¥¹¤¬¡¢¥½¡¼¥¹¥ì¥Ù¥ë¤Ç¤É¤³¤ò»Ø¤¹¤Î¤«¡©
¤¬¤ï¤«¤ë¤è¤¦¤Ê¥ê¥¹¥ÈÅù¤Ï¤¢¤ê¤Þ¤·¤¿¤Ç¤·¤ç¤¦¤«¡©
¡ÊÎ㤨¤Ð¡¢¥ê¥ó¥¯»þ¤Ë¥ê¥¹¥È½ÐÎÏ¥ª¥×¥·¥ç¥ó¤È¤«¡¦¡¦¡¦¡Ë

¤½¤¦¤¤¤¦¤Î¤¬¤¢¤Ã¤¿¤è¤¦¤Êµ¤¤¬¤·¤¿¤Î¤Ç¤¹¤¬
²¿¤»±ó¤¤ÀΤε­²±¤Ê¤Î¤Ç¡¦¡¦¡¦

¤â¤·¤³¤¦¤¤¤¦¤Î¤¬¤Ê¤±¤ì¤Ð¡¢¥Ç¥Ð¥Ã¥¬¤ò»È¤¦¤·¤«¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

¤Ä¤¿¤Ê¤¤Ê¸¾Ï¡ÜÆâÍƤǿ½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬
¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

2:Re: COBOL¤Î¥¢¥É¥ì¥¹¡©
²¹Àô¹¥¤­¤Î¤¦¤µ¤® 03/24 12:20
¥Ç¥Ð¥Ã¥°¾ðÊó¤¬Éղ䵤줿¥í¡¼¥É¥â¥¸¥å¡¼¥ë¤Ç¤¢¤ì¤Ð¡¢¥¨¥é¡¼¤ÎȯÀ¸¤·¤¿¥½¡¼¥¹¤Î¹Ô°ÌÃÖ¤¬¤ï¤«¤ê¤Þ¤¹¡£

(1)¥Ç¥Ð¥Ã¥°¾ðÊóÉÕLM¤ÎºîÀ®
CBL85¤Ç¥³¥ó¥Ñ¥¤¥ë¤¹¤ëºÝ¤Ë¥ª¥×¥·¥ç¥ó¥Ñ¥é¥á¡¼¥¿¤ò»ØÄꤷ(OPT=YES)¡¢¥Ç¥Ð¥Ã¥°¾ðÊó½ÐÎϥѥé¥á¡¼¥¿¤ò»ØÄꤷ¤Þ¤¹(DIO=YES)¡£

(2)¥×¥í¥°¥é¥à¤Î¼Â¹Ô
¾åµ­¤ÎLM¤ò¼Â¹Ô¤·¤Æ¡¢ÉÔÀµ½½¿Ê¿ô¤òȯÀ¸¤µ¤»¤Þ¤¹¡£

(3)¥¢¥Ü¡¼¥È¥À¥ó¥×¤Î½ÐÎÏ
ENTER ABORT DUMP PARAMETER ¤Ç ODE=MSD000¡¢OFI=SYS@DUMP ¤Ê¤É¤È»ØÄꤷ¤Þ¤¹¡£
¥À¥ó¥×¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Ê¤±¤ì¤Ð¡¢ÊÌÅÓ #ABC ¤Ë¤Æ¥¢¥í¥±¡¼¥È¤·¤Þ¤¹¡£

(4)¥á¥â¥ê¥À¥ó¥×²òÀÏ
#ABANA ¤òµ¯Æ°¤·¡¢³Æ¥Ñ¥é¥á¡¼¥¿¤ËŬÀÚ¤ÊÃͤò»ØÄꤷ¤Þ¤¹¡£
½ÐÎÏÁõÃÖ¤òSTN¤È¤·¤¿¾ì¹ç¡¢°Ê²¼¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
***¡¡LINE ANALYZE ***
ERR STATUS: ¡¡¡¡ E M0021: (PRG=PPPPPP,ADR=AAAA) ÉÔÀµ£±£°¿Ê¿ô¥¨¥é¡¼
CU NAME: ¡¡¡¡ ¡¡¡¡ XXXXXX
SECTION NO.: ¡¡¡¡ ¡¡0
GENERATE LINE NO.: ¡¡¡¡ 789
RELATIVE LINE NO.: ¡¡¡¡ 456

(5)¾åµ­¤Î¾ì¹ç¡¢¥½¡¼¥¹¤Î456¹ÔÌܤȤ¤¤¦¤³¤È¤¬¤ï¤«¤ê¤Þ¤¹¡£789¹ÔÌܤϡ¢¥³¥Ô¡¼Ê¸¤ò´Þ¤á¤¿¹Ô°ÌÃ֤Ǥ¹¡£


3:Re: COBOL¤Î¥¢¥É¥ì¥¹¡©
¤Ñ¤×¤¢ 03/24 13:53




HP„Uƒ²ƒÇƒ±
ı
ƒÀ
ƒ²LIN=XXXX„Uƒ¯áæ

ƒÂƒ±
ı
„y

A-VX
„UéT
ı
ı
„U

„V


4:Re: COBOL¤Î¥¢¥É¥ì¥¹¡©
rupa 03/24 14:41

space
comp-3ƒÅsortsumƒ¯



5:Re: COBOL¤Î¥¢¥É¥ì¥¹¡©
¤Ñ¤×¤¢ 03/24 15:39
¤Þ¤¿¤Þ¤¿¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª¡ª

SPACE¤Ï¥Á¥§¥Ã¥¯¤·¤Þ¤·¤¿¤¬
·å¤¢¤Õ¤ì¤Ç¤â¡ÖÉÔÀµ½½¿Ê¡×¤Ê¤Î¤Ç¤¹¤«¡ª
ÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡¦¡¦¡¦²¿½½Ç¯¤â¤ä¤Ã¤Æ¤¤¤ë¤Î¤Ë¡£
¤ªÃѤº¤«¤·¤¤¸Â¤ê¡£
ÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤¹¡ª¡ª


¤³¤Î¥·¥¹¥Æ¥à¡¢¤½¤³¤½¤³¤Î´ü´Ö¡Ê£±£°Ç¯¶á¤¯¡Ë¤Ï¥á¥ó¥Æ¤Ê¤·¤Ç°ÂÄê²ÔƯ¤·¤Æ¤ª¤ê¡¢
µÕ¤Ë¸À¤¦¤È¡Ö¤Û¤È¤ó¤ÉÊüÃ֡פ˶ᤤ¤Î¤Ç¤¹¡£
³ä¤È¤æ¤ë¡¼¤¤¥·¥¹¥Æ¥à¤Ê¤Î¤Ç
ÁÛÄê³°¥Ç¡¼¥¿¤¬½Ð¸½¤·¤¿¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤³Îǧ¤·¤¿¤Î¤Ç¤¹¤¬
¡ÖÆüì¤Ê¥Ç¡¼¥¿¤ÏÆþ¤ì¤Æ¤Ê¤¤¡×¤È¤Î¤³¤È¡£
¤Á¤Ê¤ß¤Ë¡¢·å¤¢¤Õ¤ì¤¹¤ë¤è¤¦¤Ê¥Ç¡¼¥¿¤â¡ÖÆüì¥Ç¡¼¥¿¡×¤Ç¤¹¡£

²¿¤Ë¤»¤è¡¢¤â¤Î¤¹¤´¤¯¤¯¤À¤é¤Ê¡¼¤¤¥ß¥¹¤À¤È»×¤¦¤Î¤Ç
ÌÀÆü¥Á¥§¥Ã¥¯¤·¤Æ¤ß¤Þ¤¹¡ª
¡Êº£¤µ¤é¥Ð¥°¤¸¤ã¤Ê¤¤¤³¤È¤òµ§¤ê¤Ä¤Ä¡¦¡¦¡¦¡Ë


¥Û¥ó¥È¤Ë¡¢¤³¤³¤Î³§¤µ¤ó¤Ï¤ªÍ¥¤·¤¯¤Æ¡¦¡¦¡¦
¥Þ¥¸µã¤­¤·¤½¤¦¤Ç¤¹¡¦¡¦¡¦

¥¢¥É¥Ð¥¤¥¹¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª¡ª



6:¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª
¤Ñ¤×¤¢ 03/25 10:21
¤ª¤»¤ï¤Ë¤Ê¤ê¤Þ¤¹¡£
ËÜÆü¸½ÃϤÇÄ´ºº¤ò¹Ô¤¤¤Þ¤·¤¿¡£

¥³¥±¤Æ¤¤¤¿¤Î¤¬¥á¥¤¥ó¥×¥í¥°¥é¥à¤«¤éCALL¤·¤Æ¤¤¤ë¥µ¥Ö¥×¥í¤À¤Ã¤¿¤Î¤Ç
Ä´¤Ù¤ë¤Î¤Ë¾¯¤·»þ´Ö¤¬¤«¤«¤ê¤Þ¤·¤¿¤¬¡¢Ìµ»ö¥¨¥é¡¼²ò¾Ã¤Ç¤­¤Þ¤·¤¿¡ª

¤ä¤Ã¤Ñ¤ê¡¢¡ÖÁÛÄê³°¥Ç¡¼¥¿¡×¤Î¡Öspace¡×¤Ç¤·¤¿¡£

¤Ê¤¼¤½¤ó¤Ê¥Ç¡¼¥¿¤¬¡©¤È¤¤¤¦¤Î¤Ï¡¢
¡ÖÁÛÄê³°¥Ç¡¼¥¿¡×¤òÅǤ­½Ð¤·¤¿¥×¥í¥°¥é¥à¤Î
ñ½ã¤Ê¥ê¥³¥ó¥Ñ¥¤¥ë˺¤ì¥Ç¥¹¡£¤ªÃѤº¤«¤·¤¤¸Â¤ê¡£
¡Ê£±£¹£¹£µÇ¯¤«¤éÊüÃÖ¡¢Â¸ºß¤¹¤é˺¤ì¤Æ¤¿¥×¥í¥°¥é¥à¤¬¡¦¡¦¡¦¡Ë

¤È¤â¤«¤¯¡¢¸¶°ø¤¬È½ÌÀ¤·¤¿¤Î¤Ç½õ¤«¤ê¤Þ¤·¤¿¡ª

²¹Àô¹¥¤­¤Î¤¦¤µ¤®ÍÍ¡¢¡¡rupaÍÍ¡¢
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª


7:Re: ¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª
rupa 03/25 12:40
²ò·è¤·¤Æ¤Ê¤Ë¤è¤ê¤Ç¤·¤¿¡£


Á°¼¡1-¿·½ñÈÄ

BluesBB ©Sting_Band