Question

我很想知道如何在COBOL中做一些事情。我正试图撰写一个方案,在数据档案中记录数据与产出相匹配时使用。但是,我还没有这样做,但我认为需要做的是制定不同数据类型的编码。

blue = 1
brown = 2.

因此,我试图这样做,但愿不工作。我已在主谈中宣布:

01  COLOR-IN    PIC (9)
    05    BLUE         VALUE 1.
    05    BROWN        VALUE 2.

然后,我只想写一下像发言一样的话。

IF COLOR-IN = BLUE 
   PERFORM 200-OUTPUT.

因此,我询问的是,我如何使肤色等同于数字或字母代码。我应该作什么发言。

我是这样说的。我使用了88份声明。和

88      MALE     VALUE  M .

But I have another problem. The output does list the records that meet the if statement criteria, however, I need to code in the program the actual hair and eye color so that when the program executes it prints the hair and eye color instead of 1 or 2. Can anyone give me an example or hint on how to do that?

Answer 1

+1 学习88s。它们非常有用。

A table (array) of labels that correspond to your values is what you re looking for. If you use alphabetic codes, as in your 88 MALE VALUE M case, then your table has an entry for the value and for the label.

01  INPUT-VALUE                 PIC X(1).
    88  MALE                    VALUE "M".
    88  FEMALE                  VALUE "F".

01  LABELS-AND-VALUES-AREA.
    05  LABELS-AND-VALUES.
        07  ONE-LABEL-AND-VALUE OCCURS 2.
            09  ONE-LABEL       PIC X(6).
            09  ONE-VALUE       PIC X(1).
    05      FILLER REDEFINES LABELS-AND-VALUES
                                VALUE "MALE  MFEMALEF".
01  I                           PIC S9(4) COMP.
01  DISPLAY-LABEL               PIC x(6).

    MOVE "?" TO DISPLAY-LABEL
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 2
        IF INPUT-VALUE = ONE-VALUE(I)
            MOVE ONE-LABEL(I) TO DISPLAY-LABEL
        END-IF
    END-PERFORM

如果你用数字表示你的投入价值,你就可以跳出眼光,正确打上你想要的标签。

01  INPUT-VALUE                 PIC 9(1).
    88  MALE                    VALUE "1".
    88  FEMALE                  VALUE "2".
    88  VALID-INPUT             VALUE "1", "2".

01  LABELS-AND-VALUES-AREA.
    05  LABELS-AND-VALUES.
        07  ONE-LABEL-AND-VALUE OCCURS 2.
            09  ONE-LABEL       PIC X(6).
    05      FILLER REDEFINES LABELS-AND-VALUES
                                VALUE "MALE  FEMALE".
01  DISPLAY-LABEL               PIC x(6).

   IF VALID-INPUT
       MOVE ONE-LABEL(INPUT-VALUE) TO DISPLAY-LABEL
   ELSE
       MOVE "?" TO DISPLAY-LABEL
   END-IF

就此而言,你可能希望添加一些关于缺失/未知数据的准则。

<>Update>

我增加了一些处理缺失/众所周知的数据的代码。

友情链接