home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powlist.ocb < prev    next >
Text File  |  1996-01-29  |  4KB  |  59 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWLIST.
  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-SORT            PIC S9(4)  COMP-5.
  9. 000090    01 POW-SELECT        PIC S9(4)  COMP-5.
  10. 000100    01 POW-COUNT        PIC S9(4)  COMP-5.
  11. 000110    01 POW-STRING        PIC X(64).
  12. 000120    01 POW-SELSTRING    PIC X(64).
  13. 000130*    01 TEXTGROUP.
  14. 000140*        02 POW-LIST        PIC X(64) OCCURS 10000 TIMES.
  15. 000150 PROCEDURE    DIVISION.
  16. 000160       FUNCTION MOVE OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  17. 000170            REPLACING NAME BY "XPOWLISTSETSELECT" .
  18. 000180       FUNCTION REFERENCE OF POW-SELECT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  19. 000190            REPLACING NAME BY "XPOWLISTGETSELECT" .
  20. 000200       FUNCTION REFERENCE OF POW-COUNT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  21. 000210            REPLACING NAME BY "XPOWLISTGETCOUNT" .
  22. 000220       FUNCTION ADDSTRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(64)) IS EXTERNAL
  23. 000230            REPLACING NAME BY "XPOWLISTADDSTRING" .
  24. 000240       FUNCTION DELETESTRING (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  25. 000250            REPLACING NAME BY "XPOWLISTDELSTRING" .
  26. 000260       FUNCTION REFERENCE OF POW-STRING (INDEXED) IS EXTERNAL BY VALUE PIC X(64)
  27. 000270            REPLACING NAME BY "XPOWLISTGETSTRING" .
  28. 000280       FUNCTION REFERENCE OF POW-SELSTRING () IS EXTERNAL BY VALUE PIC X(64)
  29. 000290            REPLACING NAME BY "XPOWLISTGETSELSTRING" .
  30. 000300       FUNCTION MOVE OF POW-ADDSTRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(64)) IS EXTERNAL
  31. 000310            REPLACING NAME BY "XPOWLISTADDSTRING" .
  32. 000320       FUNCTION MOVE OF POW-DELETESTRING (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  33. 000330            REPLACING NAME BY "XPOWLISTDELSTRING" .
  34. 000340       FUNCTION ADD OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  35. 000350            REPLACING NAME BY "XPOWLISTADDSELECT" .
  36. 000360       FUNCTION SUBTRACT OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  37. 000370            REPLACING NAME BY "XPOWLISTSUBTRACTSELECT" .
  38. 000380       FUNCTION INSERTSTRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(64) BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  39. 000390            REPLACING NAME BY "XPOWLISTINSERTSTRING" .
  40. 000400       FUNCTION CLEARLIST () IS EXTERNAL
  41. 000410            REPLACING NAME BY "XPOWLISTRESETCONTENT" .
  42. 000420       FUNCTION FINDSTRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(64) BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  43. 000430            REPLACING NAME BY "XPOWLISTFINDSTRING" .
  44. 000440       FUNCTION MOVE OF POW-SELFLAG (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  45. 000450            REPLACING NAME BY "XPOWLISTSETSELFLAG" .
  46. 000460       FUNCTION REFERENCE OF POW-SELFLAG (INDEXED) IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  47. 000470            REPLACING NAME BY "XPOWLISTGETSELFLAG" .
  48. 001010       FUNCTION LOADFILE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  49. 001020            REPLACING NAME BY "XPOWLISTOPENFILE" .
  50. 001030       FUNCTION SAVEFILE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  51. 001040            REPLACING NAME BY "XPOWLISTSAVEFILE" .
  52. 001050       FUNCTION ADDSTRING256 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)) IS EXTERNAL
  53. 001060            REPLACING NAME BY "XPOWLISTADDSTRING256" .
  54. 001070       FUNCTION REFERENCE OF POW-STRING256 (INDEXED) IS EXTERNAL BY VALUE PIC X(256)
  55. 001080            REPLACING NAME BY "XPOWLISTGETSTRING256" .
  56. 001090       FUNCTION REFERENCE OF POW-SELSTRING256 () IS EXTERNAL BY VALUE PIC X(256)
  57. 001100            REPLACING NAME BY "XPOWLISTGETSELSTRING256" .
  58. 001110 END CLASS POWLIST.
  59.