01 WW-INT-DATE PIC 9(08) VALUE ZEROES. COMPUTE WW-INT-DATE = FUNCTION INTEGER-OF-DATE(WW-CURR-DATE-1) DISPLAY ‘INT DATE–>’WW-INT-DATE Output : INT DATE–>00000002 6. INTEGER-OF-DAY It finds the integer value of a given date. It is same as above but the input format is di...
ACCEPT DATA1 FROM DATE SET DATA2 TO 930217 MOVE FUNCTION INTEGER-OF-DATE (DATA1) TO INTEIRO-1 *> wrong convertion? MOVE FUNCTION INTEGER-OF-DATE (DATA2) TO INTEIRO-2 COMPUTE DIAS = INTEIRO-2 - INTEIRO-1 DISPLAY X"0A"DATA1 " " DATA2 SET INTEIRO-1 TO FUNCTION INTEGER-OF-DATE(DATA...
CURRENT-DATE, DATE-OF-INTEGER, DATE-TO-YYYYMMDD, DATEVAL, DAY-OF-INTEGER, DAY-TO-YYYYDDD， DISPLAY-OF，INTEGER-OF-DATE, INTEGER-OF-DAY, NATIONAL-OF,YEAR-TO-YYYY, YEARWINDOW：: 日期相关函数 MEAN,MEDIAN, MIDRANGE： 取中间值 LENGTH： 参数长度 VARIANCE： 参数差异度 SIN, COS，TAN, ...
日期时间函数:COBOL提供了多种处理日期和时间的函数,如DATE-OF-INTEGER、TIME-OF-DAY等。 应用场景:主要用于金融交易系统、库存管理系统、人力资源管理系统等需要精确处理日期和时间的场景。 是否支持格式化的函数-datetime: Enterprise COBOL确实支持格式化日期和时间的功能。虽然COBOL标准库中没有直接名为function-...
COMPUTE DAYS = FUNCTION INTEGER-OF (DATE2 - DATE1). 8. COBOL中如何调用其他程序? COBOL中可以使用CALL语句来调用其他程序。下面是一个调用其他COBOL程序的例子: CALL 'PROGRAM-NAME' USING PARAMETER-LIST. 9. COBOL中如何进行文件的写入操作? COBOL提供了WRITE语句用于将数据记录写入文件。以下是一个示例: ...
INTEGER-OF-DATE,INTEGER-OF-DAY,NATIONAL-OF,YEAR-TO-YYYY, YEARWINDOW::日期相关函数 MEAN,MEDIAN,MIDRANGE:取中间值 LENGTH:参数长度 VARIANCE:参数差异度 SIN,COS,TAN,ACOS,ASIN,ATAN,:三角与反三角函数 SQRT:平方根 STANDARD-DEVIATION:标准差 LOG,LOG10:对数 ...
MOVE FUNCTION SUM(X, Y, Z) TO SUM-XYZ. 日期函数 例子 结果 FUNCTION CURRENT-DATE ‘2005100709052100+0800’ FUNCTION DATE-OF-INTEGER(145732) 20000101 FUNCTION DAY-OF-INTEGER(145732) 2000001 FUNCTION INTEGER-OF-DATE(19980721) 145203 FUNCTION INTEGER-OF-DAY(1998054) 145055 ...
COBOL算术运算 COBOLforMainframeFundamentals Ch4COBOL算术运算 算术运算语句 ADDSUBTRACTMULTIPLYDIVIDECOMPUTE ADD语句1 语法1:ADDidentifier-1(orLiterals),identifier-2,…TOidentifier-n,…[ROUNDED][ONSIZEERRORstatement-1][NOTONSIZEERRORstatement-2][END-ADD]例子:ADDNUM1 TONUM2.ADDNUM1,10 TONUM2,NUM3.AD...
INTEGER-OF-FORMATTED-DATE SECONDS-FROM-FORMATTED-TIME SECONDS-PAST-MIDNIGHT TEST-DATE-YYYYMMDD TEST-DAY-YYYYDDD TEST-FORMATTED-DATETIME INVALID KEY 句適用可能な USE ステートメントがない場合、INVALID KEY 句を指定する必要はありません。
CBL LIB,QUOTE *Module/File Name: IGZTCBLD *** ** ** ** Function: Invoke CEECBLDY callable service ** ** to convert date to COBOL Integer format. ** ** This service is used when using the ** ** Lang. Environ. Century Window ** ** mixed with COBOL Intrinsic Functions. ** **...