DIUTL ;GFT/GFT - TIMSON'S UTILITIES;24JAN2013
Source file <DIUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NAKED(DIUTLREF) | ;The argument is evaluated and returned, while keeping the naked reference as it was!
|
|
| DATE(Y) | ;**CCO/NI RETURN A DATE
|
|
| NOWINT() | ;INTERNAL VERSION OF NOW
|
|
| NOW() | ;EXTERNAL NOW
|
|
| WP(DIRF,DIWL,DIWR,DIWPUT) | ;Write out WP field (if any) stored at DIRF, or put it in DIWPUT array
|
|
| QWP | ||
| IJ(N) | ;build I & J arrays given subfile number N
|
|
| 0 | ||
| DIVR(DI,DIFLD) | ;verify
|
|
| CHKPT(DIFILE,DIDA,DIUTLMSG,DIFLG) | ;check if any entries points to this entry(DIDA) in file (DIFILE)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|