home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / JCLDOC.ZIP / EXGENDOC.BAT next >
DOS Batch File  |  1993-02-05  |  960b  |  34 lines
  1. @echo off
  2. @ECHO  >FLOWCHRT
  3. if exist %1 goto fileok
  4. @echo SYNTAX  EXGENDOC  procname   [P]
  5. @echo                   procname  = name of proc (no suffix)
  6. @echo                   P         = print the flowchart
  7. @echo                               with P omitted file FLOWCHRT is
  8. @echo                               produced for review but not printed
  9. @echo                               FLOWCHART USES SPECIAL PRINT CNTL SO
  10. @echo                               THIS PROC MUST PRINT FLOWCHRT
  11. @echo %1 file missing...  run aborted
  12. goto done
  13. :fileok
  14. DEL CTLIN
  15. DEL SORTWK
  16. DEL SYSFLOW
  17. SET PROCIN=%1
  18. SET SYSPUNCH=SYSPUNCH[N80]
  19. if exist %1.ctl goto ctlok
  20. ECHO H-MGRNAME=USER >%1.CTL
  21. :ctlok
  22. SET SYSIN=%1.ctl
  23. SET SYSFLOW=SYSFLOW[U100]
  24. SET SORTWK=SORTWK
  25. SET FLOWPRT=FLOWCHRT[U99]
  26. SET SYSSEC=SYSSEC[F1000]
  27. SET CTLIN=CTLIN[U100]
  28. GENDOC4 321144000
  29. IF %2T == PT GOTO PRINT
  30. GOTO DONE
  31. :PRINT
  32. COPY SPDOC.PRT+FLOWCHRT+SPDOC1.prt+spe1.prt LPT1
  33. :DONE
  34.