COBOLの計算について

000370 01 WORK-AREA.
000380* (セキュリティコード)
000390 03 SC-CD.
000400 05 SC-CODE PIC 9(03).
000410* (シリアルＮＯチェック用)
000420 03 SRAL-NO.
000430 05 SRAL PIC X(01) OCCURS 13 TIMES.
000440 03 SRAL-NO-R REDEFINES SRAL-NO.
000450 05 SRAL-R PIC 9(01) OCCURS 13 TIMES.
000460 03 SRAL-NO-9 REDEFINES SRAL-NO.
000470 05 SRAL-9 PIC 9(13).

000570* (セキュリティコード計算ワーク)
000580 03 SHO PIC 9(10).
000590 03 AMARI PIC 9(03).
000600 03 WA PIC 9(02).
000610 03 SEKI PIC 9(04).

001830/*****************************************************************
001840* モジュール名　　: セキュリティコード算出 *
001860******************************************************************
001870 EDIT-SSC-SEC SECTION.
001880*
001890 EDIT-SSC-S.
001900*
001920 DIVIDE SRAL-9 BY 999 GIVING SHO REMAINDER AMARI.
001930*
001950 COMPUTE WA = SRAL-R (7) + 1.
001960*
001980 COMPUTE SEKI = AMARI * WA.
001990*
002010 MOVE SEKI TO SC-CODE.

このようなプログラムで、SRAL-NOの値が5010110061665の場合、SC-CODEの値はいくつになりますか？
よろしければ過程を教えていただけると幸いです。
よろしくお願いします。

aki.aki.

2019/03/27 12:30

まずは、ご自分で考えましょう。ここは、丸投げをするところではありません。実行環境があれば、試してみるべきです。

退会済みユーザー

2019/03/27 13:05

申し訳ありません。

行動規範の内容に同意します

回答2件

ベストアンサー

DIVIDE SRAL-9 BY 999 GIVING SHO REMAINDER AMARI.
5010110061665 ÷ 999 ＝ 5015125186 … 851
SHO：5015125186
AMARI：851

SRAL-R (1)：5
SRAL-R (2)：0
SRAL-R (3)：1
SRAL-R (4)：0
SRAL-R (5)：1
SRAL-R (6)：1
SRAL-R (7)：0
SRAL-R (8)：0
SRAL-R (9)：6
SRAL-R(10)：1
SRAL-R(11)：6
SRAL-R(12)：6
SRAL-R(13)：5
COMPUTE WA = SRAL-R (7) + 1.
SRAL-R (7)：0
WA：1

COMPUTE SEKI = AMARI * WA.
851 × 1 ＝ 851
SEKI：851

MOVE SEKI TO SC-CODE.
SC-CODE：851

投稿2019/03/27 13:00

yorozuya

総合スコア1067

退会済みユーザー

2019/03/27 13:04

SRAL-R (7)の意味がわかりました。本当に助かりました。ありがとうございます

行動規範の内容に同意します

COBOLを実行できる環境を持っている人はほとんどいませんし、COBOLコンパイラはメーカーや同じメーカーでもシリーズによって方言があるだろうし、自分で動作確認してください。

COBOL
1001920     DIVIDE  SRAL-9  BY  999  GIVING  SHO  REMAINDER  AMARI.
2           ここで SRAL-9, SHO, AMARI をDISPLAY
3001930*
4001950     COMPUTE   WA    =   SRAL-R (7)  +  1.
5           ここで SRAL-R (7), WAをDISPLAY
6001960*
7001980     COMPUTE   SEKI  =   AMARI  *  WA.
8           ここで SEKI をDISPLAY
9001990*    
10002010     MOVE  SEKI               TO  SC-CODE.