home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / DB2.ARC / MAILRPT.CMD < prev    next >
OS/2 REXX Batch file  |  1989-09-27  |  3KB  |  100 lines
  1.  
  2. * Program..: MAILRPT.CMD
  3. * Author...: Your Name
  4. * Date.....: 03/21/86
  5. * Notice...: Copyright 1986, 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 "AUTO HOTLINE MAIL LIST" TO pagehdg
  15. STORE (72-LEN(pagehdg))/2 TO col:hdg
  16. *
  17. * ---Open the datafile and print the report.
  18. USE MAIL
  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 56 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 "NAME"
  57.       @ 4, 28 SAY "ADDRESS"
  58.       @ 4, 51 SAY "CITY"
  59.       @ 4, 74 SAY "COUNTY"
  60.       @ 5,  0 SAY "========================="
  61.       @ 5, 28 SAY "===================="
  62.       @ 5, 51 SAY "===================="
  63.       @ 5, 74 SAY "============"
  64.       STORE  pagenum+1 TO pagenum
  65.       STORE 7 TO line
  66.    ENDIF
  67.    * ---Test to see if the condition exists.
  68.    IF condition <> " "
  69.       IF .NOT. (&condition)
  70.          SKIP
  71.          LOOP
  72.       ENDIF
  73.    ENDIF
  74.    *
  75.    * ---Print detail line.
  76.    @ line,  0 SAY $(NAME,1, 25)
  77.    @ line, 28 SAY $(ADDRESS,1, 20)
  78.    @ line, 51 SAY $(CITY,1, 20)
  79.    @ line, 74 SAY $(COUNTY,1, 12)
  80.    STORE line+1 TO line
  81.    SKIP
  82. ENDDO
  83. @ line+1,0 SAY " "
  84. SET FORMAT TO SCREEN
  85. RELEASE ALL
  86. SET TALK ON
  87. SET BELL ON
  88. RETURN
  89. * EOF: MAILRPT.CMD
  90. ╫£Éô┘ûïÜÆ╙╠╓╘ñ▀¼╛ª▀ó╘▀▀▀▀▀▀▀▀▀▀▀ñ█╫ó╘îïìûæÿ╘ñ╙╬╙ó╘¼½¡╫êû¢ïù╙╠╓╘ñ╓ó
  91. ü
  92. ïñ▀▀▀┐▀ôûæÜ╙ó╘¼½¡╫£Éô┘ûïÜÆ╙╠╓╘ñ▀¼╛ª▀ó╘▀▀▀▀▀▀▀▀▀▀▀ñ█╫¼½¡╫ó╘îïìûæÿ╘ñ╙ó╘¼½¡╫êû¢ïù╙╠╓╘▀▀▀▀▀▀▀▀▀▀▀ñ╙ó╘¼½¡╫╣ûÜô¢┼¢Ü£╙═╓╘ñ╓╙╬╙ó╘¼½¡╫êû¢ïù╙╠╓╘ñ╓ó
  93. é
  94. ü
  95. ┴┘¢₧ï₧ÖûôÜ
  96. Ç╧▀┴▀½║¼½╫┘îïìûæÿ╓
  97. ïñ▀▀▀┐▀ôûæÜ╙ó╘¼½¡╫£Éô┘ûïÜÆ╙╠╓╘ñ▀¼╛ª▀ó╘▀▀▀▀▀▀▀▀▀▀▀ñ█╫¼½¡╫ó╘îïìûæÿ╘ñ╙╬╧╙═╓╙╬╙ó╘¼½¡╫êû¢ïù╙╠╓╘ñ╓ó
  98. ü
  99. ïñ▀▀▀┐▀ôûæÜ╙ó╘¼½¡╫£Éô┘ûïÜÆ╙╠╓╘ñ▀¼╛ª▀ó╘▀▀▀▀▀▀▀▀▀▀▀ñ█╫ó╘îïìûæÿ╘ñ╙╬╙ó╘¼½¡╫êû¢ïù╙╠╓╘ñ╓ó
  100. é