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) |
