home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / FORM.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  49 lines
  1. SET TALK OFF
  2. ERASE
  3. SET INTENSITY OFF
  4. STORE "                     " TO FDESC
  5. STORE "          " TO FNAME
  6. @ 7,20 SAY "FILE DESCRIPTION"
  7. @ 9,20 SAY "FILE NAME"
  8. @ 7,37 GET FDESC
  9. @ 9,37 GET FNAME
  10. READ
  11. USE &FNAME
  12. COPY STRUCTURE EXTENDED TO FORM
  13. USE FORM
  14. SET FORMAT TO PRINT
  15. STORE 2 TO CNTR
  16. **********    Next command causes expanded print on Okidata printer
  17. @ CNTR,0 SAY CHR(31)
  18. @ CNTR + 2,9 SAY "DBASE FILE LAYOUT FORM"
  19. @ CNTR + 7,4 SAY "FILE NAME:"
  20. @ CNTR + 7,15 SAY FDESC
  21. @ CNTR + 9,4 SAY "INT. NAME:"
  22. @ CNTR + 9,15 SAY FNAME
  23. @ CNTR + 14,4 SAY "|==============================|"
  24. @ CNTR + 15,4 SAY "| FLD |   NAME   |TYP|WIDTH|DEC|"
  25. @ CNTR + 16,4 SAY "|==============================|"
  26. @ CNTR + 17,4 SAY "|     |          |   |     |   |"
  27. STORE 20 TO CNTR
  28. STORE 1 TO FLD
  29. DO WHILE .NOT. EOF
  30.     STORE STR(FLD,3) TO FLDS
  31.     STORE STR(FIELD:LEN,3) TO LEN
  32.     STORE STR(FIELD:DEC,3) TO DEC
  33.     @ CNTR,4 SAY "| " + FLDS + " |" + FIELD:NAME + "| " + FIELD:TYPE + " | " + LEN + " |" + DEC + "|"
  34.     STORE FLD + 1 TO FLD
  35.     SKIP
  36.     IF EOF
  37.         @ CNTR+1,4 SAY "|     |          |   |     |   |"
  38.     ELSE
  39.         @ CNTR+1,4 SAY "|-----|----------|---|-----|---|"
  40.         STORE CNTR + 2 TO CNTR
  41.     ENDIF
  42. ENDDO
  43. @ CNTR + 2,4 SAY "|==============================|"
  44. **********    Next command switches Okidata printer back to normal print
  45. @ CNTR + 3,0 SAY CHR(30)
  46. EJECT
  47. SET FORMAT TO SCREEN
  48. RETURN
  49.