A message-in-a-box-and-give-the-user-choice 4gl function
Posted in 1994
---------------------------------------------- | CHOOSE: Yes No | | | | message_prompt.4gl is a really handy little | | routine which lets you create cute message | | boxes for your users, without YOU having to | | do very much thinking at all. | | | | Try it, you'll like it! | ---------------------------------------------- eg: LET l_text = "WARNING:<", "This option will delete all stock records ", "for this warehouse, are you SURE that this ", "is REALLY what you want to do?" IF message_prompt(l_text,"Yes,No")="Yes" THEN CALL delete_everything() END IF or, for when you just want to tell the user something happened: CALL message_prompt("Batch updated successfully!","") Note that a null second parameter means that nothing is returned. Enjoy! Kerry Sainsbury kerry@kcbbs.gen.nz BTW: If you have any code that hogs temporary string space you can guarantee that this routine will find it! --------------------------------------------------------------- section 1 of uuencode 4.02 of file msg_pmpt.zip by R.E.M. begin 644 msg_pmpt.zip M4$L#!!0````(`'B^;AR)2\\P@>@D``"\\B```,````35-'7U!-4%0N-$=,[5E;B M;^)(%GZ/E/]PVGF8,`UI2,CV=-3L+DV<#EH"$1!E6ZT(.78!M6V[O*YR"!K-0 M?]^ZVF4#"=/;L])*XX?$EU-??>=:IXI?`6#2ZTV@?WG!;_]^?%3SR?/S<_/L7 MI+T(`5HGY_SUA_:[YMF[5IO?PNGIQ?G[B^9[?OO;X<&O/__0Z_#@9S''%0Y1C M[$5(W(/@5>+T.RX#.%E3AB+]4@"Z68Q]!.W/`VA`CT01B>&&!%F(]@.\\S=*$" M4%0`7F*:A-X:&'IF@&/PX)$\\@Q<'$"(&&44I^$LBAG@QD(1A/J$-.$8L2V-:! M`(Z4C!E)7R&VP;";L25)+97_@=)T#1/XO9<!O/08@OL4,X9B"=ALOVLUWWTXE M^U[`@4<9])9>O$"*X?=>!O"'71*P^5ZKEQNN`3=>@,`G_,_<2R$B*8(4-3+JN M/88('M=`DY#;!\\<+P#$C>S"DW.W);+5*O40&2XR>F7Z<9[$O0H">[&)X^F&3V MX;67!IR3"J85X@1CPF!%TF^"%<6QC\\![)$^(LP^J@!RMU:H`]N=`XG!M8A935 M<-QGS)PZ!"3^B>FYP(,G+\\RL(/U#G/)CK]\\.#PX/CMY`A"CU%FB6I"1*V'$XM M$TE<AW`6H3B;^22*N&MH#<;N]&X\\[`\\_\\T_^DF`?R>'"2CK]N7'4:$?5@!6.L M`[+B!FQ0/T4HKDLGJWDHL"62^:U1`!B!R/O&'00*'N9<DC^EPG>"#(28,D@\\I M2E$`'A6"@ETC0"&.&`IR),K$F!.8\\BE,(.5A8>;]B0)%(9(?3\\10.1PM+F#@@ M3D$I`AUP[KM2ZXN/3CV?H'0YTR6F)D)6.`R!$T*,*\\)O*2/^-SZW3]*`VV<7/ MQ)RDG!B'67DI6A+.CQLK1;`F&4SNQB[_Z#$EL1.#?QN[W<'@"ZR$L!BZ\\F(FB M[!J0OSGYJ/[5#I\\[7Q"M#XE3ZX@[!Z;7[M">J\\?!M6XS](32-><3+XYKN8P[@ MO.3H\\I&D%_EK.:XRI?/)8_X2LB3PN.>`9K[/!>99&*[?.'7'J1F/2)3A:.I># MP`0AO1;^Y:2]("",YL70C_E-A)^A?=($3HL*/Y"YLE9*,H9CI)&4'MJW(&-WP M*FZ%B?02AF,=MR>YO'4U9$PY'QWPEU[J^0REHBC@F-\\D*6(F,/G'H*$B;@>.V M)L$'^UF:HIB%:PAQA`4$I_-+LUE,02WJ)B'URBUON3SG[B-!/L^6.LB\\D("/> M:Y4J=!L7D$%OG`\\+_(2*+`&V(CJVMPYN0!=B[C61^IH:AT`Q2KE?J7"/*I@:Y M8SO$2)38<S.-\\%W+UAXB[I='I'0,N)+;M1"4<Q*F!MB64U7%.%'$FFI89*P@, MJ\\YHR=P&L@,12#(8K57+JI8K'+!EN4H&*&%+E04-F"!&(4O`@Y#P>>3$BJ.,_ MXQ5)@X:`3,2;%1:I95!-(A46*>I5L60>ER<7.2%22Q(T)$R?I3[*4!,\\0ARC% M.K>PF%K/:9M?V<>PT(&KN>MJS$C)+#5!4)J^J*?2&M"IF$\\80P+.%&`=VLU:: M[K2KT1@P']."Z<@R:.YRA5RH2F;MYJQ@KC$Y@&TF&^!VW!\\6$"]@Y(-$C>.T3 MI'Z7[E5_Z/*745%1`'K7W?'Q+\\UFK7YXD$\\4:;/*:W+3'0SXQ&4!FA#=`><"P M_/OAP=7=L#?MCX:[5^I\\D;8H645N!R6KEFB)\\ZJ`"`R-HR&J"":GM$"K*O"*K MUB8L7A#P2;[KV2Z0DM5+`ABLJS"LE.A?V5;H3V!X-QCH=<^.L%RDH\\N9_&R6F M._F@!)6Z'3AORNX*>E[H9Z'8.R@]R5SLC$Y.3DJCMJ=&N;)L$3=W;^&L!"<L_ MU@'N++G,Z,+T#DXM$6$S+G*J1"2,%I%"HUMW"/?]X>7H'B*Z$)NYKAZFXBV4U M8O?]Z77.8CRZG^1TH3<:W-T,)U*L.YV.^Y_NIN[QI]'XTAW7X8L[&(SN:S*\\& MC_+=HXYO69-VF<C<-83.%774F^TUP_9F$=7EP@!&[+(_N1UTOY1$"_U;ED+#; MT?BF.ZB5\\14;]?\\MM/)8D65#*#PPFV+5@);ZW7P5JEI`"W7,<<#LR4NQ$#PN) M%0"1B8/1Q*VX;VO`OS'A7`IYM8I87;X5ZE(-78\\$I%6=7@[>U^H2?SA2O9BN1 MV8R()3^ORZ\\6%9`(]_*+7M"YWJ^6&C7LTB3GMF&A&;0Q;(#BA1J'8H939*_JU MY1*%F%%;E<F:Y=HHKQKY>I]_48,ZVFI;\\J%9BI%0P4A:QVITS4*3*TQ'1^3]` M=7_@FI<?.WIT)9(-[R+J*,N"M7QY7`G[S;)4A+Z<;!>3G:KFD:B3^(7H*R_PT M+T1;Z^S4-G[XJGXY"46KRB%GL!W`8E)=3`43%?<3'"]"$^PHD/V82`"2L21CY MI4A"FTV"#D97[*T)Q>J@(MX9B\\MD8S4$A7!=;%H*I&/GHU-39>L*IY1!2,@W< MM?6"U1(SU*")V'IPNH@SD$VXH$]B6<"*/DYS[QCOO\\T#?SHR[R93]Q8:+8NOQ MV*Q*HWU5XQ\\Z#I3+E6[+_MF?RFG`>F^J5J5SLY#EK'_M&'("UP(]@A[)PD`>4 M(LTQUZZD<ATHL293T;1+1P'VKXS*6I\\`F<^EM<A<-OXVPX*O,AIW5PXG%S0K' M`J3/GI#<4VBG6!M/>51G.:%BS67";?G1*>G,?4PRS@NS\\KBJ>I+6YO<R-CC;2 M7;2O@S87:XVOK%'7=![$PB&V^N(0)DM5W)>3QT;,:X]6QE0I.]/S.5\\L.2^ON MPR;Q2^WGSBZUM,J\\(.7';`\\INM>,5O=OU<?R'B#T9B1AT!V/NU^^GC_`Z&I;= MGU_:!]BUMB(E3Q3SGS8L*;N^!(BA-!(E9+7$_C(_%?#D<?._,YRB8*,WBEEI4 M-5$F*+]1:^/`'7Z>7F^T3)6F,2Q:QE+']!77\\4/'J6]4(#F%M-57R>9!!E@^1 MC/.I`VZT'C;JA8A$;`=A12?UW_INI8R=+_L0D'H]E#I!9;<M.Y["51UP;MS)_ MI/O9U;N>P<1]07;B#MS>M+Q!`IF#1^K8A80A68D.3_Z2@"E0$B%YDJ@..?NJ- MU(KS14#1HY>F'J7R9.`Q8X#93_(<*D;BO-#C,KA\\TB<0%T1WD`E*Q:(**Q2&4 MH,Y8U9%.$4"]KE;G7M3!<BCQZ\\8=WMDJFO>]T<U-EZNG;=YZL,MAI6'/9>S*& M)XJA`+?]JIXWV9S^S]E4`$_W`#S=4SU3CTL:GOW_:U@!/-L#\\.R_,5G[3Y.]S M!MC>`[#]W5EY_J<#_G@'5`#/]P`\\WS^KQ(-:`,I;/7/R4>[^_@-02P$"%``4K M````"`!XOFX<B4O,('H)```O(@``#``````````!`"``````````35-'7U!-( <4%0N-$=,4$L%!@`````!``$`.@```*0)````````1 `` end sum -r/size 33186/3601 section (from "begin" to "end") sum -r/size 35210/2548 entire input file