home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powselbo.ocb < prev    next >
Text File  |  1996-01-29  |  4KB  |  67 lines
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 CLASS-ID.      POWSELBO.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070**
  8. 000080**    POW-XXXXXXX   DEFINE THE FILE FORMAT FROM POWSELBO.
  9. 000090**
  10. 000100      POW-CSVFORMAT           IS 1         *> CSVFORMAT
  11. 000110      POW-TEXTFORMAT          IS 2         *> TEXTFORMAT
  12. 000120 CLASS          SECTION.
  13. 000130     INHERIT POWFUND EXTERNAL. *> âNâëâXîpÅ│é╠ïLÅq
  14. 000140 DATA           DIVISION.
  15. 000150 CLASS          SECTION.
  16. 000160  01 POW-COUNT        PIC S9(4)  COMP-5.
  17. 000170  01 POW-CURFIELDNO    PIC S9(4)  COMP-5.
  18. 000171  01 POW-FILETYPE       PIC S9(4)  COMP-5.
  19. 000180  01 POW-TOUPPER        PIC S9(4)  COMP-5.
  20. 000190  01 POW-STRING          PIC X(128).
  21. 000195*//for win32:update
  22. 000200*  01 POW-FILENAME        PIC X(128).
  23. 000205  01 POW-FILENAME        PIC X(260).
  24. 000210  01 POW-RECORDFORM    PIC X(128).
  25. 000220  01 POW-SELRECORDSTR   PIC X(128).
  26. 000230  01 POW-FIELD          PIC X(128).
  27. 000240 PROCEDURE      DIVISION.
  28. 000245*//for win32:update
  29. 000250*     FUNCTION MOVE OF POW-FILENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  30. 000250     FUNCTION MOVE OF POW-FILENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  31. 000260          REPLACING NAME BY "XPOWSELBOSETFILENAME" .
  32. 000265*//for win32:update
  33. 000270*     FUNCTION REFERENCE OF POW-FILENAME () IS EXTERNAL BY VALUE PIC X(128)
  34. 000275     FUNCTION REFERENCE OF POW-FILENAME () IS EXTERNAL BY VALUE PIC X(260)
  35. 000280          REPLACING NAME BY "XPOWSELBOGETFILENAME" .
  36. 000290     FUNCTION MOVE OF POW-STRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL 
  37. 000300           REPLACING NAME BY "XPOWSELBOSETSTRING" .
  38. 000300     FUNCTION REFERENCE OF POW-STRING () IS EXTERNAL BY VALUE PIC X(128)
  39. 000310          REPLACING NAME BY "XPOWSELBOGETSTRING" .
  40. 000320     FUNCTION REFERENCE OF POW-SELRECORDSTR (INDEXED) IS EXTERNAL BY VALUE  PIC X(128)
  41. 000330                REPLACING NAME BY "XPOWSELBOGETFIELDNODATA" .
  42. 000340     FUNCTION REFERENCE OF POW-FIELD (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC X(128)
  43. 000350          REPLACING NAME BY "XPOWSELBOGETFIELDSTRING" .
  44. 000360     FUNCTION REFERENCE OF POW-COUNT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  45. 000370          REPLACING NAME BY "XPOWSELBOGETCOUNT" .
  46. 000380     FUNCTION MOVE OF POW-FILETYPE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  47. 000390          REPLACING NAME BY "XPOWSELBOSETFILEFORMAT" .
  48. 000400     FUNCTION REFERENCE OF POW-FILETYPE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  49. 000410          REPLACING NAME BY "XPOWSELBOGETFILEFORMAT" .
  50. 000420     FUNCTION MOVE OF POW-RECORDFORM (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  51. 000430          REPLACING NAME BY "XPOWSELBOSETFIELDINFO" .
  52. 000440     FUNCTION REFERENCE OF POW-RECORDFORM () IS EXTERNAL BY VALUE PIC X(128)
  53. 000450          REPLACING NAME BY "XPOWSELBOGETFIELDINFO" .
  54. 000460     FUNCTION MOVE OF POW-CURFIELDNO (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  55. 000470          REPLACING NAME BY "XPOWSELBOSETDISPLAYFIELD" .
  56. 000480     FUNCTION REFERENCE OF POW-CURFIELDNO () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  57. 000490          REPLACING NAME BY "XPOWSELBOGETDISPLAYFIELD" .
  58. 000500     FUNCTION REFERENCE OF POW-TOUPPER() IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  59. 000510          REPLACING NAME BY "XPOWSELBOGETBOOLCASE".
  60. 000520     FUNCTION MOVE OF POW-TOUPPER(BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  61. 000530          REPLACING NAME BY "XPOWSELBOSETBOOLCASE".
  62. 000540     FUNCTION REFERENCE OF POW-SELECT() IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  63. 000550          REPLACING NAME BY "XPOWSELBOGETCURSELECT".
  64. 000560     FUNCTION MOVE OF POW-SELECT(BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  65. 000570          REPLACING NAME BY "XPOWSELBOSETCURSELECT".
  66. 000580 END CLASS POWSELBO.
  67.