Re: Goto Tag in Free Form
Good point. I should probably create a generic shell to work from as well.
thanks for the comp
Good point. I should probably create a generic shell to work from as well.
thanks for the comp
* Standard definitions. /COPY *LIBL/QSRC,STDDFN
***************************** * /COPY MEMBER FOR STANDARD BMA DEFINITIONS *--------------------------------------------- * Function Key Definitions D @F01 C x'31' D @F02 C x'32' D @F03 C x'33' (etc) * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * Processing Modes & Return Values D @Add C 'Add ' D @Cancel C 'Cancel ' D @Delete C 'Delete ' D @Exit C 'Exit ' D @Update C 'Update ' D @View C 'View '
H DEBUG H Option(*srcstmt : *nodebugio) h dftactgrp(*no) h actgrp('ECOFIT') h usrprf(*owner) h bnddir('CHANGEFIT') Hdatfmt(*ISO) Htimfmt(*HMS) hcopyright ('©2006-2008 Ecofit Ltd. No part of the software or manual - hmay be reverse-engineered, reproduced, transmitted in any form - hor means, i.a. electronic, mechanical, digital, including - hphotocopying, recording, or by any information storage and retrieval - hsystem.')
/COPY ecocpysrc,hbndrpg
Example 5-4 Calculate and display the order totals per year by using a SQL view FOrdTotYr IF E DISK *----------------------------------------------------------------------------------------- D DspText S 50A *----------------------------------------------------------------------------------------- /Free SetLL *Start OrdTotYr; DoU %EOF(OrdTotYr); Read OrdTotYrF; If %EOF; leave; <------------------------------------ EndIf; DspText = %Char(OrdYear) + ' ' + %Char(TotYear); Dsply DspText; EndDo; Return; /End-Free
Example 5-4 Calculate and display the order totals per year by using a SQL view FOrdTotYr IF E DISK *----------------------------------------------------------------------------------------- D DspText S 50A *----------------------------------------------------------------------------------------- /Free SetLL *Start OrdTotYr; DoU %EOF(OrdTotYr); Read OrdTotYrF; If %EOF; leave; <------------------------------------ EndIf; DspText = %Char(OrdYear) + ' ' + %Char(TotYear); Dsply DspText; EndDo; Return; /End-Free
/Free SetLL *Start OrdTotYr; DoU %EOF(OrdTotYr); Read OrdTotYrF; [B]If not %EOF[/B]; DspText = %Char(OrdYear) + ' ' + %Char(TotYear); Dsply DspText; [B]Endif[/B]; EndDo; Return; /End-Free
Comment