home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powfile.ocb < prev    next >
Text File  |  1996-01-29  |  4KB  |  69 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWFILE.
  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-MASK            PIC X(12).
  9. 000090    01 POW-ATTR            PIC S9(4) COMP-5.
  10. 000100    01 POW-NORMAL        PIC S9(4) COMP-5.
  11. 000110    01 POW-READONLY        PIC S9(4) COMP-5.
  12. 000120    01 POW-HIDDEN        PIC S9(4) COMP-5.
  13. 000130    01 POW-SYSTEM        PIC S9(4) COMP-5.
  14. 000140    01 POW-ARCH            PIC S9(4) COMP-5.
  15. 000150    01 POW-SELECT        PIC S9(4)  COMP-5.
  16. 000160    01 POW-COUNT        PIC S9(4)  COMP-5.
  17. 000170    01 POW-SELSTRING    PIC X(64).
  18. 000180    01 POW-PATH            PIC X(260).
  19. 000190*    01 TEXTGROUP.
  20. 000200*        02 POW-LIST        PIC X(64) OCCURS 10000 TIMES.
  21. 000210 PROCEDURE    DIVISION.
  22. 000220       FUNCTION MOVE OF POW-MASK (BY CONTENT TYPE IS ALPHANUMERIC PIC X(12)) IS EXTERNAL
  23. 000230            REPLACING NAME BY "XPOWFILESETMASK" .
  24. 000240       FUNCTION REFERENCE OF POW-MASK () IS EXTERNAL BY VALUE PIC X(12)
  25. 000250            REPLACING NAME BY "XPOWFILEGETMASK" .
  26. 000260       FUNCTION MOVE OF POW-ATTR (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  27. 000270            REPLACING NAME BY "XPOWFILESETATTR" .
  28. 000280       FUNCTION REFERENCE OF POW-ATTR () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  29. 000290            REPLACING NAME BY "XPOWFILEGETATTR" .
  30. 000300       FUNCTION MOVE OF POW-NORMAL (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  31. 000310            REPLACING NAME BY "XPOWFILESETNORMAL" .
  32. 000320       FUNCTION REFERENCE OF POW-NORMAL () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  33. 000330            REPLACING NAME BY "XPOWFILEGETNORMAL" .
  34. 000340       FUNCTION MOVE OF POW-READONLY (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  35. 000350            REPLACING NAME BY "XPOWFILESETREADONLY" .
  36. 000360       FUNCTION REFERENCE OF POW-READONLY () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  37. 000370            REPLACING NAME BY "XPOWFILEGETREADONLY" .
  38. 000380       FUNCTION MOVE OF POW-HIDDEN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  39. 000390            REPLACING NAME BY "XPOWFILESETHIDDEN" .
  40. 000400       FUNCTION REFERENCE OF POW-HIDDEN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  41. 000410            REPLACING NAME BY "XPOWFILEGETHIDDEN" .
  42. 000420       FUNCTION MOVE OF POW-SYSTEM (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  43. 000430            REPLACING NAME BY "XPOWFILESETSYSTEM" .
  44. 000440       FUNCTION REFERENCE OF POW-SYSTEM () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  45. 000450            REPLACING NAME BY "XPOWFILEGETSYSTEM" .
  46. 000460       FUNCTION MOVE OF POW-ARCH (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  47. 000470            REPLACING NAME BY "XPOWFILESETARCH" .
  48. 000480       FUNCTION REFERENCE OF POW-ARCH () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  49. 000490            REPLACING NAME BY "XPOWFILEGETARCH" .
  50. 000500       FUNCTION MOVE OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  51. 000510            REPLACING NAME BY "XPOWFILESETSELECT" .
  52. 000520       FUNCTION REFERENCE OF POW-SELECT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  53. 000530            REPLACING NAME BY "XPOWFILEGETSELECT" .
  54. 000540       FUNCTION REFERENCE OF POW-COUNT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  55. 000550            REPLACING NAME BY "XPOWFILEGETCOUNT" .
  56. 000560       FUNCTION REFERENCE OF POW-STRING (INDEXED) IS EXTERNAL BY VALUE PIC X(64)
  57. 000570            REPLACING NAME BY "XPOWFILEGETSTRING" .
  58. 000580       FUNCTION REFERENCE OF POW-SELSTRING () IS EXTERNAL BY VALUE PIC X(64)
  59. 000590            REPLACING NAME BY "XPOWFILEGETSELSTRING" .
  60. 000600       FUNCTION MOVE OF POW-PATH (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  61. 000610            REPLACING NAME BY "XPOWFILESETPATH" .
  62. 000620       FUNCTION ADD OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  63. 000630            REPLACING NAME BY "XPOWFILEADDSELECT" .
  64. 000640       FUNCTION SUBTRACT OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  65. 000650            REPLACING NAME BY "XPOWFILESUBTRACTSELECT" .
  66. 000660       FUNCTION REFERENCE OF POW-CWD () IS EXTERNAL BY VALUE PIC X(260)
  67. 000670            REPLACING NAME BY "XPOWFILEGETCWD" .
  68. 000680 END CLASS POWFILE.
  69.