home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
j
/
jcldoc.zip
/
EXGENDOC.BAT
next >
Wrap
DOS Batch File
|
1993-02-05
|
960b
|
34 lines
@echo off
@ECHO >FLOWCHRT
if exist %1 goto fileok
@echo SYNTAX EXGENDOC procname [P]
@echo procname = name of proc (no suffix)
@echo P = print the flowchart
@echo with P omitted file FLOWCHRT is
@echo produced for review but not printed
@echo FLOWCHART USES SPECIAL PRINT CNTL SO
@echo THIS PROC MUST PRINT FLOWCHRT
@echo %1 file missing... run aborted
goto done
:fileok
DEL CTLIN
DEL SORTWK
DEL SYSFLOW
SET PROCIN=%1
SET SYSPUNCH=SYSPUNCH[N80]
if exist %1.ctl goto ctlok
ECHO H-MGRNAME=USER >%1.CTL
:ctlok
SET SYSIN=%1.ctl
SET SYSFLOW=SYSFLOW[U100]
SET SORTWK=SORTWK
SET FLOWPRT=FLOWCHRT[U99]
SET SYSSEC=SYSSEC[F1000]
SET CTLIN=CTLIN[U100]
GENDOC4 321144000
IF %2T == PT GOTO PRINT
GOTO DONE
:PRINT
COPY SPDOC.PRT+FLOWCHRT+SPDOC1.prt+spe1.prt LPT1
:DONE