DICATTDM ;SFISC/GFT - SUBSCRIPT AND PIECE-POSITION FOR STORAGE OF SINGLE-VALUED DATA IN SCREENMAN ;23JUN2017
Source file <DICATTDM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SUBDEF | ;EXECUTABLE DEFAULT for FIELD 16 (SUBSCRIPT)
|
|
NXT | ||
PIECDEF | ;
|
|
P(Y) | ;given SUBSCRIPT Y, return PIECE prompt
|
|
PC | ||
SUBHELP | ;
|
|
CHKSUB(X,DISHORT) | ;used as INPUT TRANSFORM for Fields 16 (SUBSCRIPT) & 76 (MUL SUBSCRIPT) X is the subscript name. DISHORT says 'don't go beyond 250'
|
|
MAX(L,Y) | ;given L=length of new data, Y=subscript name
|
|
CHKPIEC(P) | ;
|
|
USED | ||
PIECHELP | ;
|
|
POST | ;POST-ACTION of Page 3
|
|
H(%) | ||
G(I) |