PowerCOBOL V11.0 Reference

6.4.1 BeforeClick Sample Code

 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGESECTION.
 01 WK-INDEXPIC S9(9).
 LINKAGE SECTION.
 01 POW-PAGEOLDINDEXPIC S9(9) COMP-5.
 01 POW-PAGECANCELPIC S9(4) COMP-5.
 PROCEDURE DIVISION USING POW-PAGEOLDINDEX POW-PAGECANCEL.
EVALUATE POW-PAGEOLDINDEX
WHEN 1
  IF "Value" OF CmOption2 NOT = 0 
         AND "Text" OF CmText1 = SPACE THEN
      MOVE POW-TRUE TO POW-PAGECANCEL
      INVOKE CmText1 "SetFocus"
  END-IF
WHEN 2
  MOVE "Text" OF CmText2 TO I
  IF WK-INDEX <= 0 OR 100 < WK-INDEX THEN
    MOVE POW-TRUE TO POW-PAGECANCEL
    INVOKE CmText2 "SetFocus"
  END-IF
	END-EVALUATE