COBOL - 这是什么意思?

时间:2018-01-08 21:10:25

标签: mainframe

我被指派退休并更换几个COBOL程序。我不知道COBOL,并且已经在考虑程序正在做什么。这是我不理解的部分

 DTECON1,(INIT=C'F49E')                    /*LAST WORKDAY,PREV MONTH*/
 DTELAST,REDEFINES,DTECON1=(15,6)                           /*YYMMDD*/
 DTECCYM,REDEFINES,DTECON1=(13,6)                           /*CCYYMM*/
 DTEYYMM,REDEFINES,DTECON1=(15,4)
  C=(55,4:6,Y2CH,LT,DTECCYM,CH,OR,
55,1,CH,EQ,C' ',OR,                   /*DRAFT ISSUE DTE 55-60  */
56,1,CH,EQ,C' ',OR,
57,1,CH,EQ,C' ',OR,
58,1,CH,EQ,C' ',OR,
59,1,CH,EQ,C' ',OR,
60,1,CH,EQ,C' ')
 M=(DTELAST,CH,TO,55,6,CH)    /*SET TO LAST DAY OF PROCESSING MONTH*/
NOWRITE

我知道数字是文件上的字节位置。 Y2CH是用于检查Y2K的家庭功能。我理解DTELAST,DTECCYM,DTEYYMM部分。我正在努力的是CHOREQ4:6

我还假设C =和M =是变量。那些正确的假设是什么?

0 个答案:

没有答案