home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
parsomat.zip
/
exampl19.pom
< prev
next >
Wrap
Text File
|
2001-07-15
|
2KB
|
66 lines
OUTEND |SAMPLE DATE FORMATTING, USING TODAY'S DATE AND JULY 3 1998
OUTEND |----------------------------------------------------------
SET year = "1998"
SET month = "7"
SET day = "3"
;
; In the first example, we see that the date format can be omitted, or
; can be set to null. Either method invokes the use of the default date
; format string, obtained from the POMDATE.CFG file.
;
SET format = ""
TODAY x
DATE y year month day ""
OUTEND |
OUTEND |Date Format String: Default date format
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "?n-?d-?y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "d.M.Y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "t d 'y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "(m ?d Y)"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "M/?d/Y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
;
; Since we only want this POM file to be run once (i.e. on a single input
; line), we do a NEXTFILE to stop processing the input file. We could
; have used HALT, but that would generate a "Halt Message" display,
; which we don't need.
;
NEXTFILE