请教涵数相关

majorz

D  AAA                      S              1A
D  S_DATE                S              8   0

/ free

  
  AAA = F_XXDATG(S_DATE) ;


/end-free

(主要功能是, 提取系统日期,  并判断系统日期是否大于一个固定日期(如,20090101), 大于则返回'1', 否则为'0')
哪位大虾能够简单写下该涵数的主要代码, 本人主要是对涵数里的原形定义以及 这个AAA返回码是怎么得到的不太理解.

非常感谢!

passthru

原帖由 majorz 于 2009-6-26 11:18 发表
刚想了下,是不是如下写就可以实现了:

D f_XXDatG     PR             1      
D  s_Date                       8  0   


Pf_XxDatG      B                   Export  
df_XxDatG       PI     ...

对！

passthru

代码不全，应该还有F_XXDATG  PR   EXPROC(XXX)的程序代码。

[ 本帖最后由 passthru 于 2009-6-26 09:23 编辑 ]

majorz

原帖由 passthru 于 2009-6-26 09:21 发表
代码不全，应该还有F_XXDATG  PR   EXPROC(XXX)的程序代码。

记得以前看到过你在一个帖子中贴过一个自由格式的程序, 其中有一条语句就是类似 AAA = F_XXDATG(S_DATE) ;  ,  目前的问题就是想知道这个涵数中代码应该是什么样子的?  也想知道你上面说的原形应该怎样定义.
通常我们的PROCEDURE中原形 定义是:
                     F_XXDATG  PR   EXPROC(XXX)
                     AAA                      1
                     S_DATE                8 0
但如果是用我上面说的涵数, 则代码中原形是如何定义? 因为如果是用上面PROCE中的定义方式, 我想不可能用语句 AAA = F_XXDATG(S_DATE) ; 得到AAA 的值.

非常感谢你的回复!

[ 本帖最后由 majorz 于 2009-6-26 10:01 编辑 ]

passthru

呵呵，“我想不可能用语句 AAA = F_XXDATG(S_DATE) ; 得到AAA 的值.
”为什么不！

    F_XXDATG  PR                 AAA 1a
                     S_DATE                8 0

majorz

原帖由 passthru 于 2009-6-26 10:16 发表
呵呵，“我想不可能用语句 AAA = F_XXDATG(S_DATE) ; 得到AAA 的值.
”为什么不！

    F_XXDATG  PR                 AAA 1a
                     S_DATE                8 0

请找到这个连结:http://bbs.chinaunix.net/viewthr ... p;extra=&page=4 , 其中有你帖过的一个例子, 其中下面的一段与我说的相同: 就是其中的 RTNCOD是怎么得到的?
            //获取当前交易日期
            p_DATE = 0 ;
            RTNCOD = f_xxdatget(p_DATE) ;
            If RTNCOD <> 'XXM0000' ;
               //发送错误信息-获取当前工作日错误
               c_XXDM = BD_ERR8001 ; //信息代码
               c_XXNR = BD_DES8001 ; //信息内容
               Exsr SndErrMsg ;
            EndIf ;
其原型我想是在下面接口中定义的:
     D*日期处理函数接口定义
     D/Copy QDfnSrc,XXDATSRVH

majorz

刚想了下,是不是如下写就可以实现了:

D f_XXDatG     PR             1      
D  s_Date                       8  0   


Pf_XxDatG      B                   Export  
df_XxDatG       PI            1            
d s_Date                        8  0     

*
*
D AAA                 S              1
/Free                              
    提取系统日期;
    判断返回日期, 并赋值返回码(如: AAA=1     

    Return AAA ;      
         
/End-Free                          
Pf_XxDatG      E           

然后在其他程序中,我就可以用     AAA = F_XXDATG(S_DATE) 得到AAA的值, 这里     F_XXDATG(S_DATE) 的值就是Return AAA 返回的值.


passthru 不知道理解的对不对, 如有误, 还望大侠指正!
非常感谢.

passthru

原帖由 majorz 于 2009-6-26 10:32 发表


请找到这个连结:http://bbs.chinaunix.net/viewthr ... p;extra=&page=4 , 其中有你帖过的一个例子, 其中下面的一段与我说的相同: 就是其中的 RTNCOD是怎么得到的?
            //获取当前交 ...

这个rtncod是项目预约的，在每个callp的第三个参数，是个ds结构，在这个ds中就有rntcod。被调用的程序根据执行结果，填入相应的rntcod，返回到调用程序。

majorz

Passthru, Thanks!

passthru

welcome，