Domino Code Fragment

Code Name*
Generate Response Docs (1 at a time)		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.145.93.221
Description*
This macro generates response documents but only one at a time. It could be made to become a "looping" macro, but I advise against that since looping macros in Lotus 4 crashes Notes when run in a 16 bit environment. Anyway, see the Lotusscript version of this if you want "looping". This macro is nice because, even though it generates the response doc one at a time, it is still quicker than manually generating a response document.		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
theReminder := @Prompt([YESNO] ; "Reminder!" ; "You MUST be at the top of the view for this to work properly! Hit YES to continue, NO to cancel." );
@If(
theReminder = 0 ;
@Return("") ;
@Success
);
theFLName := @PickList([Custom]; "ftlns1/ftl/ftg" : "test\\wwcrfund.nsf"; "A. Keyword List"; "Entering Funds Library"; "Please select the new fund"; 1);
theFLNum := @DbLookup("" : "" ; "ftlns1/ftl/ftg" : "test\\wwcrfund.nsf"; "A. Keyword List"; theFLName ; 2 );
theGlobalCust := @DbLookup("" : "" ; "ftlns1/ftl/ftg" : "test\\wwcrfund.nsf"; "A. Keyword List"; theFLName ; 3 );
@Environment("FLNum" ; theFLNum);
@Environment("GlobalCust" ; theGlobalCust);
@Environment("FLName" ; theFLName);
@Command([Compose]; "(Agent Fund)");
@Command([FileSave]);
@Command([FileCloseWindow]);
@Command([NavigateNext]);
@If(
COUCountry = "Zimbabwe";
@Do(
@Environment("FLName" ; "") ;
@Environment("FLNum" ; "" ) ;
@Environment("GlobalCust" ; "")
);
""
)