home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powpsbtn.ocb < prev    next >
Text File  |  1995-12-19  |  611b  |  15 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWPSBTN.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CLASS        SECTION.
  5. 000050     INHERIT POWFUND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  6. 000060 DATA        DIVISION.
  7. 000070 CLASS        SECTION.
  8. 000080    01 POW-DEFAULT    PIC S9(4) COMP-5.
  9. 000090 PROCEDURE    DIVISION.
  10. 000100*       FUNCTION MOVE OF POW-DEFBUTTON (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  11. 000110*            REPLACING NAME BY "XPOWPSBTNSETDEFAULT" .
  12. 000120       FUNCTION REFERENCE OF POW-DEFBUTTON () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  13. 000130            REPLACING NAME BY "XPOWPSBTNGETDEFAULT" .
  14. 000140 END CLASS POWPSBTN.
  15.