Datastamps are unique identifiers that can be assigned to files whenever any ON statement (other than ON DATA) is executed.
Calculating Datastamps
Example 1
A Datastamp is not calculated for ON DDNAME because the DATASTAMP parameter is blank in the ON statement.
Figure 240 ON Statement DATASTAMP Parameter – Example 1
LIBRARY : CTBP.PROD.RULES RULE : CALCSTAM
COMMAND ===> SCROLL===> CRSR
+-------------------------------------------------------------------------------+
OWNER N43 GROUP ACCOUNTING
UPDATED 08/08/00 - 13:25:57 BY M43
DESC
OPTIONS
==============================================================================
EXECUTE NOCOMPAR UPON C
ON DDNAME DDNAME ACCTENTR
MODE DS LINECT DATASTAMP 2
WHEN LINE 010 - 010 COL 015 - 025 STOP AND/OR
STRING = TOTAL:
DO EXTRACT = MTOTAL
LEVEL LINE +000 COL 0027 - 0040 PROCESS BKUNPK TYP
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===========================================================================
EXECUTE UPON C
ON
PLEASE FILL IN RULE DEFINITION. 13.32.52
Example 2
A unique DATASTAMP is calculated by the new method because DATASTAMP 2 is specified in the ON statement.
Figure 241 ON Statement DATASTAMP Parameter – Example 2
LIBRARY : CTBP.PROD.RULES RULE : ORIGINAL
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------------------+
OWNER N43 GROUP ACCOUNTING
UPDATED 08/08/00 - 13:25:57 BY M43
DESC
OPTIONS
=============================================================================
EXECUTE DOCOMPAR UPON C
ON DDNAME DDNAME ACCTENTR
MODE DS LINECT DATASTAMP 2 2
WHEN LINE 010 - 010 COL 015 - 025 STOP AND/OR
STRING = TOTAL:
DO EXTRACT = MTOTAL
LEVEL LINE +000 COL 0027 - 0040 PROCESS BKUNPK TYP
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===============================================================================
EXECUTE SAMEFILE UPON C
ON DATA
IF DATASTAMP(DOCOMPAR)=DB_LASTCOMPARE C
DO PRINT = THE FILES ARE THE SAME F C
DO
ELSE
DO PRINT = THE FILES ARE NOT THE SAME F C
DO
(ENTER "ALWAYS", "IF")
===============================================================================
EXECUTE UPON C
ON
PLEASE FILL IN RULE DEFINITION. 13.32.52
Example 3
A unique DATASTAMP is calculated by the original method because DATASTAMP 1 is specified in the ON statement.
Figure 242 ON Statement DATASTAMP Parameter – Example 3
LIBRARY : CTBP.PROD.RULES RULE : ORIGINAL
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------------------+
OWNER N43 GROUP ACCOUNTING
UPDATED 08/08/00 - 13:25:57 BY M43
DESC
OPTIONS
================================================================================
EXECUTE DOCOMPAR UPON C
ON DDNAME DDNAME ACCTENTR
MODE DS LINECT DATASTAMP 1
WHEN LINE 010 - 010 COL 015 - 025 STOP AND/OR
STRING = TOTAL:
DO EXTRACT = MTOTAL
LEVEL LINE +000 COL 0027 - 0040 PROCESS BKUNPK TYP
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===============================================================================
EXECUTE SAMEFILE UPON C
ON DATA
IF DATASTAMP(DOCOMPAR)=DB_LASTCOMPARE C
DO PRINT = THE FILES ARE THE SAME F C
DO
ELSE
DO PRINT = THE FILES ARE NOT THE SAME F C
DO
(ENTER "ALWAYS", "IF")
===============================================================================
EXECUTE UPON C
ON
PLEASE FILL IN RULE DEFINITION. 13.32.52
Parent Topic |