home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powmenu.ocb < prev    next >
Text File  |  1995-12-19  |  3KB  |  53 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWMENU.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070**
  8. 000080**    POW-MENUXXXXXX    DEFINE MENU ITEM
  9. 000090**
  10. 000100*     CONSTANT FOR POW-MENUBREAK
  11. 000110*
  12. 000120      POW-NOBREAK            IS 0
  13. 000130      POW-BREAK              IS 1
  14. 000140      POW-BARBREAK           IS 2
  15. 000150*
  16. 000160     .
  17. 000170 CLASS        SECTION.
  18. 000180     INHERIT POWFUND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  19. 000190    01 POW-TEXT            PIC X(256).
  20. 000200    01 POW-TEXTN        PIC N(128).
  21. 000210    01 POW-ENABLE        PIC S9(4)    COMP-5.
  22. 000220    01 POW-VISIBLE        PIC S9(4)    COMP-5.
  23. 000230    01 POW-CHECK        PIC S9(4)    COMP-5.
  24. 000240    01 POW-MENUBREAK        PIC S9(4)    COMP-5.
  25. 000250 DATA        DIVISION.
  26. 000260 CLASS        SECTION.
  27. 000270 PROCEDURE    DIVISION.
  28. 000280       FUNCTION MOVE OF POW-TEXT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)) IS EXTERNAL
  29. 000290            REPLACING NAME BY "XPOWMENUSETTEXT" .
  30. 000300       FUNCTION REFERENCE OF POW-TEXT () IS EXTERNAL BY VALUE PIC X(256)
  31. 000310            REPLACING NAME BY "XPOWMENUGETTEXT" .
  32. 000320       FUNCTION MOVE OF POW-TEXTN (BY CONTENT TYPE IS NATIONAL PIC N(128)) IS EXTERNAL
  33. 000330            REPLACING NAME BY "XPOWMENUSETTEXT" .
  34. 000340       FUNCTION REFERENCE OF POW-TEXTN () IS EXTERNAL BY VALUE PIC N(128)
  35. 000350            REPLACING NAME BY "XPOWMENUGETTEXTN" .
  36. 000360       FUNCTION MOVE OF POW-ENABLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  37. 000370            REPLACING NAME BY "XPOWMENUSETENABLE" .
  38. 000380       FUNCTION REFERENCE OF POW-ENABLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  39. 000390            REPLACING NAME BY "XPOWMENUGETENABLE" .
  40. 000400       FUNCTION MOVE OF POW-VISIBLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  41. 000410            REPLACING NAME BY "XPOWMENUSETVISIBLE" .
  42. 000420       FUNCTION REFERENCE OF POW-VISIBLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  43. 000430        REPLACING NAME BY "XPOWMENUGETVISIBLE" .
  44. 000440       FUNCTION MOVE OF POW-CHECK (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  45. 000450            REPLACING NAME BY "XPOWMENUSETCHECK" .
  46. 000460       FUNCTION REFERENCE OF POW-CHECK () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  47. 000470            REPLACING NAME BY "XPOWMENUGETCHECK" .
  48. 000480       FUNCTION MOVE OF POW-MENUBREAK (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  49. 000490            REPLACING NAME BY "XPOWMENUSETMENUBREAK" .
  50. 000500       FUNCTION REFERENCE OF POW-MENUBREAK () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  51. 000510            REPLACING NAME BY "XPOWMENUGETMENUBREAK" .
  52. 000520 END CLASS POWMENU.
  53.