The ADT and ADC micropatterns load the system date into a constant, and possibly a field indicated in the operands. The AD6 and AD8 micropatterns, which are specific to the OnLine Systems Development and Client/Server functions, load the system date into a field indicated in the operands.
*{ADx "xxxxxx" *}where
These micropatterns can be inserted in the COBOL code of a Program, Screen, or Server with the PDP COBOL editor, or in the code of a Macro with the PDP Macro editor.
ADT calls the system date without the century. The date is loaded into the DATOR constant and possibly in the field indicated in the operands.
ADC calls the system date with the century. The date is loaded into the DATCE constant and possibly in the field indicated in the operands.
The Generated date format on the Library Definition specifies the format into which the system date will be displayed.
These micropatterns can be inserted in the COBOL code of a Screen or Server with the PDP COBOL editor.
AD6 loads the system date into the six-character date entered as the operand. The date is loaded as MMDDYY or DDMMYY, according to the value of the Generated date format on the Library Definition.
AD8 loads the system date into an eight-character date entered as the operand. The date is loaded as MM/DD/YY or DD/MM/YY, according to the value of the Generated date format on the Library Definition.