COBOL新手的问题

Question

本帖最后由 DARKBLUEWORLD 于 2010-12-08 10:48 编辑

77  IND-OFF                        PIC   1     VALUE B"0".
77  IND-ON                         PIC   1     VALUE B"1".

在这两句中，PIC后边的那个‘1’是什么意思啊，为什么要写？在PIC子句介绍中没有关于那个‘1’的介绍

Answer 1

PIC 1. 中的1 相当于 PIC 9. 中的9表示定义的类型
9 表示为10进制
1 表示为2进制, 所以后面的 value 以B'0'/B'1'标识,通常配合DSPF使用,作为开关用于各中标志位的判断.
B'0' OFF
B'1' ON

e.g.

01  M2201-INDICATORS.                                       
    10  M2201-SC-FR-IND        PIC 1 VALUE ZERO INDICATOR 1.
    10  M2201-SC-TO-IND        PIC 1 VALUE ZERO INDICATOR 2.
    10  M2201-OPTION-IND       PIC 1 VALUE ZERO INDICATOR 3.
    10  M2201-CSOPTION-IND     PIC 1 VALUE ZERO INDICATOR 4.
    10  M2201-ERR-MSG-IND      PIC 1 VALUE ZERO INDICATOR 98.
    10  M2201-CNTL-CODE-IND    PIC 1 VALUE ZERO INDICATOR 99.

//设置各个标志位
   
WRITE GPS221-REC  FROM  M2201-OUT-REC            
                  FORMAT  IS  'GPM2201'           
                  INDICATORS ARE M2201-INDICATORS.

Answer 2

转行了？呵呵

Answer 3

不明白

Answer 4

{:3_200:}学习

Answer 5

应该是长度。
等于RPG里的*ON和*OFF