home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / vidlog20.lbr / VIDTITLE.CMD < prev    next >
OS/2 REXX Batch file  |  1986-08-31  |  3KB  |  108 lines
  1.  
  2. * Program..: VIDTITLE.CMD
  3. * Author...: Your Name
  4. * Date.....: 05/27/85
  5. * Notice...: Copyright 1985, All Rights Reserved
  6. * Reserved.: pagenum, line, pagehdg, col:hdg, condition,
  7. *            lastrec
  8. *
  9. SET TALK OFF
  10. SET BELL OFF
  11. SET MARGIN TO 5
  12. STORE 1 TO pagenum
  13. STORE 254 TO line
  14. STORE "Videolog Listing by Title" TO pagehdg
  15. STORE (80-LEN(pagehdg))/2 TO col:hdg
  16. *
  17. * ---Open the datafile and print the report.
  18. USE VIDEOLOG INDEX VIDTITLE
  19. ERASE
  20. @ 2, 0 SAY pagehdg
  21. @ 2,72 SAY DATE()
  22. @ 3, 0 SAY "========================================"
  23. @ 3,40 SAY "========================================"
  24. STORE " " TO select
  25. @ 5,0 SAY "Output to the screen or printer? [S/P] ";
  26.       GET select PICTURE "!"
  27. READ
  28. DO CASE
  29.    CASE select = "S"
  30.       ERASE
  31.       STORE 22 TO pagelen
  32.    CASE select = "P"
  33.       SET FORMAT TO PRINT
  34.       STORE 60 TO pagelen
  35.    OTHERWISE
  36.       ERASE
  37.       SET BELL ON
  38.       SET TALK ON
  39.       RETURN
  40. ENDCASE
  41. * ---Enter FOR <expression> for the report, such as,
  42. * ---STORE "STATE = 'CA'" TO condition
  43. STORE " " TO condition
  44. DO WHILE .NOT. EOF
  45.    IF line > pagelen
  46.       IF select = "S"
  47.          ERASE
  48.       ELSE
  49.          EJECT
  50.       ENDIF
  51.       @ 0,0 SAY "PAGE NO."
  52.       @ 0,9 SAY STR(pagenum,3)
  53.       @ 2,col:hdg SAY pagehdg
  54.       *
  55.       * ---Generate column headings.
  56.       @ 4,  0 SAY "Title"
  57.       @ 4, 33 SAY "Tape"
  58.       @ 4, 40 SAY "Hr"
  59.       @ 4, 45 SAY "Mn"
  60.       @ 4, 50 SAY "Star"
  61.       @ 4, 57 SAY "End"
  62.       @ 4, 64 SAY "Time"
  63.       @ 5,  0 SAY "=============================="
  64.       @ 5, 33 SAY "===="
  65.       @ 5, 40 SAY "=="
  66.       @ 5, 45 SAY "=="
  67.       @ 5, 50 SAY "===="
  68.       @ 5, 57 SAY "===="
  69.       @ 5, 64 SAY "====="
  70.       STORE  pagenum+1 TO pagenum
  71.       STORE 7 TO line
  72.    ENDIF
  73.    * ---Test to see if the condition exists.
  74.    IF condition <> " "
  75.       IF .NOT. (&condition)
  76.          SKIP
  77.          LOOP
  78.       ENDIF
  79.    ENDIF
  80.    *
  81.    * ---Print detail line.
  82.    @ line,  0 SAY $(title,1, 30)
  83.    @ line, 33 SAY $(STR(tape,3,0),1, 3)
  84.    @ line, 40 SAY $(hrs,1,  2)
  85.    @ line, 45 SAY $(min,1,  2)
  86.    @ line, 50 SAY $(indexstrt,1,  4)
  87.    @ line, 57 SAY $(indexend,1,  4)
  88.    @ line, 64 SAY $(timeleft,1,  5)
  89.    STORE line+1 TO line
  90.    SKIP
  91. ENDDO
  92. @ line+1,0 SAY " "
  93. SET FORMAT TO SCREEN
  94. RELEASE ALL
  95. SET TALK ON
  96. SET BELL ON
  97. RETURN
  98. * EOF: VIDTITLE.CMD
  99. 
  100.       STORE 60 TO pagelen
  101.    OTHERWISE
  102.       ERASE
  103.       SET BELL ON
  104.       SET TALK ON
  105.       RETURN
  106. ENDCASE
  107. * ---Enter FOR <expression> for the report, such as,
  108. * ---STORE "S