home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powdrive.ocb < prev    next >
Text File  |  1996-01-29  |  2KB  |  33 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWDRIVE.
  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-SELECT        PIC S9(4)  COMP-5.
  9. 000090    01 POW-COUNT        PIC S9(4)  COMP-5.
  10. 000100    01 POW-SELSTRING    PIC X(64).
  11. 000110*    01 TEXTGROUP.
  12. 000120*        02 POW-LIST        PIC X(16) OCCURS 10000 TIMES.
  13. 000130 PROCEDURE    DIVISION.
  14. 000140       FUNCTION MOVE OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  15. 000150            REPLACING NAME BY "XPOWDRIVESETSELECT" .
  16. 000160       FUNCTION REFERENCE OF POW-SELECT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  17. 000170            REPLACING NAME BY "XPOWDRIVEGETSELECT" .
  18. 000180       FUNCTION REFERENCE OF POW-COUNT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  19. 000190            REPLACING NAME BY "XPOWDRIVEGETCOUNT" .
  20. 000200       FUNCTION REFERENCE OF POW-STRING (INDEXED) IS EXTERNAL BY VALUE PIC X(64)
  21. 000210            REPLACING NAME BY "XPOWDRIVEGETSTRING" .
  22. 000220       FUNCTION REFERENCE OF POW-SELSTRING () IS EXTERNAL BY VALUE PIC X(64)
  23. 000230            REPLACING NAME BY "XPOWDRIVEGETSELSTRING" .
  24. 000240       FUNCTION ADD OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  25. 000250            REPLACING NAME BY "XPOWDRIVEADDSELECT" .
  26. 000260       FUNCTION SUBTRACT OF POW-SELECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  27. 000270            REPLACING NAME BY "XPOWDRIVESUBTRACTSELECT" .
  28. 000280       FUNCTION MOVE OF POW-PATH (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  29. 000290            REPLACING NAME BY "XPOWDRIVESETPATH" .
  30. 000300       FUNCTION REFERENCE OF POW-CWD () IS EXTERNAL BY VALUE PIC X(260)
  31. 000310            REPLACING NAME BY "XPOWDRIVEGETCWD" .
  32. 000320 END CLASS POWDRIVE.
  33.