2004-02-26から1日間の記事一覧

ACCEPT WTIME FROM TIME *> WTIMEに終了時刻を取得 COMPUTE ETIME = ((HH * 3600) + (MM * 60) + SS) *> 終了時刻を秒換算 COMPUTE XTIME = ETIME - STIME *> 所要時間(秒) COMPUTE HH = XTIME / 3600 COMPUTE XTIME = XTIME - (HH * 3600) COMPUTE MM = X…

PERFORM UNTIL CNT = 9999 *> CNTが1000になるまで1を加え続け表示 ADD 1 TO CNT CNT1 IF CNT1 = 10 THEN DISPLAY CNT MOVE 0 TO CNT1 END-IF END-PERFORM

COBOLの学習7日目(参照:COBOL入門 条件命令 -Mission2 →

CNT003.cob:29: warning: more warnings inhibitedCNT003.cob:8: syntax error, unexpected LITERAL, expecting EXTERNAL or GLOBALCNT003.cob:9: group item `CNT' cannot have PICTURE clause CNT003.cob:9: warning: alphanumeric value is expected CNT0…