Function VSAM150: Evaluate *CENTRAL_DATETIME
Name: VSAM150
Description: The following RDML function is used to evaluate system variable *CENTRAL_DATETIME.
Special Note: You should check this function into your iSeries development environment and compile it after creating and compiling it in your Visual LANSA environment.
FUNCTION OPTIONS(*HEAVYUSAGE *DIRECT *MLOPTIMIZE *ALP_SYSTEM_VARIABLE);
********** COMMENT(This RDML function evaluates the system variable);
********** COMMENT(*CENTRAL_TIME);
DEFINE FIELD(#BRETCODE) TYPE(*CHAR) LENGTH(2) DESC('BIF Return Code');
IF COND('*Data_Tier = YES');
CHANGE FIELD(#SYSVAR$AV) TO(*DATETIMEC);
ELSE;
USE BUILTIN(CALL_SERVER_FUNCTION) WITH_ARGS(*DATA_TIER VSAM149 N Y) TO_GET(#BRETCODE);
ENDIF;
RETURN;
Name: VSAM150
Description: The following RDML function is used to evaluate system variable *CENTRAL_DATETIME.
Special Note: You should check this function into your iSeries development environment and compile it after creating and compiling it in your Visual LANSA environment.
FUNCTION OPTIONS(*HEAVYUSAGE *DIRECT *MLOPTIMIZE *ALP_SYSTEM_VARIABLE);
********** COMMENT(This RDML function evaluates the system variable);
********** COMMENT(*CENTRAL_TIME);
DEFINE FIELD(#BRETCODE) TYPE(*CHAR) LENGTH(2) DESC('BIF Return Code');
IF COND('*Data_Tier = YES');
CHANGE FIELD(#SYSVAR$AV) TO(*DATETIMEC);
ELSE;
USE BUILTIN(CALL_SERVER_FUNCTION) WITH_ARGS(*DATA_TIER VSAM149 N Y) TO_GET(#BRETCODE);
ENDIF;
RETURN;