DDSCLONE ;SFISC/MKO-CLONE A FORM ;10:20 PM 10 Jul 1994
Source file <DDSCLONE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RENAME | ;Prompt for new names
|
|
QUIT | ;Cleanup
|
|
FORM() | ;Prompt for form
|
|
RENFORM | ;Rename the form
|
|
RENMSP | ;Prompt for new namespace
|
|
FORMQ | ||
DICW | ;;N %G,%Y S %Y=Y,%G=^(0) W:$X>35 ! W ?35,"#"_Y S Y=$P(%G,U,5) W:Y]"" ?43," "_$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3) S Y=$P(%G,U,4) W:Y]"" ?53," User #"_Y S Y=$P(%G,U,8) W:Y]"" ?65," File #"_Y S Y=%Y
|
|
REPORT | ;Print report
|
|
RENBLK(DDSBK) | ;Rename the blocks
|
|
NAME(NAME,ONS,NNS) | ;Replace old namespace with new
|
|
GETBLKS | ;Get all blocks on form
; ^TMP("DDSCLONE",$J,bk#)=Block name |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | RENFORM+10, RENBLK+10 |
^DIST( | GETBLKS+4, GETBLKS+5, GETBLKS+7, GETBLKS+9, GETBLKS+11, RENFORM+12, RENBLK+12 |
^TMP("DDSCLONE" | DDSCLONE+4!, QUIT+1!, GETBLKS+6, GETBLKS+7*, GETBLKS+10, GETBLKS+11*, REPORT+3, REPORT+10, REPORT+11, RENAME+10 , RENAME+11, RENAME+13*, RENAME+14*, RENBLK+12 |
Name | Line Occurrences |
---|---|
$$FORM | DDSCLONE+7 |
$$NAME | RENFORM+5, RENBLK+5 |
DICW | FORM+13 |
FORMQ | FORM+3, FORM+4 |
GETBLKS | DDSCLONE+9 |
QUIT | DDSCLONE+7, DDSCLONE+10, DDSCLONE+11, DDSCLONE+12 |
RENAME | DDSCLONE+12 |
RENBLK | RENAME+12 |
RENFORM | RENAME+6 |
RENMSP | DDSCLONE+11 |
REPORT | DDSCLONE+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DDSCLONE+3~ |
%CHK | DDSCLONE+3~ |
%RET | DDSCLONE+3~ |
%X | DDSCLONE+3~ |
%Y | DDSCLONE+3~ |
B | GETBLKS+3~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, GETBLKS+8*, GETBLKS+9*, GETBLKS+10, GETBLKS+11, REPORT+1~, REPORT+10* , REPORT+11 |
D | DDSCLONE+3~, FORM+2~, FORM+10* |
D0 | DDSCLONE+3~ |
D1 | DDSCLONE+3~ |
DA | DDSCLONE+3~ |
DDH | QUIT+3! |
DDS1 | FORM+3*! |
DDSANS | RENFORM+1~, RENFORM+2, RENFORM+5, RENFORM+7, RENFORM+8*, RENFORM+9, RENFORM+10, RENFORM+11*, RENFORM+12, RENFORM+13* , RENFORM+17, RENBLK+1~, RENBLK+2, RENBLK+5, RENBLK+7, RENBLK+8*, RENBLK+9, RENBLK+10, RENBLK+11*, RENBLK+12 , RENBLK+13*, RENBLK+17 |
DDSBK | QUIT+2!, RENAME+1~, RENAME+11*, RENAME+12, RENAME+13, RENAME+14, RENBLK~, RENBLK+3, RENBLK+5, RENBLK+17* |
DDSBKDA | QUIT+2!, RENAME+1~, RENAME+9*, RENAME+10*, RENAME+11, RENAME+13 |
DDSCOD | RENFORM+1~, RENFORM+5, RENFORM+7, RENBLK+1~, RENBLK+5, RENBLK+7 |
DDSFILE | QUIT+2!, FORM+5*, FORM+10 |
DDSFORM | DDSCLONE+7*, QUIT+2!, GETBLKS+4, GETBLKS+5, GETBLKS+9, REPORT+5, RENFORM+3, RENFORM+5, RENFORM+17* |
DDSNFRM | QUIT+2! |
DDSNNS | QUIT+2!, RENMSP+28*, RENFORM+5, RENBLK+5 |
DDSNNSP | RENMSP+11! |
DDSONS | QUIT+2!, RENMSP+20*, RENFORM+5, RENBLK+5 |
DDSONSP | RENMSP+11! |
DDSQUIT | DDSCLONE+5*, DDSCLONE+10, DDSCLONE+11, DDSCLONE+12, QUIT+2!, REPORT+3*, REPORT+16*, RENMSP+10*, RENMSP+19*, RENMSP+27* , RENAME+6, RENAME+10, RENAME+12, RENFORM+2, RENFORM+7*, RENFORM+15, RENBLK+2, RENBLK+7*, RENBLK+15 |
DI | DDSCLONE+3~ |
DIC | DDSCLONE+3~, FORM+2~, FORM+4, FORM+8!, FORM+9* |
DIC("A" | FORM+12* |
DIC("S" | FORM+11* |
DIC("W" | FORM+13* |
DIC(0 | FORM+9*, FORM+10* |
DIOVRD | DDSCLONE+3~, DDSCLONE+5* |
DIR | DDSCLONE+3~, REPORT+13!, REPORT+15!, RENMSP+3!, RENMSP+9!, RENMSP+13!, RENMSP+18!, RENMSP+22!, RENMSP+26! |
DIR("?" | RENMSP+7*, RENMSP+8*, RENMSP+17*, RENMSP+25* |
DIR("A" | RENMSP+5*, RENMSP+6*, RENMSP+16*, RENMSP+24* |
DIR("B" | RENMSP+4* |
DIR(0 | REPORT+14*, RENMSP+4*, RENMSP+15*, RENMSP+23* |
DIROUT | QUIT+3! |
DIRUT | QUIT+3!, REPORT+16, RENMSP+10, RENMSP+19, RENMSP+27 |
DIZ | DDSCLONE+3~ |
DQ | DDSCLONE+3~ |
DREF | DDSCLONE+3~ |
DTOUT | QUIT+3! |
DUOUT | QUIT+3! |
IOF | RENAME+3 |
IOSL | RENFORM+5, RENBLK+5 |
IOST | RENAME+2 |
NAME | NAME~, NAME+1, NAME+2, NAME+3 |
NNS | NAME~, NAME+1, NAME+3 |
ONS | NAME~, NAME+1, NAME+2, NAME+3 |
P | GETBLKS+3~, GETBLKS+4*, GETBLKS+5, GETBLKS+9 |
U | GETBLKS+5, GETBLKS+7, GETBLKS+11, REPORT+5, REPORT+11, RENAME+14, RENFORM+3, RENFORM+5, RENFORM+7, RENFORM+10 , RENFORM+17, RENBLK+3, RENBLK+5, RENBLK+7, RENBLK+10, RENBLK+17 |
X | DDSCLONE+3~, RENMSP+22!, RENMSP+29!, RENFORM+10*, RENFORM+11, RENBLK+10*, RENBLK+11 |
Y | DDSCLONE+3~, FORM+3, FORM+4*, FORM+5, FORMQ, RENMSP+11, RENMSP+20, RENMSP+22!, RENMSP+28, RENMSP+29! |
Name | Field # of Occurrence |
---|---|
$T(DICW | FORM+13 |