DILIBF ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;24JULY2015
Source file <DILIBF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HTFM(%H,%F) | ;$H to FM
|
|
FMTH(X,%F) | ;FM to $H
|
|
H | ;
|
|
HTE(%H,%F) | ;$H to external
|
|
FMTE(Y,%F) | ;FM to external
|
|
T2 | ||
DOW(X,Y) | ;Day of Week
|
|
FMDIFF(X1,X2,X3) | ;FM diff in two dates in days if x3=1 seconds if x3=2.
|
|
D2 | ||
HDIFF(X1,X2,X3) | ;$H diff in two dates, X3 same as FMDIFF.
|
|
HADD(X,D,H,M,S) | ;Add to $H date
|
|
A2 | ||
FMADD(X,D,H,M,S) | ;Add to FM date
|
|
CONVQQ(X) | ; CONVERT SINGLE TO DOUBLE QUOTES IN STRING X
|
|
CONVQ(X) | ; CONVERT DOUBLE TO SINGLE QUOTES IN STRING X
|
|
QUOTE(X) | ; PUT QUOTES AROUND STRING
|
|
FNO(X) | ; gets a subfile's top level file number
|
|
GLO(Z) | ; gets the file number from a global root
|
|
UP(X) | ; convert string X to uppercase
|
|
ROUEXIST(X) | ; Execute routine existence test
|
|
QRER | ||
F5 | ;
|
|
F1 | ||
TM | ||
M | ;; Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
|
|
MU | ;; JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC
|
|
F2 | ||
F3 | ||
F4 | ||
F6 | ||
F7 | ||
HKERR(DIFILE,DIIENS,DIFLD,DIHOOK) | ;
|
|
FILENUM(DIGREF) | ;Return file/subfile number from open global reference
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ROUEXIST+2 |
^DD( | FNO+3, FILENUM+11 |
^DD("OS" - [#.7] | ROUEXIST+3 |
^DIC - [#1] | FNO+2, FNO+4 |
Name | Field # of Occurrence |
---|---|
^("TEST" | ROUEXIST+2 |
^(18 | ROUEXIST+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | HTFM+1~, HTFM+3*, HTFM+4, HTFM+5*, HTFM+6*, HTFM+7, H+1~, H+8*, H+9, H+12 , D2+2*, D2+3, D2+4*, D2+5 |
%D | HTFM+1~, HTFM+4*, HTFM+5, H+1~, H+2*, H+7, H+8, DOW+1~ |
%F | HTFM~, HTFM+1*, HTFM+7, FMTH~, FMTH+1*, HTE~, HTE+1*, FMTE~, FMTE+1*, T2 , F1, TM, TM+1, TM+2 |
%H | HTFM~, HTFM+2*, HTFM+3, HTFM+5, FMTH+1~*, H+1*, H+7*, H+9*, H+10*, H+11* , H+12, HTE~, HTE+1, DOW+1~, FMDIFF+1~, D2, HDIFF+1~*, HADD+1~*, A2*, A2+1* , FMADD+1~* |
%M | HTFM+1~, HTFM+4*, HTFM+5, H+1~, H+2*, H+5, H+7, H+8, DOW+1~ |
%R | HTE+1~, FMTE+2~, T2, F1*, TM+1*, TM+2*, F2*, F3*, F4*, F6* , F7* |
%T | H+1~, H+3*, H+10*, H+11, HTE+1~, FMTE+2~, T2*, DOW+1~, HDIFF+1~, HADD+1~* , A2*, A2+1*, FMADD+1~*, TM, TM+1, TM+2 |
%Y | HTFM+1~, HTFM+3*, HTFM+4, HTFM+5, FMTH+1~, H+1*, H+2*, H+5, H+8*, H+9 , H+12*, DOW+1~, DOW+2, FMDIFF+1~ |
A | UP+3~, UP+4* |
B | UP+3~, UP+4* |
C | UP+3~*, UP+4*, UP+5 |
D | HADD~, A2, FMADD~, CONVQ+1~*, CONVQ+2 |
DIEXT | HKERR+1~, HKERR+6 |
DIEXT("FIELD" | HKERR+3* |
DIEXT("FILE" | HKERR+2* |
DIEXT("IENS" | HKERR+4* |
DIEXT(1 | HKERR+5* |
DIFILE | HKERR~, HKERR+2, FILENUM+3~, FILENUM+4*, FILENUM+11*, FILENUM+12 |
DIFLD | HKERR~, HKERR+3 |
DIGREF | FILENUM~, FILENUM+1, FILENUM+2, FILENUM+4, FILENUM+5*, FILENUM+6 |
DIHOOK | HKERR~, HKERR+5, HKERR+6 |
DIIENS | HKERR~, HKERR+4 |
DILEAP | H+4~, H+6*, H+9 |
DISYS | ROUEXIST+1~, ROUEXIST+3 |
DUZ("LANG" | FMTE+1, UP+1 |
F | CONVQQ+1~, CONVQQ+2*, CONVQ+1~, CONVQ+2*, FILENUM+3~, FILENUM+8*, FILENUM+9*, FILENUM+10*, FILENUM+11* |
H | HADD~, A2, FMADD~ |
L | UP+3~, UP+4* |
M | HADD~, A2, FMADD~ |
Q | CONVQQ+1~*, CONVQQ+2, CONVQ+1~*, CONVQ+2 |
S | HADD~, A2, FMADD~, FILENUM+3~, FILENUM+10* |
U | GLO+3, FILENUM+4, FILENUM+10, FILENUM+11 |
X | HTFM+1~, HTFM+5*, HTFM+7*, FMTH~, H+1, H+2, H+3, DOW~, FMDIFF+1~*, D2* , D2+2*, D2+3*, D2+4*, D2+5*, D2+7, HDIFF+1~, HADD~, HADD+1, FMADD~, FMADD+1 , CONVQQ~, CONVQQ+2*, CONVQQ+3, CONVQ~, CONVQ+2*, CONVQ+3, QUOTE~, QUOTE+1*, FNO~, FNO+1* , FNO+2, FNO+3, FNO+4!, FNO+5*, UP~, UP+1, UP+2, UP+4, ROUEXIST~, ROUEXIST+1 , FILENUM+3~, FILENUM+6*, FILENUM+7*, FILENUM+8, FILENUM+9, FILENUM+10, FILENUM+11* |
X( | FILENUM+6*, FILENUM+8, FILENUM+9, FILENUM+10, FILENUM+11 |
X("" | FILENUM+7 |
X1 | FMDIFF~, FMDIFF+1*, D2, HDIFF~, HDIFF+1* |
X1(1 | FMDIFF+1*, D2, HDIFF+1* |
X2 | FMDIFF~, FMDIFF+1, HDIFF~, HDIFF+1 |
X3 | FMDIFF~, FMDIFF+1*, D2, D2+1, HDIFF~, HDIFF+1* |
Y | H+5~*, H+6, HTE+1~*, FMTE~, FMTE+1, T2, DOW~, DOW+1, FNO+1~, FNO+3* , FNO+4, FNO+5, FNO+7, GLO+2~, GLO+3*, GLO+4, F1, F2, F3, F4 , F6, F7 |
Z | GLO~, GLO+1, GLO+3 |