18.08.2013 Views

(SYSLIB) Programming Reference Manual - Public Support Login ...

(SYSLIB) Programming Reference Manual - Public Support Login ...

(SYSLIB) Programming Reference Manual - Public Support Login ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

22.1.3. Example<br />

SFDT$–System Standard Format Date and Time<br />

The following example generates the packet for SFDT$ and calls SFDT$ from a MASM<br />

routine:<br />

1. $(0)<br />

2. PACKET S$FDTPKT 8,2,LINELEN,LINE<br />

3. LINELEN $EQU 7<br />

4. LINE $RES LINELEN<br />

.<br />

.<br />

.<br />

5. $(1)<br />

6. START<br />

.<br />

.<br />

.<br />

7. S$FDT$,‘CB’ PACKET . Format the date and time<br />

In this example, lines 2 through 4 generate the packet for SFDT$. Date format 8 and<br />

time format 2 are used, and the date/time string will be placed in the seven-word buffer<br />

LINE. The separator character and the offset default to a space and zero, respectively.<br />

Line 7 calls the common bank version of SFDT$ to format an ASCII string of the current<br />

date and time.<br />

7833 1733–004 22–7

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!